summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-coil
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-11-30 03:23:45 +0000
committerKarl Berry <karl@freefriends.org>2006-11-30 03:23:45 +0000
commit0e16c58d10670a29d73183de0640f72f0857c829 (patch)
tree76b2ab21af87bb2a0f88c3a730903a58902a30ac /Master/texmf-dist/dvips/pst-coil
parentb2f5c5e4cf5d2c87a82dd927644fa213a0e02429 (diff)
new pstricks pst-grad and pst-coil
git-svn-id: svn://tug.org/texlive/trunk@2559 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-coil')
-rw-r--r--Master/texmf-dist/dvips/pst-coil/pst-coil.pro59
1 files changed, 59 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-coil/pst-coil.pro b/Master/texmf-dist/dvips/pst-coil/pst-coil.pro
new file mode 100644
index 00000000000..2e58074b963
--- /dev/null
+++ b/Master/texmf-dist/dvips/pst-coil/pst-coil.pro
@@ -0,0 +1,59 @@
+%!
+% PostScript prologue for pst-coil.tex.
+% Version 1.00, 2006/11/05
+% For distribution, see pstricks.tex.
+%
+/tx@CoilDict 40 dict def tx@CoilDict begin
+/CoilLoop {
+ /t ED
+ t sin AspectSin mul t 180 div AspectCos mul add t cos lineto } def
+/Coil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED
+ /ArmB ED
+ /ArmA ED
+ /h ED /w ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate
+ /BeginAngle ArmA AspectCos Div w h mul Div 360 mul def
+ /EndAngle TotalLength ArmB sub AspectCos Div
+ w h mul Div 360 mul def
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle Inc
+ EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+% DG/SR modification begin - Jun. 2, 1998 - Patch 1 (from Michael Vulis)
+% TotalLength 0 ArrowB lineto } def
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop } def
+% DG/SR modification end
+/AltCoil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED /h ED /w ED /EndAngle ED /BeginAngle ED
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle sin AspectSin mul
+ BeginAngle 180 div AspectCos mul add BeginAngle cos
+ /lineto load stopped { moveto } if
+ BeginAngle Inc EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix } def
+/ZigZag {
+ /ArmB ED /ArmA ED
+ 2 div /w ED
+ w mul /h ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x1 y1 translate y0 y1 sub x0 x1 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate TotalLength ArmA sub ArmB sub dup h div cvi /n ED n h mul
+ sub 2 div dup ArmA add
+ /ArmA ED ArmB add
+ /ArmB ED
+ /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
+%
+end
+% END pst-coil.pro