%!PS

% Simple transparency demo
% ========================
% by  Don Lancaster

%  Copyright c 2005 by Don Lancaster & Synergetics, Box 809, Thatcher, AZ, 85552
%  (928) 428-4073 Email: don@tinaja.com Website: http://www.tinaja.com
%  Consulting services available http://www.tinaja.com/info01.html
%  Linking welcome. Reposting expressly forbidden. 

%  All commercial rights and all electronic media rights ~fully~ reserved.
%  Linking usually welcome. Reposting expressly forbidden. Version 1.1 

%  A simple two squares transparency demo using /SetTransparency

%  IMPORTANT NOTE: Don Lancaster's file gonzo.ps is OPTIONAL for this program.
%  After obvious location mods, uncomment ONE of the following two lines:

% (C:\\Documents and Settings\\don\\Desktop\\gonzo\\gonzo.ps) run  % use internal gonzo
% (A:\\gonzo.ps) run  % use external gonzo

%  NOTE THAT ALL PS FILENAME STRINGS !!!DEMAND!!! DOUBLE REVERSE SLASHES.

%  GONZO20A Guru Gonzo PostScript power tools (Interim release)
%  Includes gonzo justification and layout utilities.

%  Copyright c 1990, 1996, 2001, 2005 by Don Lancaster and Synergetics, Box 809,
%  Thatcher Arizona, 5552 (928) 428-4073  don@tinaja.com  support
%  via http://www.tinaja.com  All commercial rights and all electronic
%  media rights **FULLY** reserved. Reposting is expressly forbidden.


%%%%%%%%%%% Distiller 7 transparency demo %%%%%%%%%%%%

<< /AllowTransparency true >> setdistillerparams


% This code locks pdfmark commands out of a PostScript printer.

/pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse

   << /Allowtransparency true >> setdistillerparams



% currentdistillerparams {exch == == (\n\n) print} forall % optional viewer




gsave 100 100 translate

    
          0.4 0.7 1 setrgbcolor                % on the aqua side of blue
          40 40 60 60 rectfill                 % put down a background blue square
gsave
          [ /ca .6  /SetTransparency pdfmark   % set desired transparency


          1 0.5 0 setrgbcolor                  % red side of orange
          20 20 60 60 rectfill                 % do background opaque box
grestore
grestore

showpage





%%%%%%%%%%%%%%%%%%%%

% EOF