yes i think I almost got it working now
Graphics 800,600 Gspeed#=10 Speed#=3 Rot#=90 'direction Rot2#=0 'Wave dont change Size#=50 'Wave Size sincoor#=512 'starting coords coscoor#=512 ' " " " " " " " " " While Not KeyHit(KEY_ESCAPE) Rot2#:+2 Distance#:+(Speed#/Gspeed) waver=Size#*Sin(Rot2#) XCoor#=(Sincoor#+(Distance#*Cos(-90+Rot#)))+(Waver*(Cos(-180+Rot#))) Ycoor#=(Coscoor#+(Distance#*Sin(-90+Rot#)))+(Waver*(Sin(-180+rot#))) DrawOval xcoor#,ycoor#,10,10 Flip Wend End