Digital Art: [Number] tendencije Zagreb 1961 → Khon Kaen 2009

% (c) 1965 - Petar Milojević / (c) 2002 - Michel Charpentier / (c) 2008 - Yukao Nagemi
/random { rand 2.0 31.0 exp div } def
/order 5 def
/angle 18 def
/open [ {gsave /depth depth 1 sub def depth 5 div dup setlinewidth 1 exch sub setgray } aload pop ] cvx def
/close { stroke /depth depth 1 add def grestore } def
/- { angle random 1.5 mul mul neg rotate } def
/+ { angle random 1.5 mul mul rotate } def
/F { dup 0 eq { depth 2 mul 0 rlineto } { 1 sub 8 {dup} repeat F F - open - F + F + F close + open + F - F - F close } ifelse pop} def
/Tree { F } def
gsave newpath 300 0 moveto 90 rotate /depth 6 def order Tree grestore
showpage