pst-coil (13may15)

git-svn-id: svn://tug.org/texlive/trunk@37377 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 11 insertions, 6 deletions

diff --git a/Master/texmf-dist/dvips/pst-coil/pst-coil.pro b/Master/texmf-dist/dvips/pst-coil/pst-coil.pro
index 1e59078b28c..9513e991946 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.06, 2011/09/18
+% Version 1.07, 2015/05/13
 % For distribution, see pstricks.tex.
 %
 /tx@CoilDict 40 dict def tx@CoilDict begin
@@ -32,6 +32,7 @@
 % DG/SR modification end
 %
 /Sin { 
+  25 dict begin
   /Func ED
   /PointsPerPeriod ED
   /ArmB ED 
@@ -41,12 +42,10 @@
   /relativePeriod ED 
   /Periods ED 
   /y1 ED /x1 ED /y0 ED /x0 ED 
-  x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth 
+  y1 y0 sub x1 x0 sub 2 copy Pyth 
   dup /TotalLength ED
   ArmA sub ArmB sub /SinLength ED 
-  Atan rotate 
-  1 0 0 0 ArrowA ArmA 0 lineto 
-  /mtrx CM def 
+  Atan /RotAngle ED
   relativePeriod 
     {} 
     { SinLength Periods div 
@@ -54,13 +53,19 @@
       /Periods ED } ifelse
   /dxStep SinLength 360 div def         % the default step for x pos
   /xStep 360 PointsPerPeriod div def    % the step for the for loop
+  /mtrx CM def 
+  x0 y0 translate 
+  RotAngle rotate 
+  1 0 0 0 ArrowA ArmA 0 lineto 
   1 xStep 360 {                         % PointsPerPeriod times
     dup dxStep mul ArmA add exch        % x pos and value for the func
     Periods mul Func Amplitude mul lineto
   } for
-  mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+  TotalLength ArmB sub 0 lineto CP
   TotalLength 0 ArrowB lineto
+  mtrx setmatrix 
   pop pop pop pop 
+  end
 } def
 %
 /AltCoil {