判斷式-田中稻草人

.
//設定畫布大小
size 400 400
//設定背景
paper 10 10 1
//使運算速度加快
fast
//設計一個以中心點為座標的實心方形
command rects x y w h r g b
{
pen r g b
repeat w1 (-w) (w)
{
pen r g b
line (x+(w1/2)) (y-h/2) (x+(w1/2)) (y+h/2)
line (x+(w1*170)) (y-h*8) (x-(w1/55)) (y-h*800)
line (x-(w1/170)) (y-h/5) (x-(w1/50)) (y-h*90)
line (x-(w1/3)) (y-h/3) (x-(w1*7)) (y-h/5)
line (x+(w1*120)) (y-h*8) (x-(w1/55)) (y-h*100)
line (x-(w1/70)) (y-h/2) (x-(w1/50)) (y-h*190)
line (x-(w1/3)) (y-h/8) (x-(w1*7)) (y-h/5)
}
}
forever
{
//按下滑鼠才畫
same? 100
{
rects 20 30
}
//按下鍵盤的c, 利用設定背景顏色來清除畫面
same? 100
{
paper 10
}
}