summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pst-lsystem/pst-lsystem.pro')
-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
+