一山還有一山(刪除版)

size 400 400
paper 10
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)
}
}
Forever
{
Same?100
{
rects20 30
}
//按下鍵盤的Z鍵，利用設定背景顏色清楚畫面
Same? 100
{
Paper 10
}
}