summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-lsystem
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-12-31 22:10:03 +0000
committerKarl Berry <karl@freefriends.org>2018-12-31 22:10:03 +0000
commit5a8c98d1c020d0d3d6dd0e44dbe41bf98adc7c32 (patch)
tree98a86c6fe030f727fba2b71713bf8b9939abcb08 /Master/texmf-dist/tex/generic/pst-lsystem
parentd35f3108a8ba42862521639efabe031e33b27266 (diff)
pst-lsystem (31dec18)
git-svn-id: svn://tug.org/texlive/trunk@49556 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-lsystem')
-rw-r--r--Master/texmf-dist/tex/generic/pst-lsystem/pst-lsystem.tex19
1 files changed, 8 insertions, 11 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-lsystem/pst-lsystem.tex b/Master/texmf-dist/tex/generic/pst-lsystem/pst-lsystem.tex
index bc76fbed916..68e19e086c5 100644
--- a/Master/texmf-dist/tex/generic/pst-lsystem/pst-lsystem.tex
+++ b/Master/texmf-dist/tex/generic/pst-lsystem/pst-lsystem.tex
@@ -25,8 +25,8 @@
% interface to the `xkeyval' package
\pst@addfams{pst-lsystem}
-\def\fileversion{0.01}
-\def\filedate{2018/09/22}
+\def\fileversion{0.02}
+\def\filedate{2018/12/31}
\message{`PST-lsystem' v\fileversion, \filedate\space (hv)}
%
\pstheader{pst-lsystem.pro}
@@ -35,6 +35,8 @@
\def\pst@tempg{}%
\pst@cntm=0
\ifx\relax#2\relax\else\pst@lsystem@@checkRule#2;\fi
+% \let#1\pst@tempg
+% \@namedef{\expandafter\@gobble\detokenize\expandafter{\string#1number}}{\the\pst@cntm}%
\expandafter\let\csname#1\endcsname\pst@tempg
\global\expandafter\edef\csname#1number\endcsname{\the\pst@cntm}%
}
@@ -54,22 +56,17 @@
\define@key[psset]{pst-lsystem}{X}[]{\pst@lsystem@checkRule{psk@lsystem@X}{#1}}
\define@key[psset]{pst-lsystem}{Y}[]{\pst@lsystem@checkRule{psk@lsystem@Y}{#1}}
\define@key[psset]{pst-lsystem}{Start}[]{\pst@lsystem@checkRule{psk@lsystem@Start}{#1}}
-\define@key[psset]{pst-lsystem}{Angle}[0]{\def\psk@lsystem@Angle{#1 }}
+\define@key[psset]{pst-lsystem}{Angle}[45]{\def\psk@lsystem@Angle{#1 }}
\define@key[psset]{pst-lsystem}{N}[5]{\def\psk@lsystem@N{#1 }}
\define@key[psset]{pst-lsystem}{Ftype}[4]{\def\psk@lsystem@Ftype{#1 }}
\define@key[psset]{pst-lsystem}{N2}[4]{\def\psk@lsystem@Nii{#1 }}
\define@key[psset]{pst-lsystem}{BaseLength}[1mm]{\pst@getlength{#1}\psk@lsystem@BaseLength}
-\psset[pst-lsystem]{F={},X={},Y={},Start={},Angle=0,N=5,Ftype=4,BaseLength=1mm}
+\psset[pst-lsystem]{F={},X={},Y={},Start={},Angle=45,N=5,Ftype=4,BaseLength=1mm}
%
-\define@key[psset]{pst-lsystem}{usecolor}[0]{\def\psk@lsystem@color{#1}}
+\define@key[psset]{pst-lsystem}{usecolor}[0]{\def\psk@lsystem@color{#1}}% 0 is no color
%
\define@key[psset]{pst-lsystem}{order}[5]{\pst@getint{#1}\psk@lsystem@order}
-%\define@key[psset]{pst-lsystem}{factor}[2]{\pst@checknum{#1}\psk@lsystem@factor}
-% Size (the smaller, the bigger), no need to be changed, normally
-%\define@key[psset]{pst-lsystem}{size}[4]{\pst@getint{#1}\psk@lsystem@size}
-%\define@key[psset]{pst-lsystem}{type}[0]{\pst@getint{#1}\psk@lsystem@type}
-\psset[pst-lsystem]{order=5,%factor=2,size=4,type=0,
- usecolor=0}
+\psset[pst-lsystem]{order=5,usecolor=0}
%
\def\pslsystem{\def\pst@par{}\pst@object{pslsystem}}
\def\pslsystem@i{\@ifnextchar(\pslsystem@ii{\pslsystem@ii(0,0)}}%