summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-coil
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-09-19 23:43:48 +0000
committerKarl Berry <karl@freefriends.org>2011-09-19 23:43:48 +0000
commitc7c92880e5c8f6ad55e824bccf807b912be9f92b (patch)
tree739cc6ec51c138590456de5ac34491a471802d3b /Master/texmf-dist/tex/generic/pst-coil
parent4d41d6dca62a66e63d7ec95657880e857efd4be4 (diff)
pst-coil 1.06 (19sep11)
git-svn-id: svn://tug.org/texlive/trunk@24020 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-coil')
-rw-r--r--Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex33
1 files changed, 17 insertions, 16 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex b/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex
index 1770fda18a9..da59da4c7ae 100644
--- a/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex
+++ b/Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-coil.tex 537 2011-07-12 08:07:40Z herbert $
+%% $Id: pst-coil.tex 578 2011-09-18 17:18:46Z herbert $
%% BEGIN pst-coil.tex
%%
%% Coils and zigzags with PSTricks
@@ -21,8 +21,8 @@
\ifx\PSTnodeLoaded\endinput \else\input pst-node.tex\fi
\ifx\PSTXKeyLoaded\endinput \else\input pst-xkey \fi
%
-\def\fileversion{1.05}
-\def\filedate{2011/07/12}
+\def\fileversion{1.06}
+\def\filedate{2011/09/17}
%
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11
@@ -85,29 +85,30 @@
\@nameuse{psls@\pslinestyle} }%
\end@OpenObj}
%
-\define@key[psset]{pst-coil}{bow}[\z@]{%
- \pst@getlength{#1}\psk@bow \pst@dima=\psk@bow pt
- \pst@absdim{\pst@dima}{\pst@dimb}
- \ifdim\pst@dimb<1pt \def\psk@bow{0}\fi}
-\psset[pst-coil]{bow=\z@}
+\define@key[psset]{pst-coil}{bow}[0]{%
+ \pst@getlength{#1}\psk@bow%
+ \pst@dimm=\psk@bow pt%
+ \pst@absdim{\pst@dimm}{\pst@dimn}%
+ \ifdim\pst@dimn<1pt \def\psk@bow{0}\fi}%
+\psset[pst-coil]{bow=0}
%
\def\pszigzag{\def\pst@par{}\pst@object{pszigzag}}
\def\pszigzag@i{\pst@getarrows\pszigzag@ii}
\def\pszigzag@ii(#1){\@ifnextchar({\pszigzag@iii{1}(#1)}{\pszigzag@iii{\z@}(0,0)(#1)}}
\def\pszigzag@iii#1(#2)(#3){%
\addbefore@par{bow=0}%
- \begin@OpenObj
- \pst@getcoor{#2}\pst@tempa
- \pst@getcoor{#3}\pst@tempb
- \pst@optcp{#1}\pst@tempa
+ \begin@OpenObj%
+ \pst@getcoor{#2}\pst@tempA%
+ \pst@getcoor{#3}\pst@tempB%
+ \pst@optcp{#1}\pst@tempA%
\addto@pscode{%
- \pst@tempa
- \pst@tempb
+ \pst@tempA
+ \pst@tempB
\pscoilheight
\psk@coilwidth
\psk@coilarmA
- \psk@coilarmB
- \ifdim\psk@bow pt=\z@\tx@ZigZag\else\psk@bow\space\tx@ZigZagCirc\fi
+ \psk@coilarmB
+ \ifdim\psk@bow pt=\z@ \tx@ZigZag \else \psk@bow\space \tx@ZigZagCirc \fi
\psline@iii
\tx@Line }%
\end@OpenObj}