Où est le problème?

figure1()
end

sub figure1()
   dim_local a,i,k,pi,y,r,v,b,u,j%
   pi=acos(-1) : k=pi/24
   border_small 0 : full_space 0
   scene3d 1 : full_space 1 : color 1,0,0,0
      cam_position 0,0,40
   for u=4 to 1.5 step -0.5
      j%=3
      for y=-2.5 to 15 step u
            r=abs(y*17) : if r=0 then r=r+1
            b=255-r : v=b/r
         for i=0 to 2*pi step k
            if y=-2.5 or y=5.5 or y=6.5 or y=7.5
               3d_torus j%,2,1
            else
               3d_cylinder j%,20,1,1
            end_if
            3d_color j%,r,v,b
            3d_transparent j%,100
            3d_position j%,12*sin(i),y-8,12*cos(i)
            a=a+(k*(180/pi))
            a=wrap_value(a)
            3d_y_rotate j%,a : 3d_x_rotate j%,y*10 : 3d_z_rotate j%,180
            j%=j%+1
         next i
      next y
      wait 2000
      3d_delete_all
   next u
end_sub