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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 68
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 : 5920
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 : 68
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 : 1738
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 : 68
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 : 5920
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 : 1594
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 : 68
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
-
» Boules de sapins et guirlandes
» nom de domaine toujour pas activé
» quand j'arrive sur mon forum j'ai toujour une page de pub qui s'ouvre
» [Résolu]mon bureau (bis)
» [Résolu] Scanner Canon sous Vista

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