You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.3 KiB
48 lines
1.3 KiB
%!PS
|
|
% Postscript that uses Ghostscript extensions to do simple transparency
|
|
|
|
/PageUsesTransparency true def
|
|
|
|
systemdict /.setalphaisshape known not
|
|
{
|
|
(\n\n%%%% WARNING: Transparency operations ignored - need to include -dALLOWPSTRANSPARENCY\n\n) print flush
|
|
/.pushpdf14devicefilter {pop} bind def
|
|
/.begintransparencygroup {pop pop pop pop pop} bind def
|
|
/.endtransparencygroup {} bind def
|
|
/.poppdf14devicefilter {} bind def
|
|
/.setfillconstantalpha {pop} bind def
|
|
/.setstrokeconstantalpha {pop} bind def
|
|
/PageUsesTransparency false def
|
|
} if
|
|
|
|
|
|
<<
|
|
/PageUsesTransparency PageUsesTransparency % needed if we are using transparency
|
|
/CompatibilityLevel 1.4
|
|
/PageSpotColors 0
|
|
>> setpagedevice % in case we are going to pdfwrite
|
|
|
|
% work around rectfill mapping directly to device fill_rectangle
|
|
/rectfill {
|
|
gsave 4 2 roll moveto 1 index 0 rlineto
|
|
0 exch rlineto neg 0 rlineto closepath fill grestore
|
|
} bind def
|
|
|
|
0 .pushpdf14devicefilter % depth .pushpdf14devicefilter -
|
|
.5 .9 .2 setrgbcolor
|
|
0 0 300 700 rectfill
|
|
|
|
.2 .5 .9 setrgbcolor
|
|
200 100 400 400 rectfill
|
|
|
|
<< >> clippath pathbbox newpath .begintransparencygroup
|
|
|
|
.5 .setfillconstantalpha
|
|
|
|
.9 .3 .1 setrgbcolor
|
|
|
|
100 200 500 500 rectfill
|
|
|
|
.endtransparencygroup
|
|
.poppdf14devicefilter
|
|
showpage
|