sync on
sync rate 30
make object sphere 3,25
position object 3,0,1,0
position camera 230,300,-500
do
set cursor 10,10
print x#," " ,y#," " ,t#
y#=object position y(3)
vo#=150
angle#=45
pas#=0.08
bz#=object position z(3)
gosub tutu
position object 3,x#,y#,0
sync
loop
tutu:
if y#>=0
x#=vo#*cos(45)*t#
y#=-(1/(2*9.81*t#^2))+vo#*sin(45*t#)
t#=t#+pas#
endif
return