`Solar fares
autocam off
sync on:sync rate 60
set display mode 1024,768,32

`to make this work
particle = 1000
px = 0
py = 0
pz = 0
pt1 = 2000
pt2 = 2001
vel = 0
gravity as float = 1.0
direction = 1
speed = 1


oldtimer = timer()
oldtimer2 = timer()

make object plain particle,8,8
position object particle,0,vel,0
rotate object particle,0,0,45

position camera 0,250,-800
s = 1
do
set object to camera orientation particle
if s = 1
   if timer() => oldtimer + 30
      if vel <=199 then vel = vel + 10
      speed = speed + 1 + sin (3) * vel
      position object particle,speed,vel,0
      oldtimer = timer()
      if vel = 200 then s = 2
      endif
   endif

if s = 2
f = 2
   if timer() => oldtimer + 30
      if vel > 0 then vel = vel - 10
      speed = speed + 1 + sin (4) * vel

     position object particle,speed,vel,0
      oldtimer = timer()
      if vel = 0 then s = 1
      endif
   endif

 if vel = 0
 speed = 1
 position object particle,0,vel,0
 endif

text 0,20,"Velocity: " + str$(vel)
sync
loop