pst-coil 1.03 (1feb10)

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

1 files changed, 10 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 2bde2b1f5c2..518703e43f9 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.01, 2010/01/30
+% Version 1.03, 2010/02/01
 % For distribution, see pstricks.tex.
 %
 /tx@CoilDict 40 dict def tx@CoilDict begin
@@ -36,7 +36,10 @@
   /PointsPerPeriod ED
   /ArmB ED 
   /ArmA ED
-  /Amplitude ED /Frequency ED 
+  /Amplitude ED 
+  /roundValue ED
+  /relativePeriod ED 
+  /Periods ED 
   /y1 ED /x1 ED /y0 ED /x0 ED 
   x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth 
   dup /TotalLength ED
@@ -44,11 +47,15 @@
   Atan rotate 
   1 0 0 0 ArrowA ArmA 0 lineto 
   /mtrx CM def 
+  relativePeriod 
+    {} 
+    { SinLength Periods div roundValue { cvi } if
+      /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
   1 xStep 360 {                         % PointsPerPeriod times
     dup dxStep mul ArmA add exch        % x pos and value for the func
-    Frequency mul Func Amplitude mul lineto
+    Periods mul Func Amplitude mul lineto
   } for
   mtrx setmatrix TotalLength ArmB sub 0 lineto CP
   TotalLength 0 ArrowB lineto