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