FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» I Love You
par papydall Aujourd'hui à 2:58

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Toujour les boules

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
659_minifly



Nombre de messages : 590
Age : 69
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Toujour les boules   Ven 21 Mai 2010 - 7:08

Elles se maitrisent petit a petit

Code:

dim p(7,2),L ,n,x,y,z
dim g(7,2) ,d,i

scene3d 2
width 2,640
height 2,480

    color 2,100,0,100
    for L=1 to 7
    3D_sphere L, 1.5
    3d_color L,0,20*l,150+(l*10)
    Cam_position 12,5,-10

    Light_position L, 0, 45

    p(L,1)=4.0-(rnd(80)/10.0)
    p(L,2)=4.0-(rnd(80)/10.0)
    g(L,1)=rnd(3600)
    g(L,2)=rnd(3600)
    next L
    repeat
    d=d+1
  for n=1 to 7

      g(n,1)=(g(n,1)+2)
      g(n,2)=g(n,2)+4


      x=p(n,1)+(3.0*sin(g(n,1)))
      y=3+(8.0*sin(g(n,2)))
      z=p(n,2)+(3.0*cos(g(n,1)))
     

      3d_x_position n ,x

      3d_y_position n ,y

      3d_z_position n ,z
      display

      light_position x,y,z


      wait 20
  next n
  until d=10
 
  for n= 1 to 7
        3d_x_position n ,2+n
        3d_y_position n ,5
          3d_z_position n ,z
          display
          wait 80
      next n
          wait 200
    for n= 1 to 7
        3d_color n,110+(n*20),20*l,150+(n*10)
          display
          wait 200

  next n
      3d_y_position 1 ,6
        3d_y_position 3 ,4
      display
        3d_x_position 4 ,-3.9
        display
       

                      for n=3 to 7
                      3d_hide n
                        next n
                                3d_x_position 2 ,0
                                3d_y_position 2 ,5
                                3d_z_position 2 ,0
                  for i=0 to 90  step .1
                 
                      x=0+7*(cos(0+i))
                      y=0+7*(sin(0+i))
                      3d_color 2,239,219,0
                      3d_color 1,0,100,180
                        Light_position 1, 0,5

                                3d_x_position 1 ,x
                                3d_z_position 1 ,y
                      display
                      wait 40

                      next i


       
       
end


affraid affraid
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5952
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 16:27

Pas mal le coup du satellite ! mais c'est pas sympa de ne pas avoir prévu une possibilité d'arrêt, on se demande si ça va être infini (comme le cosmos).

D'autre part, l'indentation de ton programme, c'est en le collant ici ou c'est d'origine ? parce que sur la fin c'est un peu n'importe quoi...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 17:27

La terre tourne un peu trop vite autour du soleil!!!

lol! lol! lol!
Revenir en haut Aller en bas
659_minifly



Nombre de messages : 590
Age : 69
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 17:52

L'identation est d-origine ( désolé mais j'ai fait ça sur le pouce).
ce n'est que pour m'amuser avec la 3d.
Si la terre tourne trop vite c'est parcequ'elle est en retard. What a Face What a Face
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 18:02

En retard de combien de secondes?????
Revenir en haut Aller en bas
Jack
Admin
avatar

Nombre de messages : 1764
Date d'inscription : 28/05/2007

MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 18:46

Pas mal pour un début !

J'ai regardé le mouvement de la "Terre" autour du "Soleil" et il y a moyen de l'optimiser.
Attention: je ne veux pas jouer au professeur!

1 - pour gagner en vitesse d'exécution, on peut retirer:
Code:
3d_color 2,239,219,0
3d_color 1,0,100,180
Light_position 1,0,5
de la boucle car se sont des constantes qui n'ont pas besoin d'être calculées à chaque fois.
Lorsqu'on fait une boucle avec une variable (i) on ne met dans la boucle que les expressions qui contiennent cette variable. Le reste n'a pas besoin d'être recalculé.

2 - pour gagner encore en vitesse d'exécution, tu peux remplacer:
Code:
x=0+7*(cos(0+i))
y=0+7*(sin(0+i))
par:
Code:
x=7*cos(i)
y=7*sin(i)
et retirer:
Code:
3d_z_position 2 ,0
qui ne sert à rien, un objet étant créé avec z=0. Et de plus, tu n'utilises pas la coordonnée Z: tout le mouvement s'effectue dans le plan XY.

3 - enfin, il n'y a pas besoin de calculer des sinus et cosinus grace à la commande 3D_CHAIN. Il suffit de "chainer" la Terre au Soleil et la Terre va suivre les mouvements du Soleil. L'astuce est alors de faire pivoter le Soleil autour de son axe Y et la Terre va tourner autour de lui:
Code:
dim i

' la fenêtre de visualisation
scene3d 2
width 2,640
height 2,480
color 2,100,0,100
' la Terre
3D_sphere 1, 1.5
' le Soleil
3D_sphere 2, 1.5
' l'observateur
Cam_position 12,5,-10
' la lumière
Light_position 0, 0, 45
' on positionne la Terre
3d_x_position 1 ,7
3d_y_position 1 ,0
' on positionne le Soleil
3d_x_position 2 ,0
3d_y_position 2 ,5
' retiré de la boucle car pas besoin de les répéter
3d_color 2,239,219,0
3d_color 1,0,100,180
Light_position 1,0,5
' on chaine la Terre au Soleil
3D_chain 1,2
' on fait tourner le Soleil sur son axe Y
for i=0 to 360
3d_y_rotate 2,i
wait 10
next i
end
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.free-boards.net
659_minifly



Nombre de messages : 590
Age : 69
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 19:58

Merci je n'avais pas encore compris l'utilisation de 3D_chain. ce n'est pas trop le code qui avait de l'importance au moment de la programmation pour moi mais le résultat su l'écran. j'aime bien voir ce que l'on peut faire avec la 3d.
Mais tu a raison les résultats en optimisant le programme donnent des effets différents.
En fait il faudrait des exemples plus nombreux.
Et surtout.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5952
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Toujour les boules   Ven 21 Mai 2010 - 22:06

Dans l'exemple de Jack, je trouve l'éclairage de la terre plus réaliste si on fait Light_Position 1,5,0 au lieu de 1,0,5
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1601
Date d'inscription : 13/09/2009

MessageSujet: +++   Sam 22 Mai 2010 - 18:08

Citation :
La terre tourne un peu trop vite autour du soleil!!!

Ca doit être ce qui la rend un peu trop ovale (effet centrifuge) !
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
659_minifly



Nombre de messages : 590
Age : 69
Localisation : Valenciennes Nord
Date d'inscription : 29/04/2010

MessageSujet: Re: Toujour les boules   Sam 22 Mai 2010 - 18:11

Il est passé à l'essoreuse What a Face What a Face
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Toujour les boules   

Revenir en haut Aller en bas
 
Toujour les boules
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu]mon bureau (bis)
» [Résolu] Scanner Canon sous Vista
» Message à la fermeture d'XP
» Comment afficher toujours la bonne heure sans boucle infini?
» Re-calcul itinéraire après changement du volume

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: