Toujour les boules

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

3d_color 2,239,219,0
3d_color 1,0,100,180
Light_position 1,0,5

x=0+7*(cos(0+i))
y=0+7*(sin(0+i))

x=7*cos(i)
y=7*sin(i)

3d_z_position 2 ,0

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