%!PS<br>
% Time-stamp: <24 May 2002 at 18:50:41 by charpov on berlioz.cs.unh.edu><br>
% Copyright 2002 - Michel Charpentier<br>
<br>
% Branching fractal curve, one stroke per branch.<br>
<br>
/fast? false def % choice between faster or nicer<br>
<br>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
<br>
% PARAMETERS<br>
<br>
% Paper size, in dots (letter)<br>
/paperx 8.5    72 mul def<br>
/papery 11     72 mul def<br>
<br>
% Order<br>
/order 5 def<br>
<br>
% Thickness of the lines<br>
/thick 25 def<br>
<br>
% Angle<br>
/angle 22.5 def<br>
<br>
% Equation: F -> F F - [ - F + F + F ] + [ + F - F - F ]<br>
/START { F } def<br>
/F {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dup 0 eq<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ D }<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ 1 sub 8 {dup} repeat  F F - B - F + F + F E + B + F - F - F E }<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifelse pop<br>
} bind def<br>
<br>
% Factor (how much segments decrease with order), no need to be changed<br>
/factor { pop 2 } def % for this equation<br>
<br>
% Size (the smaller, the bigger), no need to be changed, normally<br>
/size 4 def<br>
<br>
% Position, no need to be changed, normally<br>
/xx paperx 0.3 mul def<br>
/yy 25 def <br>
<br>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
<br>
% COLORS<br>
<br>
% define a color procedure.  Parameter is depth.  BW used if no color defined<br>
/color1 { % random branches<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pop 3 {rand 100 mod 100 div} repeat setrgbcolor<br>
} def <br>
<br>
/color2 { % random subtrees<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2 eq {3 {rand 100 mod 100 div} repeat setrgbcolor} if<br>
} def <br>
<br>
/color3 { % lighter green towards leaves, linear<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;order exch sub order 2 mul div 1 3 div exch .7 exch sethsbcolor<br>
} def<br>
<br>
/color4 { % lighter green towards leaves, exponential<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;neg 1.5 exch exp 2 div 1 3 div exch .7 exch sethsbcolor<br>
} def<br>
<br>
/color { color4 } bind def <br>
<br>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
<br>
% CODE<br>
<br>
1 setlinejoin<br>
1 setlinecap<br>
<br>
/line papery size div thick div def % fills the page, roughly<br>
<br>
/D { line 0 rlineto } bind def<br>
<br>
/B [ % quite dirty, but it works...<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fast? { {currentpoint stroke moveto} aload pop } if<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{gsave} aload pop<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;currentdict /color known { {dup color} aload pop } if<br>
] cvx bind def<br>
<br>
/E { stroke grestore } bind def<br>
<br>
/- { % rotation to the right <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;angle neg rotate<br>
} bind def<br>
<br>
/+ { % rotation to the left<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;angle rotate<br>
} bind def<br>
<br>
% drawing<br>
gsave<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newpath<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;xx yy moveto % centers in page, roughly<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;90 rotate<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;thick 1 1 order { factor div } for dup scale<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;order START<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stroke<br>
grestore<br>
<br>
% Equation<br>
gsave<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/Courrier-Bold findfont 10 scalefont setfont<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Angle: 22.5) 300 45 moveto show <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Axiom: F) 300 35 moveto show<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(F -> FF-[-F+F+F]+[+F-F-F]) 300 25 moveto show<br>
grestore<br>
<br>
% Signature<br>
gsave<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;paperx 60 sub 20 translate<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 setlinejoin<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 setlinecap<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1 setgray<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newpath<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;20 20 20 0 360 arc fill<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0 setgray<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newpath<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10 5 moveto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0 20 rlineto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10 -8 rlineto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10 8 rlineto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0 -20 rlineto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10 25 moveto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4 12 rlineto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;14 5 moveto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;6 12 rlineto<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stroke<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;22 21 1 0 360 arc fill<br>
grestore<br>
<br>
showpage<br>