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/dvips | |
| 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/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-coil/pst-coil.pro | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/texmf-dist/dvips/pst-coil/pst-coil.pro b/Master/texmf-dist/dvips/pst-coil/pst-coil.pro index 026f662e779..1e59078b28c 100644 --- a/Master/texmf-dist/dvips/pst-coil/pst-coil.pro +++ b/Master/texmf-dist/dvips/pst-coil/pst-coil.pro @@ -1,6 +1,6 @@ %!ps % PostScript prologue for pst-coil.tex. -% Version 1.05, 2011/07/12 +% Version 1.06, 2011/09/18 % For distribution, see pstricks.tex. % /tx@CoilDict 40 dict def tx@CoilDict begin @@ -73,7 +73,7 @@ /lineto load stopped { moveto } if BeginAngle Inc EndAngle { CoilLoop } for EndAngle CoilLoop mtrx setmatrix } def -/ZigZag { +/ZigZag { 15 dict begin /ArmB ED /ArmA ED 2 div /w ED w mul /h ED /y1 ED /x1 ED /y0 ED /x0 ED @@ -86,7 +86,8 @@ /x ArmB h 2 div add def mark 0 0 ArmB 0 n { x w /w w neg def /x x h add def } repeat - TotalLength ArmA sub 0 TotalLength 0 } def + TotalLength ArmA sub 0 TotalLength 0 + end } def % /ZigZagCirc { % x0 y0 x1 y1 bow h w ArmA ArmB on stack /bow ED |