Lsys4.ps

/q {rotate} def /x {q dup 0 gt} def /f {0 1 rlineto} def /l {dup 1 sub 90 x {r} if f -90 x {l} if f 0 x {l} if -90 q f 0 x {r} if 90 q pop} def /r {dup 1 sub -90 x {l} if f 90 x {r} if f 0 x {r} if 90 q f 0 x {l} if -90 q pop} def 14 99 translate 4.6 dup scale 7 0 0 moveto r closepath fill showpage