summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/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/dvips/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/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