涙拭きなよ var x,y,t while 1 stick out x,y t=atan(y,x) ? deg(t) gcls gline 200,120,200+x*100,120-y*100 wend