下のスクリプトではわずかながら差異が生まれてしまいます。
どなたか良い方法をご存じではないでしょうか?
r = 100f a = 0f *@ a += m_pi/100 b = a-((a-m_pi/2)*2) redraw 0 color 255,255,255 boxf color line 0,240,640,240 line 320,0,320,480 s=calc(a,r,x1,y1) f=calc(b,r,x2,y2) if(absf(s) != absf(f)){ logmes strf("差異 %1.20f",absf(s)- absf(f)) title "差異Count"+Count Count++ } color:draw x1,y1 color 255:draw x2,y2 redraw wait 30 goto*@b #deffunc draw double x_ , double y_ #const c 3 line 320,240,x_,y_ circle x_-c,y_-c,x_+c,y_+c,1 pos x_,y_ mes x_-320f return #defcfunc calc double a_ , double r_ , var x_ , var y_ x_ = cos(a_)*r_+320f y_ = sin(a_)*r_+240f return x_-320f