| uwsc 年輪 うずまき |
|
|
ACW(GETID("無題 - ペイント","MSPaintApp"),0,0,1200,900,10)
dim px = 500, py = 500, r = 300, s = r / 2
While True
if GETKEYSTATE(VK_ESC) then exit // ESCキーで終了
for i= 0 to s
t = 3.14 * 2 * i / s
x = cos(t) * r + px
y = sin(t) * r + py
if i = 0 then BTN(LEFT,DOWN,x, y) else MMV(x, y,5)
next
BTN(LEFT, up)
r=r-5
Wend
| |
|
2015年5月20日（水）18:44 | トラックバック(0) | コメント(0) | フリーソフト | 管理
|
フォトログ表示
