Import Ghostscript 9.50ghostscript-9.50

Signed-off-by: Thomas Deutschmann <whissi@gentoo.org>

1 files changed, 48 insertions, 0 deletions

diff --git a/examples/transparency_example.ps b/examples/transparency_example.ps
new file mode 100644
index 00000000..82ffadab
--- /dev/null
+++ b/examples/transparency_example.ps
@@ -0,0 +1,48 @@
+%!PS
+%   Postscript that uses Ghostscript extensions to do simple transparency
+
+/PageUsesTransparency true def
+
+systemdict /.pushpdf14devicefilter known not
+{
+    (\n\n%%%% WARNING: Transparency operations ignored - probably due to using -dSAFER\n\n) print flush
+    /.pushpdf14devicefilter {pop} bind def
+    /.begintransparencygroup {pop pop pop pop pop} bind def
+    /.endtransparencygroup {} bind def
+    /.poppdf14devicefilter {} bind def
+    /.setopacityalpha {pop} bind def
+    /.setshapealpha {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 .setopacityalpha 1 .setshapealpha
+
+     .9 .3 .1 setrgbcolor
+
+     100 200 500 500 rectfill
+
+     .endtransparencygroup
+.poppdf14devicefilter
+showpage