HSPTV!掲示板

初めまして！質問させていただきます！！
マウスで動かした角度が下のソースの変数rは-π〜πまでしか返ってこないんっすけど

反時計回りにマウスを回したら元の角度からマイナスになって（-πを超えてもマイナス）
逆も同じで時計回りに回すと元の角度からプラスになるようにしたいっす（πを超えてもプラス）

うまいこと考えが浮かばなくてググッもなかなか思い通りのものが
でてこーへんので質問させていただきました
どなたかわかる方いればよろしくお願いします！！

x=320
y=240
r=0.0
repeat
	color 255,255,255:boxf:color
	r=atan(mousey-y,mousex-x)
	line x,y,x+cos(r)*100,y+sin(r)*100
	pos 0,0:mes r
	redraw:redraw 0
	await
loop

前回の角度と比較して条件分岐してみては？

こんな感じでどうでしょう。

x=320
y=240
r=0.0
r_2=0.0
M_PI2=M_PI/2.0
repeat
	color 255,255,255:boxf:color 0,0,0
	r=atan(mousey-y,mousex-x)
	line x,y,x+cos(r)*100,y+sin(r)*100
	if r_bac>M_PI2 & r<(M_PI2*-1):{;時計回りに回転させ、Rが正の値から負の値になった時。
		r_2+(M_PI-r_bac)+(r-(M_PI*-1))
		a+1;確認用
		}else{
			if r>M_PI2 & r_bac<(M_PI2*-1):{;時計回りに回転させ、Rが負の値から正の値になった時。
				r_2+(r-M_PI)+((M_PI*-1)-r_bac)
				b+1;確認用
				}else{;通常。
				r_2+(r-r_bac)
				c+1;確認用
				}
			}
	color 255,0,0:line x,y,x+cos(r_2)*100,y+sin(r_2)*100
	pos 0,0:mes ""+r_2+"\n"+a+"\n"+b+"\n"+c+"";abcは確認用
	redraw:redraw 0
	r_bac=r
	await
loop

スペースさんありがとうございました！
前回の角度と比較するという発想がなかったっす
ソースもすごくわかりやすくて大感謝っす！

ごめんなさい、コメント間違っていました。
×時計回りに回転させ、Rが負の値から正の値になった時。
○反時計回りに回転させ、Rが負の値から正の値になった時。