diff options
author | Karl Berry <karl@freefriends.org> | 2018-09-25 20:33:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-09-25 20:33:21 +0000 |
commit | 3e004e73a1f3a3a69e57c1a809fe6c6fbbb0371f (patch) | |
tree | bc08c6040194d365eb047d284e2da75ceec80b44 /Master/texmf-dist/dvips | |
parent | 4abba3d913a7f4857425e6813470cf2918008a33 (diff) |
pst-lsystem (25sep18)
git-svn-id: svn://tug.org/texlive/trunk@48762 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-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 + |