summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-02-01 23:42:50 +0000
committerKarl Berry <karl@freefriends.org>2010-02-01 23:42:50 +0000
commit3556ffda02def0f822bd81adaa1a0f331e850ed6 (patch)
treec26f57e2781c870aeb3bb1a907f2db9822f7be27 /Master/texmf-dist/dvips
parentf3e45a772d199f398f301984a90991b4199cee23 (diff)
pst-coil 1.03 (1feb10)
git-svn-id: svn://tug.org/texlive/trunk@16895 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-coil/pst-coil.pro13
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