波紋シュミレーター(仮)基本プログラム - Soft Development Wiki

旧版
 
#uselib "gdi32"
#func Arc "Arc" int,int,int,int,int,int,int,int,int
#func DeleteObject "DeleteObject" int
#func SelectObject "SelectObject" int,int
#func SetArcDirection "SetArcDirection" int,int
onexit goto *ed
SelectObject hdc,hPen
SetArcDirection hdc,2
 
pos 0,0 : input x : input y : input kaku
p1=200 : p2=p1 : p3=450: p4=200 : p5=450 : p6=450
repeat
redraw 0
color 255,255,255 : boxf : color 0,0,0 : line 300,0,300,480 : pset p5,p6 : pset p1,p2
;if mousex<200 : SetArcDirection hdc,1;AD_COUNTERCLOCKWISE
;if mousex>200 : SetArcDirection hdc,2;AD_CLOCKWISE
Arc hdc,p1,p2,p5,p6,300,p3,300,p4
;dd=kaku*2+1
dd=1
p3+1 : p4-1 : p2-1 : p1-1 : p5+1 : p6+1
redraw 1
kaku=atan(p2,p1)
objprm 0,mousex : objprm 1,mousey : objprm 2,kaku
await 20
loop
*ed
DeleteObject hPen
end