summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-09-22 17:55:12 +0000
committerKarl Berry <karl@freefriends.org>2008-09-22 17:55:12 +0000
commited80c4f7098edf2e77cf9733453b78815de48b16 (patch)
tree7efb0f789c9d8348b55f7c7565beadca4b936532 /Master/texmf-dist/dvips
parent9da98529e177e6454863e2131dfdb16dc2c37e85 (diff)
pst-slpe 1.3 (21sep08)
git-svn-id: svn://tug.org/texlive/trunk@10689 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-slpe/pst-slpe.pro40
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