diff options
author | Karl Berry <karl@freefriends.org> | 2011-09-19 23:43:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-09-19 23:43:48 +0000 |
commit | c7c92880e5c8f6ad55e824bccf807b912be9f92b (patch) | |
tree | 739cc6ec51c138590456de5ac34491a471802d3b /Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex | |
parent | 4d41d6dca62a66e63d7ec95657880e857efd4be4 (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/pst-coil.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-coil/pst-coil.tex | 33 |
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} |