diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro b/Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro new file mode 100644 index 00000000000..b4b047722e1 --- /dev/null +++ b/Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro @@ -0,0 +1,26 @@ +%% 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 +% + +end + |