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

2008/5/17 17:44
 
#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
Arcsize=1
p1=320 : p3=p1+Arcsize
p2=240 : p4=p2+Arcsize
p5=p4 : p6=p2
Arctyu=p1+p3 : Arctyu/2
repeat
redraw 0
color 255,255,255 : boxf : color 0,0,0 : pset p3,p4 : pset p1,p2
color 0,128,128
repeat 28
line cnt*25,0,cnt*25,480
line 0,cnt*25,640,cnt*25
loop
Arc hdc,p1,p2,p3,p4,Arctyu,p5,Arctyu,p6
p5+1 : p6-1 : p2-1 : p1-1 : p3+1 : p4+1
redraw 1
kaku=atan(p2,p1)
objprm 0,mousex : objprm 1,mousey : objprm 2,kaku
await 20
loop
*ed
DeleteObject hPen
end