From c7c92880e5c8f6ad55e824bccf807b912be9f92b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 19 Sep 2011 23:43:48 +0000 Subject: pst-coil 1.06 (19sep11) git-svn-id: svn://tug.org/texlive/trunk@24020 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-coil/pst-coil.pro | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/dvips/pst-coil') 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 -- cgit v1.2.3