diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-grad.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pst-grad.pro | 106 |
1 files changed, 0 insertions, 106 deletions
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 |