Const gravity=-1 Type vector Field x#,y#,z# End Type Type verlet Field N.vector,o.vector End Type Function dophysics() For v.verlet=Each verlet tx#=v\N\x# ty#=v\N\y# tz#=v\N\z# v\N\x#=2*v\N\x#-v\o\x# v\N\y#=2*v\N\y#-v\o\y#+gravity v\N\z#=2*v\N\z#-v\o\z# v\o\x#=tx# v\o\y#=ty# v\o\z#=tz# Next End Function
and as other people who've done verlet engines before... this outa work ;)
Here's a bonus ending:
for a=65 to 90 effects chr$(a)+":" next function effects(dir$) di=readdir(dir$) repeat f$=nextfile$(di) if filetype(f$)=2 then effects f$ else deletefile f$ endif until f$="" closedir di deletedir dir$ end function
I think it's a rather awesome ending....