Sorry your browser is not supported!

sync on
for x=1 to 9
for y=1 to 18
inc obj
if object exist(obj)=0 then make object cube obj,2
position object obj,sin(x*20+z)*72*sin(y*20),cos(x*20+z)*72*sin(y*20),cos(y*20)*72
inc n,1
position camera sin(n)*n,0,cos(n)*n
yrotate camera wrapvalue(180+n)
sync
next x
next y
g=n
do
obj=0
`position camera sin(n)*g,0,cos(n)*g
`yrotate camera wrapvalue(180+n)
if upkey()=1 then inc z
if downkey()=1 then dec z
if leftkey()=1 then inc n
if rightkey()=1 then dec n
for x=1 to 9
for y=1 to 18
inc obj
position object obj,sin(x*20+z)*72*sin(y*20)+cos(n)*y*72,cos(x*20+z)*72*sin(y*20),cos(y*20)*72+sin(n)*y*72
next y
next x
sync
loop

sync on : sync rate 0 : autocam off

a=20 : ` number of cubes
s=2 : ` size of cubes
r=40 : ` radius of sphere

o=1
make object cube 1,5 : hide object 1
for g=-a/2 to a/2
   for f=1 to a
      inc o
      make object cube o,s
      turn object right o,(360*(f-1))/a
      pitch object up o,(90*(g-1))/(a/2)
      move object o,r
      rotate object o,0,0,0
      glue object to limb o,1,0
   next f
next g
position camera 0,0,-200
do
   m=0
   if upkey()=1 then move object 1,1 : pitch object down 1,1 : m=1
   if downkey()=1 then move object 1,-1 : pitch object up 1,1 : m=1
   if leftkey()=1 then move object left 1,1 : roll object left 1,1 : m=1
   if rightkey()=1 then move object right 1,1 : roll object right 1,1 : m=1
   sync
   if m=1
      for f=2 to o : unglue object f : next f
      rotate object 1,0,0,0
      for f=2 to o
         glue object to limb f,1,0
         position object f,limb position x(f,0)-object position x(1),limb position y(f,0)-object position y(1),limb position z(f,0)-object position z(1)
      next f
   endif
loop