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 }
paper 65 88 80 size 200 200 repeat A 0 200 { pen A line A 10 A 20 line A 25 A 35 line A 40 A 50 line A 55 A 65 line A 70 A 85 line A 90 A 100 line A 115 A 125 line A 130 A 135 line A 145 A 155 line A 160 A 170 line A 175 A 185 line A 190 A 200 }
size 300 300 fast Repeat A 30 90 { circle 150 150 (A+20) 30 circle 50 250 (A+20) 30 circle 250 50 (A+20) 30 circle 50 50 (A+20) 30 circle 250 250 (A+20) 30 }