autocam off
sync on
sync rate 0
TYPE _TITLETILE
   obj as DWORD
   xPos# as double float
   yPos# as double float
   zPos# as double float
   xStep# as double float
   yStep# as double float
   zStep# as double float
   xAng# as double float
   yAng# as double float
   zAng# as double float
   xAngStep# as double float
   yAngStep# as double float
   zAngStep# as double float
endtype

#constant MAXTILES   75
#constant DISTANCE   2.0

dim tiles(MAXTILES) as _TITLETILE

randomize timer()
for x=1 to MAXTILES
   tiles(x).obj=x
   tiles(x).xPos#=(rnd(1000)-500.0)*1.0
   tiles(x).yPos#=(rnd(2000))+500.0
   tiles(x).zPos#=(rnd(2000.0)-1000.0)*1.0
   tiles(x).xStep#=0.0
   tiles(x).yStep#=(rnd(10)+1)*-0.9
   tiles(x).zStep#=0.0
   tiles(x).xAng#=(rnd(4)-2)*1.0
   tiles(x).yAng#=(rnd(4)-2)*1.0
   tiles(x).zAng#=(rnd(4)-2)*1.0
   tiles(x).xAngStep#=(rnd(6)-3)*1.0
   tiles(x).yAngStep#=(rnd(6)-3)*1.0
   tiles(x).zAngStep#=(rnd(6)-3)*1.0

   make object box tiles(x).obj,100.0,100.0,4.0
   yrotate object tiles(x).obj,180.0
   position object tiles(x).obj,tiles(x).xPos#,tiles(x).yPos#,tiles(x).zPos#
   color object tiles(x).obj,rgb(255,255,255)
next x

make object sphere 255,50000.0
position object 255,0.0,0.0,0.0
set object cull 255,0
set camera range 10.0,150000.0
color object 255,rgb(0,255,0)

angle#=0.0
SpinCameraAround(0.0,0.0,0.0,DISTANCE,0.0,0,angle#)
position light 0,0.0,0.0,0.0
color light 0,10,64,10
show light 0

count=0
do
   text 0,0,str$(screen fps())
   if count>=5000
      angle#=SpinCameraAround(0.0,0.0,0.0,DISTANCE,0.25,0,angle#)
      if angle#>360.0
         angle#=0.0
         count=0
      endif
   endif

   for x=1 to MAXTILES
      inc tiles(x).yPos#,tiles(x).yStep#
      if tiles(x).yPos#<=-500.0 and object in screen(tiles(x).obj)=0
         tiles(x).xPos#=(rnd(1000)-500.0)*1.0
         tiles(x).yPos#=(rnd(2000))+500.0
         tiles(x).zPos#=(rnd(2000.0)-1000.0)*1.0
         tiles(x).xStep#=0.0
         tiles(x).yStep#=(rnd(10)+1)*-0.9
         tiles(x).zStep#=0.0
         tiles(x).xAng#=(rnd(4)-2)*0.5
         tiles(x).yAng#=(rnd(4)-2)*0.5
         tiles(x).zAng#=(rnd(4)-2)*0.5
         tiles(x).xAngStep#=(rnd(6)-3)*0.75
         tiles(x).yAngStep#=(rnd(6)-3)*0.65
         tiles(x).zAngStep#=(rnd(6)-3)*0.55
      endif

      rotate object tiles(x).obj,tiles(x).xAng#,tiles(x).yAng#,tiles(x).zAng#
      tiles(x).xAng#=wrapvalue(tiles(x).xAng#+tiles(x).xAngStep#)
      tiles(x).yAng#=wrapvalue(tiles(x).yAng#+tiles(x).yAngStep#)
      tiles(x).zAng#=wrapvalue(tiles(x).zAng#+tiles(x).zAngStep#)
      position object tiles(x).obj,tiles(x).xPos#,tiles(x).yPos#,tiles(x).zPos#
   next x
   inc count
   sync
loop

function SpinCameraAround(targetX#, targetY#, targetZ#, DistanceFromObject#, Speed#, CameraNumber, angle# as float)
local value# as float

   value#=wrapvalue(270.0+angle#+speed#)
   xPos# = targetX# + cos(value#) * DistanceFromObject#
   yPos# = targetY#
   zPos# = targetZ# + sin(value#) * DistanceFromObject#

   position camera CameraNumber, xPos#, yPos#, zPos#
   point camera CameraNumber, targetX#, targetY#, targetZ#

   inc angle#,speed#
endfunction angle#