summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-coil
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pst-coil')
-rw-r--r--Master/texmf-dist/dvips/pst-coil/pst-coil.pro7
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