2 %%BoundingBox: 0 0 612 792
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
13 %%BeginResource procset bannerprint 1.3 0
15 % PostScript banner page for the Common UNIX Printing System ("CUPS").
17 % Copyright 2007 Apple Inc.
18 % Copyright 1993-2005 Easy Software Products
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.
25 /CENTER { % Draw centered text
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
31 /RIGHT { % Draw right-justified text
33 dup stringwidth pop % Get the width of the string
34 neg 0 rmoveto % Shift left the entire distance
35 show % Show the string
37 /NUMBER { % Draw a number
39 1 index 1 eq { % power == 1?
40 round cvi exch pop % Convert "n" to integer
42 1 index mul round exch div % Truncate extra decimal places
44 100 string cvs show % Convert to a string and show it...
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
58 /pageWidth pageRight pageLeft sub def % pageWidth = pageRight - pageLeft
59 /pageHeight pageTop pageBottom sub def% pageHeight = pageTop - pageBottom
61 /boxWidth % width of text box
62 pageWidth pageHeight lt
67 newpath % Clear bounding path
70 /bigFont /Helvetica-Bold findfont % bigFont = Helvetica-Bold
71 pageHeight 3 mul scalefont def % size = pageHeight * 3 (nominally 33)
73 /mediumFont /Helvetica findfont % mediumFont = Helvetica
74 pageHeight 1.5 mul scalefont def % size = pageHeight * 1.5 (nominally 16.5)
76 % Offset page to account for lower-left margin...
81 % Draw the label at the top and bottom...
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 (Confidential) CENTER % Show text centered
91 pageWidth 36 mul % Center of page
92 pageHeight 6 mul % Bottom of page
93 moveto % Position text
94 bigFont setfont % Font
95 (Confidential) CENTER % Show text centered
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
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
111 4 copy 1 setgray rectfill % Clear the box to white
112 0 setgray rectstroke % Draw a black box around it...
114 % Job information text...
115 mediumFont setfont % Medium sized font
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
125 ({printer-name}-{job-id}) show
127 pageHeight 3 mul sub % y -= 2 lines
135 pageHeight 3 mul sub % y -= 2 lines
138 (Requesting User: ) RIGHT
141 ({job-originating-user-name}) show
143 ({?job-billing}) () ne {
144 pageHeight 3 mul sub % y -= 2 lines
147 (Billing Info: ) RIGHT
157 % End of "$Id: confidential 6649 2007-07-11 21:46:42Z mike $".