Sync On
Sync Rate 60
 
Autocam off
Global Circ as Float
Global Spring as Float
Circ=1
Spring=1
 
Make Object Sphere 1,20
Position Object 1,0,10,200
Make Object Sphere 2,1,10,10
Hide Object 2
For i = 1001 to 4000
   Make Object Sphere i,5,8,8
Next i
 
Do
   Select MouseClick()
      Case 1
         Move Object Down 1,MouseMoveY()
         Move Object Right 1,MouseMoveX()
         Circ=Circ+(MouseMoveZ()/100)
      Endcase
      Case 2
         Roll Object Right 1,MouseMoveX()
         Pitch Object Down 1,MouseMoveY()
         Spring = Spring+(MouseMoveZ()/100)
      Endcase
      Case Default
         x=MouseMoveX()
         y=MouseMoveY()
      EndCase
   Endselect
   If Spacekey() Then Point Camera Object Position X(1),Object Position Y(1),Object Position Z(1)
   Set Cursor 0,0
   Print Screen FPS()
   Drawstuff(1)
   Sync
Loop
 
 
 
 
Function Drawstuff(ObjectID)
Position Object 2, Object Position X(ObjectID),Object Position Y(ObjectID),Object Position Z(ObjectID)
Set Object To Object Orientation 2,1
lx=Object Screen X(2):ly=Object Screen Y(2)
For i = 1 to 3000
   Move Object 2,4.5
   Turn Object Left 2,Circ
   Pitch Object Up 2,1
   Roll Object RIght 2,Spring
   Position Object 1000+i, Object Position X(2),Object Position Y(2),Object Position Z(2)
Next i
Endfunction