size 300 300 forever { paper 0 0 7 pen 90 10 set B 50 repeat A 0 100 { same? A B { line A 0 A B line (B*2) 0 (B*2) (A*2) line (B*3) 0 (B*3) (A*3) line (B*4) 0 (B*4) (A*4) line (B*5) 0 (B*5) (A*5) line (B*6) 0 (B*6) (A*6)
} notsame? A B { line (A*1) 4 (B*1) (A*1) line (A*2) 2 (B*2) (A*2) line (A*3) 3 (B*3) (A*3)
line (A*6) 280 (B*6) (A*6) line (A*7) 180 (B*7) (A*7) line (A*8) 80 (B*8) (A*8) line (A*9) 8(B*9) (A*9) line (A*10) 0(B*10) (A*10)
command rect x y w h c { pen 60 70 line (x-w/3) (y-h/3) (x+w/3) (y-h/3) line (x+w/2) (y-h/2) (x+w/2) (y+h/2) line (x+w/2) (y+h/2) (x-w/2) (y+h/2) line (x-w/2) (y+h/2) (x-w/2) (y-h/2) } forever { rect 50 20 }
repeat x 0 200 { pen 10 10 line 100 100 x 0 } repeat x 0 200 { pen 50 10 line 200 100 x 200 }repeat x 0 200 { pen 50 10 line 200 100 x 0 }repeat x 0 200 { pen 50 10 line 0 100 x 200 }repeat x 0 200 { pen 50 10 line 0 100 x 0 }