summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-lsystem
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-09-25 20:33:21 +0000
committerKarl Berry <karl@freefriends.org>2018-09-25 20:33:21 +0000
commit3e004e73a1f3a3a69e57c1a809fe6c6fbbb0371f (patch)
treebc08c6040194d365eb047d284e2da75ceec80b44 /Master/texmf-dist/dvips/pst-lsystem
parent4abba3d913a7f4857425e6813470cf2918008a33 (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/pst-lsystem')
-rw-r--r--Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro26
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
+