//---------------- repeat A 125 275 { pen 100 0 0 line 125 460 A 200 } //---------- repeat A 50 125 { pen 100 10 0 line 50 270 A 315 } repeat A 50 125 { pen 0 30 0 line 125 315 A 270 } //-------------- pen 100 100 80 Repeat A 250 260 { line 25 A 125 A } //------------------ repeat A 90 125 { pen 100 100 0 line 125 215 A 235 } repeat A 105 125 { pen 80 0 0 line 125 200 A 215 } //----------------- repeat A 45 80 { pen 100 line 65 180 A 220 } //--------------- repeat A 25 225 { pen 100 50 0 line 125 65 A 180 } //------------------- repeat A 275 350 { pen 100 line 315 290 A 235 } repeat A 280 345 { pen 100 line 315 235 A 165 } repeat A 280 345 { pen 100 line 315 165 A 75 } //---------------- pen 0 Repeat B 100 20 { circle 465 275 B 0 } pen 100 Repeat B 0 25 { circle 465 275 B 100 } pen 100 Repeat B 100 95 { circle 465 275 B 100 } //---------------- repeat A 405 525 { pen 50 00 0 line 465 275 A 400 } repeat A 425 505 { pen 50 00 0 line 465 275 A 75 } //---------------------- pen 100 100 0 Repeat A 465 475 { line 510 A 575 A }
程式碼: size 200 200 paper 50 command square x y s c { pen c line x y s c line (x+c) y s c line (x+s) (y+s) (x+s) y line (x+s) (y+s) (x+c) y } repeat A 0 50 { repeat B 0 50 { square (A*10+5) (B*10+5) 5 (100-(A*B-50)) } }