作業5-time

主題:change 截圖 影片


原始碼
size 100 100 4
paper 100

command rect x y dx dy
{

line (x+dx) (y+dy) (x+dx) (y-dy)
line (x-dx) (y+dy) (x-dx) (y-dy)
line (x-dy) (y+dx) (x+dy) (y+dx)
line (x-dy) (y-dx) (x+dy) (y-dx)
}

repeat a 0 50
{
paper
pen
rect 50 50 (a+1) (a+1)
notsmaller? a 10
{

repeat c 1 (a/5)
{

rect 50 50 (a-(c*5)) (a-(c*5))
}
}
}