examples/transparency_example.ps


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

%!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