Dessine des sphères énervées

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

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
end