
size 400 400
paper 0 10 10
fast
command rect x y 20 90 r
{
pen 10 80 60
line(x-20/2)(y-90/2)(x+90/2)(y-90/2)
pen 20 60 80
line(x+20/2)(y-90/2)(x+90/2)(y+90/2)
pen 80 60 80
line(x+20)(y-90)(x+90)(y+90/2)
pen 10 50 20
line(x-20)(y+90/2)(x+90)(y+90/2)
pen 90 40 20
line(x-20/2)(y+90/2)(x-90)(y+90)
pen 80 10 40
line(x+20)(y-90/2)(x+90/2)(y+90)
}
forever
{
rect