mas 110 exhibition - jshafer
Picasso-esque
2c
|
paper 0 pen 100 command rectangle a b c d { line a b d b line a b a c line a c d c line d b d c } command rectInrect w x y z { repeat b 0 10 { set a (b*12) pen 30 rectangle (50-a) (50-a) (a+50) (a+50) } } rectInrect 10 15 40 60 pen 80 repeat a 40 60 { line a 20 40 60 } repeat a 30 80 { pen 20 line 10 a 90 80 } command zigzag e f { line e 20 f 30 line f 30 e 40 line e 40 f 50 line f 50 e 60 line e 60 f 70 line f 70 e 80 line e 80 f 90 line f 90 e 95 } pen 90 zigzag 20 30 pen 60 zigzag 27 34 command fan c d { pen 100 line 50 98 c d line 50 98 (c+5) (d-1) line 50 98 (c+10) (d-3) line 50 98 (c+15) (d-5) } fan 40 55 command darktrap m n o { line n m (n+5) (m+10) line n m o m line o m (o+5) (m+10) line (n+5) (m+10) (o+5) (m+10) } command lighttrap f g h { line (g+5) f (h+5) f line (g+5) f g (f+10) line (h+5) f h (f+10) line h (f+10) g (f+10) } pen 60 repeat m 60 90 { darktrap 8 m 90 } pen 60 repeat m 60 90 { darktrap 28 m 90 } pen 60 repeat m 60 90 { darktrap 48 m 90 } pen 60 repeat m 60 90 { darktrap 68 m 90 } pen 40 repeat m 60 90 { lighttrap 18 m 90 } pen 40 repeat m 60 90 { lighttrap 38 m 90 } pen 40 repeat m 60 90 { lighttrap 58 m 90 } pen 40 repeat m 60 90 { lighttrap 78 m 90 } pen 75 repeat t 5 10 { line t 0 t 100 } |