//a guitar paper 43 command block a b e { repeat d 0 e { pen (d + e) set c (d + a) line c b c (b - e) } } command block2 a b c { repeat d 0 c { pen (((100 - d) * b) / a) set e (b + d) line a e (a - c) e } } command square a b c { pen 81 line a b (a + c) b line (a + c) b (a +c) (b + c) line (a + c) (b + c) a (b + c) line a (b + c) a b } command rectblock a b c e { repeat d a (a + c) { pen d line a (b + d) (a + e) (b + d) } } command triangle a b c { pen (a + b) line a b (a + c) (b + c) line (a + c) (b + c) ((a + b) / 2) (a + c) line ((a + b) / 2) (a + c) a b } triangle 60 75 25 rectblock 50 0 30 10 square 80 88 10 block 65 80 10 block2 50 40 20 block 25 40 17 square 0 2 43 triangle 9 12 25 rectblock 10 5 16 2 rectblock 16 1 29 2 rectblock 19 3 30 2
-gary escudero