作業七-夜生活

size 400 400

paper 100

fast

command rect x y a b c

{

pen c ((y/c)-(c)) (y*c)

line x y (x+(a*1)) (y-a)

line x (y-a) (x+(a*4)) (y+a)

line x (y+(a*2)) (x-(a*3)) y

line x (y-(a*3)) (x+(a*2)) (y+a)

}

forever

{

rect 2 5 ()

}