summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2006-11-27 00:18:34 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2006-11-27 00:18:34 +0000
commit6925c2312bf64d643e674ffb79bd5d7f842f6d76 (patch)
tree0ec7270d17a631fba856b492225d46af93aaa83a /Master/texmf-dist/dvips
parentc588c9533b6b61c3234451e8c1bc2dd7aa69b00b (diff)
update pstricks.
git-svn-id: svn://tug.org/texlive/trunk@2547 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pst-coil.pro33
-rw-r--r--Master/texmf-dist/dvips/pstricks/pst-grad.pro106
-rw-r--r--Master/texmf-dist/dvips/pstricks/pst-text.pro111
3 files changed, 0 insertions, 250 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-coil.pro b/Master/texmf-dist/dvips/pstricks/pst-coil.pro
deleted file mode 100644
index 4b635cea9f6..00000000000
--- a/Master/texmf-dist/dvips/pstricks/pst-coil.pro
+++ /dev/null
@@ -1,33 +0,0 @@
-%!
-% PostScript prologue for pst-coil.tex.
-% Version 97 patch 1, 98/06/02
-% 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
diff --git a/Master/texmf-dist/dvips/pstricks/pst-grad.pro b/Master/texmf-dist/dvips/pstricks/pst-grad.pro
deleted file mode 100644
index 84b0ebfefc2..00000000000
--- a/Master/texmf-dist/dvips/pstricks/pst-grad.pro
+++ /dev/null
@@ -1,106 +0,0 @@
-%!
-% PostScript prologue for pst-grad.tex.
-% Version 1.04, 2004/06/23 (adding %GradientCircle style - D.G.)
-% prepared by Herbert Voss
-% For copying restrictions, see pstricks.tex.
-%
-% For the PSTricks gradient fillstyle.%
-% Based on some EPS files by leeweyr!bill@nuchat.sccsi.com (W. R. Lee).%
-% Syntax:% D.G. modification begin - Apr. 9, %1998
-%%%%%% R0 G0 B0 R1 G1 B1 NumLines MidPoint Angle GradientFill
-% ifGradientCircle GradientScale %GradientPosX GradientPosY
-% R0 G0 B0 R1 G1 B1 NumLines MidPoint %Angle GradientFill
-% D.G. modification end
-%
-/tx@GradientDict 40 dict def
-tx@GradientDict begin
-/GradientFill {
- rotate
- /MidPoint ED
- /NumLines ED
- /LastBlue ED
- /LastGreen ED
- /LastRed ED
- /FirstBlue ED
- /FirstGreen ED
-/FirstRed ED
-% D.G. modification begin - Apr. 9, 1998
-/GradientPosY ED
-/GradientPosX ED
- /GradientScale ED
- /ifGradientCircle ED
-% D.G. modification end
- % This avoids gaps due to rounding errors:
- clip
- pathbbox %leave llx,lly,urx,ury on stack
-% D.G. modification begin - Apr. 10, 1998
- 4 copy /ury ED /urx ED /lly ED /llx ED
-% D.G. modification end
- /y ED /x ED
-% D.G. modification begin - Apr. 10, 1998
-ifGradientCircle
- {0 GradientPosX eq
- {0 GradientPosX eq {2 copy translate} if} if}
- {2 copy translate} ifelse
-% D.G. modification end
- y sub neg /y ED
- x sub neg /x ED % This avoids gaps due to rounding errors:
- LastRed FirstRed add 2 div
- LastGreen FirstGreen add 2 div
- LastBlue FirstBlue add 2 div
- setrgbcolor
-% D.G. modification begin - Jul. 23, 1997 / Apr. 9, 1998
- ifGradientCircle
- {/YSizePerLine y NumLines div def
- /CurrentY y 2 div def
- /MidLine NumLines 2 div 1 MidPoint sub mul abs cvi def}
- {fill
- /YSizePerLine y NumLines div def
- /CurrentY 0 def
- /MidLine NumLines 1 MidPoint sub mul abs cvi def} ifelse
-% DG modification end
- MidLine NumLines 2 sub gt
- { /MidLine NumLines def }
- { MidLine 2 lt { /MidLine 0 def } if }
- ifelse
- MidLine 0 gt
- {
- /Red FirstRed def
- /Green FirstGreen def
- /Blue FirstBlue def
- /RedIncrement LastRed FirstRed sub MidLine 1 sub div def
- /GreenIncrement LastGreen FirstGreen sub MidLine 1 sub div def
- /BlueIncrement LastBlue FirstBlue sub MidLine 1 sub div def
- MidLine { GradientLoop } repeat
- } if
- MidLine NumLines lt
- {
- /Red LastRed def
- /Green LastGreen def
- /Blue LastBlue def
- /RedIncrement FirstRed LastRed sub NumLines MidLine sub 1 sub div def
- /GreenIncrement FirstGreen LastGreen sub NumLines MidLine sub 1 sub div def
- /BlueIncrement FirstBlue LastBlue sub NumLines MidLine sub 1 sub div def
- NumLines MidLine sub { GradientLoop } repeat }
- if
- } def/GradientLoop {
-% D.G. modification begin - Jul. 23, 1997 / Apr. 9, 1998
- ifGradientCircle
- {CurrentY 0 gt {
-% The default center used is the center of the bounding box of the object
- 0 GradientPosX eq {0 GradientPosX eq
- {/GradientPosX urx llx sub 2 div def
- /GradientPosY ury lly sub 2 div def} if} if
- GradientPosX GradientPosY CurrentY GradientScale mul 0 360 arc
- Red Green Blue setrgbcolor fill
- /CurrentY CurrentY YSizePerLine sub def
- /Blue Blue BlueIncrement add def
- /Green Green GreenIncrement add def
- /Red Red RedIncrement add def} if} {0 CurrentY moveto x 0 rlineto
- 0 YSizePerLine rlineto x neg 0 rlineto closepath
- Red Green Blue setrgbcolor fill /CurrentY CurrentY YSizePerLine add def
- /Blue Blue BlueIncrement add def /Green Green GreenIncrement add def
- /Red Red RedIncrement add def} ifelse% D.G. modification end
- }def
- end
-% END pst-grad.pro
diff --git a/Master/texmf-dist/dvips/pstricks/pst-text.pro b/Master/texmf-dist/dvips/pstricks/pst-text.pro
deleted file mode 100644
index 0e918ee570d..00000000000
--- a/Master/texmf-dist/dvips/pstricks/pst-text.pro
+++ /dev/null
@@ -1,111 +0,0 @@
-%!
-% PostScript header file pst-text.pro
-% Version 1.00, 2005/12/15
-% For distribution, see pstricks.tex.
-
-/tx@TextPathDict 40 dict def
-tx@TextPathDict begin
-
-% Syntax: <dist> PathPosition -
-% Function: Searches for position of currentpath distance <dist> from
-% beginning. Sets (X,Y)=position, and Angle=tangent.
-/PathPosition
-{ /targetdist exch def
- /pathdist 0 def
- /continue true def
- /X { newx } def /Y { newy } def /Angle 0 def
- gsave
- flattenpath
- { movetoproc } { linetoproc } { } { firstx firsty linetoproc }
- /pathforall load stopped { pop pop pop pop /X 0 def /Y 0 def } if
- grestore
-} def
-
-/movetoproc { continue { @movetoproc } { pop pop } ifelse } def
-
-/@movetoproc
-{ /newy exch def /newx exch def
- /firstx newx def /firsty newy def
-} def
-
-/linetoproc { continue { @linetoproc } { pop pop } ifelse } def
-
-/@linetoproc
-{
- /oldx newx def /oldy newy def
- /newy exch def /newx exch def
- /dx newx oldx sub def
- /dy newy oldy sub def
- /dist dx dup mul dy dup mul add sqrt def
- /pathdist pathdist dist add def
- pathdist targetdist ge
- { pathdist targetdist sub dist div dup
- dy mul neg newy add /Y exch def
- dx mul neg newx add /X exch def
- /Angle dy dx atan def
- /continue false def
- } if
-} def
-
-/TextPathShow
-{ /String exch def
- /CharCount 0 def
-% hv begin 2005-11-29 1.00
-% String length
-% { String CharCount 1 getinterval ShowChar
-% /CharCount CharCount 1 add def
- /CharSize 1 def
- currentfont /FontType get 0 eq
- { currentfont /FMapType get dup 2 eq exch dup 5 eq exch 9 eq or or
- { /CharSize 2 def} if
- } if
- String length CharSize idiv
- { String CharCount CharSize getinterval ShowChar
- /CharCount CharCount CharSize add def
-% hv end 2005-11-29 1.00
- } repeat
-} def
-
-% Syntax: <pathlength> <position> InitTextPath -
-/InitTextPath
-{ gsave
- currentpoint /Y exch def /X exch def
- exch X Hoffset sub sub mul
- Voffset Hoffset sub add
- neg X add /Hoffset exch def
- /Voffset Y def
- grestore
-} def
-
-/Transform
-{ PathPosition
- dup
- Angle cos mul Y add exch
- Angle sin mul neg X add exch
- translate
- Angle rotate
-} def
-
-/ShowChar
-{ /Char exch def
- gsave
- Char end stringwidth
- tx@TextPathDict begin
- 2 div /Sy exch def 2 div /Sx exch def
-
-%%% MV 10-09-99 00:36
- /sc?currentpoint where {pop sc?currentpoint} {currentpoint} ifelse
-% currentpoint
-
- Voffset sub Sy add exch
- Hoffset sub Sx add
- Transform
- Sx neg Sy neg moveto
- Char end tx@TextPathSavedShow
- tx@TextPathDict begin
- grestore
- Sx 2 mul Sy 2 mul rmoveto
-} def
-
-end
-% END pst-text.pro