%!ps % Modified PostScript fractal fern fernx2.psl % ======= % Copyright c 9/2017 by Don Lancaster & Synergetics, Box 809, Thatcher, AZ, 85552 % (928) 428-4073 Email: don@tinaja.com Website: http://www.tinaja.com % Consulting services available don@tinaja.com or http://www.tinaja.com/info01.html % All commercial rights and all electronic media rights ~fully~ reserved. % Linking usually welcome. Reposting expressly forbidden. Version 2.1 % Send code to Acrobat Distiller, preferably using Windows Command % mode and "//acrodist /F". % Allow 40 seconds or so processing time with default settings. /showbackground true store showbackground { 100 270 moveto 100 630 lineto 320 630 lineto 320 270 lineto closepath gsave 4 setlinewidth 0 0.5 0 setrgbcolor stroke grestore 0.83 1 0.83 setrgbcolor fill } if /problistcreate {mark /counter 0 def probabilities {128 mul round cvi {transforms counter get} repeat /counter counter 1 add def} forall counttomark 128 sub neg dup 0 gt { [1 0 0 1 0 0] repeat} {pop} ifelse] /problist exch def} bind def /doit {problistcreate 1 1 20 {problist rand -24 bitshift get transform 2 copy moveto 0.001 10 rlineto} repeat newpath numdots {problist rand -24 bitshift get transform 2 copy moveto dotsize 0 rlineto stroke} repeat} bind def % /// demo - remove before use. /// /dotsize 0.0001 store /numdots 250000 def % increase for denser image; decrease to print faster /transforms [ [0 0 0 .16 0 0] [.2 .23 -.26 .22 0 1.6] [-.15 .26 .28 .24 0 .44] [.85 -.04 .04 .85 0 1.6] ] def /probabilities [ .01 .07 .07 .85 ] def 1 setlinecap 0.02 setlinewidth 200 300 translate 30 dup scale 0 0.5 0 setrgbcolor doit showpage % EOF