Sorry your browser is not supported!

Rem ***** Main Source File *****

rem main setup
 flush video memory
  set display mode 640,480,16
   hide mouse : autocam off
    backdrop on : color backdrop 0,rgb(0,0,0)
     sync on : sync rate 60
      phy start physx(),1,1
       phy set gravity 0,0,0

rem make fluid
 phy make box drain 1,0,-6,0,20,0.9,20,0,0,0
  phy make fluid emitter 2
   phy set fluid position 2,0,-0,-4
    phy set fluid method 2,1
     phy set fluid acceleration 2,0,0,0
      phy build fluid 2

rem make ball for water to move around
 make object sphere 4,3,20,20
  position object 4,0,0,0
   hide object 4
    phy make rigid body static sphere 4

rem render light
 set normalization on

rem begin loop
 do

rem print debug info
 set cursor 0,0
  print "fps=";screen fps()
   print "polygons=";statistic(1)
    print do#

rem move camera
 cp#=wrapvalue(cp#+0.250)
  position camera 0,newxvalue(0,cp#,18),0,newzvalue(0,cp#,18)
   point camera 0,0,0

rem counter for gravity to come on and program to end
 do#=do#+1
  if do#=4000 then phy set gravity 0.0,-2.45,0.0
   if do#=4700 then end

rem goto out of main loop but look around
 if spacekey()=1 then gosub movepause

rem update physx
 phy update

rem refresh screen
 sync

rem loop
 loop


rem pause the main loop but take a look round
movepause:

rem begin loop
 do

rem print debug info
 set cursor 0,0
  print "fps=";screen fps()
   print "polygons=";statistic(1)
    print do#

rem go back to main loop
 if returnkey()=1 then goto r

rem move camera
  control camera using arrowkeys 0,0.5,0.5

rem update physx
 phy update 1

rem refresh screen
 sync

rem loop
 loop


rem jump back to main loop
 r:
  return