arrow leftarrow uparrow right

Generating by Numbers

heather
[Number] tendencije: Zagreb 1961 → Khon Kaen 2009, Digital print (dimensions variable), (c) all rights reserved, 2008

% inspired from 1965 - Petar Milojević and 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

Polladea.7
Leaving by Numbers, Digital print (dimensions variable), (c) all rights reserved, 2008

500 500
10000000 {
newpath
1 random setgray
1 random setlinewidth
moveto
5 random_symmetrical 5 random_symmetrical rlineto
currentpoint
stroke
} repeat

plant4_BW
Starring by Numbers, Digital print (dimensions variable), (c) all rights reserved, 2008

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

Polladea.6
Staircasing by Numbers, Digital print (dimensions variable), (c) all rights reserved, 2008


10000 {
newpath
1 random setgray
1 random setlinewidth
1000 random_symmetrical dup neg moveto
100 {
30 3 random_symmetrical rlineto
3 random_symmetrical 30 rlineto
} repeat
stroke
} repeat

Polladea.5
Lining (up) by Numbers, Digital print (dimensions variable), (c) all rights reserved, 2008

/random {
rand 2 31 exp div mul
} def

/random_symmetrical {
dup random 2 mul exch sub
} def

10000 {
1 random setgray
1 random setlinewidth

newpath
1000 random_symmetrical dup neg moveto
1000 dup 100 random add rlineto

-1000 random dup rmoveto
10 random_symmetrical 10 random_symmetrical rlineto
stroke
} repeat


Polladea
Dripping by Numbers, (c) all rights reserved, 2008

pollaeda1