From 6925c2312bf64d643e674ffb79bd5d7f842f6d76 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Mon, 27 Nov 2006 00:18:34 +0000 Subject: update pstricks. git-svn-id: svn://tug.org/texlive/trunk@2547 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pstricks/pst-coil.pro | 33 -------- Master/texmf-dist/dvips/pstricks/pst-grad.pro | 106 ------------------------ Master/texmf-dist/dvips/pstricks/pst-text.pro | 111 -------------------------- 3 files changed, 250 deletions(-) delete mode 100644 Master/texmf-dist/dvips/pstricks/pst-coil.pro delete mode 100644 Master/texmf-dist/dvips/pstricks/pst-grad.pro delete mode 100644 Master/texmf-dist/dvips/pstricks/pst-text.pro (limited to 'Master/texmf-dist/dvips/pstricks') 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: PathPosition - -% Function: Searches for position of currentpath distance 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: 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 -- cgit v1.2.3