`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