%% pst-lsystem.pro (c) sep 22, 2018 Herbert Voss
%% version 0.01 2018/09/22
%
% based on the work of Michel Charpentier
%
/tx@lsystemDict 6 dict def
tx@lsystemDict begin
/fast? true def % choice between faster or nicer
/D { Element 0 rlineto } bind def
/B [ % quite dirty, but it works...
fast? { {currentpoint stroke moveto} aload pop } if
{gsave} aload pop
{ dup color } aload pop
] cvx bind def
%/B { currentpoint stroke moveto gsave } bind def
/E { stroke grestore } bind def
/- { angle neg rotate } def % rotation to the right
/+ { angle rotate } def % rotation to the left
%
