size 400 400 paper 100 fast command rects x y w h r g b { pen r g b repeat w2 20 50 { pen r g b line (x+(w2/3)) (y-h/3) (x+(w2/3)) (y+h/3) } } forever { rects 50 50
command rect x y w h c { pen 20 60 80 line (x-w/x) (y-h/x) (x+w/x) (y-h/x) line (x+w/w) (y-h/w) (x+w/w) (y+h/w) line (x+w/y) (y+h/y) (x-w/y) (y+h/y) } forever { rect 10 10 }