diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-slpe/pst-slpe.pro | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/Master/texmf-dist/dvips/pst-slpe/pst-slpe.pro b/Master/texmf-dist/dvips/pst-slpe/pst-slpe.pro index d64911ad77a..ce4ab2c2f38 100644 --- a/Master/texmf-dist/dvips/pst-slpe/pst-slpe.pro +++ b/Master/texmf-dist/dvips/pst-slpe/pst-slpe.pro @@ -25,6 +25,8 @@ %% in directory macros/latex/base/lppl.txt. %% /tx@PstSlopeDict 60 dict def tx@PstSlopeDict begin +/Opacity 1 def % preset, no transparency +/Opacity++ { Opacity dOpacity add /Opacity ED } def /max {2 copy lt {exch} if pop} bind def /Iterate { 1 sub /NumSegs ED @@ -34,7 +36,10 @@ /ThisS ED /ThisH ED /ThisPt ED - gsave fill grestore + Opacity .setopacityalpha + gsave + fill + grestore NumSegs { dup mul 3 1 roll dup mul 3 1 roll dup mul 3 1 roll setrgbcolor currenthsbcolor @@ -86,9 +91,16 @@ } if } def /SlopesFill { + /Fading ED % do we have fading? + Fading { + /FadingEnd ED % the last opacity value + dup /FadingStart ED % the first opacity value + /Opacity ED % the opacity start value + } if gsave 180 add rotate /NumSteps ED + Fading { /dOpacity FadingEnd FadingStart sub NumSteps div def } if clip pathbbox /h ED /w ED @@ -97,6 +109,10 @@ w sub neg /w ED /XInc w NumSteps div def /DrawStep { + Fading { % do we have a fading? + Opacity .setopacityalpha % set opacity value + Opacity++ % increase opacity + } if 0 0 XInc h rectfill XInc 0 translate } bind def @@ -104,11 +120,18 @@ grestore } def /CcSlopesFill { + /Fading ED % do we have fading? + Fading { + /FadingEnd ED % the last opacity value + dup /FadingStart ED % the first opacity value + /Opacity ED % the opacity start value + } if gsave /Radius ED /CenterY ED /CenterX ED /NumSteps ED + Fading { /dOpacity FadingEnd FadingStart sub NumSteps div def } if clip pathbbox /h ED /w ED @@ -120,6 +143,10 @@ /RadPerStep Radius NumSteps div neg def /Rad Radius def /DrawStep { + Fading { % do we have a fading? + Opacity .setopacityalpha % set opacity value + Opacity++ % increase opacity + } if 0 0 Rad 0 360 arc closepath fill /Rad Rad RadPerStep add def @@ -128,12 +155,19 @@ grestore } def /RadSlopesFill { + /Fading ED % do we have fading? + Fading { + /FadingEnd ED % the last opacity value + dup /FadingStart ED % the first opacity value + /Opacity ED % the opacity start value + } if gsave rotate /Radius ED /CenterY ED /CenterX ED /NumSteps ED + Fading { /dOpacity FadingEnd FadingStart sub NumSteps div def } if clip pathbbox /h ED /w ED @@ -145,6 +179,10 @@ /AngleIncrement 360 NumSteps div neg def /dY AngleIncrement sin AngleIncrement cos div Radius mul def /DrawStep { + Fading { % do we have a fading? + Opacity .setopacityalpha % set opacity value + Opacity++ % increase opacity + } if 0 0 moveto Radius 0 rlineto 0 dY rlineto |