作業7

油畫

size 400 400

paper 0

fast

command rect x y w h c

{

pen c h c

line (x+1) (y+h*2) (x+h*2) (y-h*2)

line (x-1) (y+h*2) (x+h*2) (y+h*2)

line (x-1) (y-h*2) (x-h*2) (y+h*2)

line (x+1) (y-h*2) (x-h*2) (y-h*2)

}

forever

{

rect 20 10 ()

}