summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-coil/pst-coil.pro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-05-13 21:29:20 +0000
committerKarl Berry <karl@freefriends.org>2015-05-13 21:29:20 +0000
commit8e1d0ddbcabb0f7fa60174ba898b5c6920f39cf3 (patch)
tree02dade6b044d1cce3b501c94a85417c72b9eef6e /Master/texmf-dist/dvips/pst-coil/pst-coil.pro
parent1ca60c114c8486b55933dbeda9f824c4623cd6a1 (diff)
pst-coil (13may15)
git-svn-id: svn://tug.org/texlive/trunk@37377 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-coil/pst-coil.pro')
-rw-r--r--Master/texmf-dist/dvips/pst-coil/pst-coil.pro17
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 {