data/secret

   1 %!PS-Adobe-3.0
   2 %%BoundingBox: 0 0 612 792
   3 %%Pages: 1
   4 %%LanguageLevel: 1
   5 %%DocumentData: Clean7Bit
   6 %%DocumentSuppliedResources: procset bannerprint/1.0
   7 %%DocumentNeededResources: font Helvetica Helvetica-Bold Times-Roman
   8 %%Creator: Michael Sweet, Apple Inc.
   9 %%CreationDate: D:20070620123000+0700
  10 %%Title: Test Page
  11 %%EndComments
  12 %%BeginProlog
  13 %%BeginResource procset bannerprint 1.3 0
  14 %
  15 %   PostScript banner page for the Common UNIX Printing System ("CUPS").
  16 %
  17 %   Copyright 2007 Apple Inc.
  18 %   Copyright 1993-2005 Easy Software Products
  19 %
  20 %   These coded instructions, statements, and computer programs are the
  21 %   property of Apple Inc. and are protected by Federal copyright law.
  22 %   Distribution and use rights are outlined in the file "LICENSE.txt"
  23 %   which is included with the CUPS source distribution.
  24 %
  25 /CENTER {                       % Draw centered text
  26                                 % (name) CENTER -
  27   dup stringwidth pop           % Get the width of the string
  28   0.5 mul neg 0 rmoveto         % Shift left 1/2 of the distance
  29   show                          % Show the string
  30 } bind def
  31 /RIGHT {                        % Draw right-justified text
  32                                 % (name) RIGHT -
  33   dup stringwidth pop           % Get the width of the string
  34   neg 0 rmoveto                 % Shift left the entire distance
  35   show                          % Show the string
  36 } bind def
  37 /NUMBER {                       % Draw a number
  38                                 % power n NUMBER -
  39   1 index 1 eq {                % power == 1?
  40     round cvi exch pop          % Convert "n" to integer
  41   } {
  42     1 index mul round exch div  % Truncate extra decimal places
  43   } ifelse
  44   100 string cvs show           % Convert to a string and show it...
  45 } bind def
  46 %%EndResource
  47 %%EndProlog
  48 %%Page: 1 1
  49 gsave
  50
  51   % Determine the imageable area and device resolution...
  52   initclip newpath clippath pathbbox    % Get bounding rectangle
  53   72 div /pageTop exch def              % Get top margin in inches
  54   72 div /pageRight exch def            % Get right margin in inches
  55   72 div /pageBottom exch def           % Get bottom margin in inches
  56   72 div /pageLeft exch def             % Get left margin in inches
  57
  58   /pageWidth pageRight pageLeft sub def % pageWidth = pageRight - pageLeft
  59   /pageHeight pageTop pageBottom sub def% pageHeight = pageTop - pageBottom
  60
  61   /boxWidth                             % width of text box
  62   pageWidth pageHeight lt
  63   { pageWidth 54 mul }
  64   { pageHeight 42 mul }
  65   ifelse def
  66
  67   newpath                               % Clear bounding path
  68
  69   % Create fonts...
  70   /bigFont /Helvetica-Bold findfont     % bigFont = Helvetica-Bold
  71   pageHeight 3 mul scalefont def        % size = pageHeight * 3 (nominally 33)
  72
  73   /mediumFont /Helvetica findfont       % mediumFont = Helvetica
  74   pageHeight 1.5 mul scalefont def      % size = pageHeight * 1.5 (nominally 16.5)
  75
  76   % Offset page to account for lower-left margin...
  77   pageLeft 72 mul
  78   pageBottom 72 mul
  79   translate
  80
  81   % Draw the label at the top and bottom...
  82   0 setgray                             % Color
  83
  84   pageWidth 36 mul                      % Center of page
  85   pageHeight 72 mul                     % Top of page
  86   pageWidth 9 mul sub                   % - 3 lines
  87   moveto                                % Position text
  88   bigFont setfont                       % Font
  89   (Secret) CENTER                       % Show text centered
  90
  91   pageWidth 36 mul                      % Center of page
  92   pageHeight 6 mul                      % Bottom of page
  93   moveto                                % Position text
  94   bigFont setfont                       % Font
  95   (Secret) CENTER                       % Show text centered
  96
  97   % Job information box...
  98   pageWidth 36 mul 9 add                % x = pageWidth * 1/2 * 72 + 9
  99   boxWidth 0.5 mul sub                  % x-= 1/2 box width
 100   pageHeight 30 mul 9 sub               % y = pageHeight * 1/2 * 72 - 9
 101   boxWidth                              % w = box width
 102   pageHeight 14 mul                     % h = pageHeight * 1/2 * 72
 103   0.5 setgray rectfill                  % Draw a shadow
 104
 105   pageWidth 36 mul                      % x = pageWidth * 1/2 * 72
 106   boxWidth 0.5 mul sub                  % x-= 1/2 box width
 107   pageHeight 30 mul                     % y = pageHeight * 1/4 * 72
 108   boxWidth                              % w = box width
 109   pageHeight 14 mul                     % h = pageHeight * 1/2 * 72
 110
 111   4 copy 1 setgray rectfill             % Clear the box to white
 112   0 setgray rectstroke                  % Draw a black box around it...
 113
 114   % Job information text...
 115   mediumFont setfont                    % Medium sized font
 116
 117   pageWidth 36 mul                      % x = pageWidth * 1/2 * 72
 118   pageHeight 36 mul                     % y = pageHeight * 1/2 * 72
 119   pageHeight 5 mul add                  % y += 3.333 lines
 120   2 copy                                % Copy X & Y
 121   moveto
 122   (Job ID: ) RIGHT
 123   2 copy                                % Copy X & Y
 124   moveto
 125   ({printer-name}-{job-id}) show
 126
 127   pageHeight 3 mul sub                  % y -= 2 lines
 128   2 copy                                % Copy X & Y
 129   moveto
 130   (Title: ) RIGHT
 131   2 copy                                % Copy X & Y
 132   moveto
 133   ({job-name}) show
 134
 135   pageHeight 3 mul sub                  % y -= 2 lines
 136   2 copy                                % Copy X & Y
 137   moveto
 138   (Requesting User: ) RIGHT
 139   2 copy                                % Copy X & Y
 140   moveto
 141   ({job-originating-user-name}) show
 142
 143   ({?job-billing}) () ne {
 144     pageHeight 3 mul sub                % y -= 2 lines
 145     2 copy                              % Copy X & Y
 146     moveto
 147     (Billing Info: ) RIGHT
 148     2 copy                              % Copy X & Y
 149     moveto
 150     ({job-billing}) show
 151   } if
 152
 153 % Show the page...
 154 grestore
 155 showpage
 156 %
 157 % End of "$Id: secret 6649 2007-07-11 21:46:42Z mike $".
 158 %
 159 %%EOF