;---------- ---------- ---------- ---------- ----------
; �ì�¬ŽÒ‚ÌURL ---> http://www.setsuki.com/
;---------- ---------- ---------- ---------- ----------

#define x1 ginfo_winx/2
#define y1 ginfo_winy/2

*@

x=mousex
y=mousey

rad = atan(y-y1,x-x1)
A = sin(rad)
B = cos(rad)
D = tan(rad)

redraw 0
color 255,255,255 : boxf 0,0,ginfo_winx, ginfo_winy
color 192,192,192 : line x1,0,x1,ginfo_winy : line 0,y1,ginfo_winx,y1
color   0,  0,  0 : pos 0,0
	mes "atan = "+C
	mes " sin = "+A
	mes " cos = "+B
	mes " tan = "+D

x2 = abs(x-x1)
y2 = abs(y-y1)

; ‰~‚Ì”¼Œa‚ð‹�‚ß‚é
c  = sqrt(x2*x2+y2*y2)

color $AA,$AA,$33 : circle x1-c, y1-c, x1+c, y1+c, 0
color $AA,$AA,$33 : line x ,y1,x,y
color $AA,$AA,$33 : line x1,y ,x,y
color   0,  0,  0 : line x1,y1,x,y : pos x ,y  : mes " ("+(x-x1)+","+(y1-y)+")"
redraw 1

wait 1 : goto *@b