diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-coil/pst-coil.pro')
-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 |