2010.1.7 期末 邏輯侵襲

直來直往，不停鑽
頭腦簡單得喘不過氣，不斷侵襲擾亂


on web


程式碼
size 400 400
paper 20

fast
command rects x y w h c
{
pen x y w
repeat w (5*(-w)) (5*(w))
{
pen c line (x-w) (y-h) (x+w) (y+h/4)
line (x+(w/2)) (y-(2*h)) (x+(w/2)) (y+(4*h))
}
}
forever
{
same? 50
{
rects 10 10 (100-)
paper (/4)
}
same? 100
{
rects 10 10 (100-)
}
}