sample\basic\atan_grect.hsp » Plain Format
screen 0,320,240 cx=160:cy=120 repeat redraw 0 dir=atan(cy-mousey,cx-mousex) color 255,255,255:boxf color 0,0,0:pos 0,0 mes "mouse=("+mousex+","+mousey+") dir="+dir grect cx,cy,dir,100,100 redraw 1 await 20 loop