%!PS-Adobe-3.0 %%BoundingBox: 0 0 612 792 %%Pages: 1 %%LanguageLevel: 1 %%DocumentData: Clean7Bit %%DocumentSuppliedResources: procset bannerprint/1.0 %%DocumentNeededResources: font Helvetica Helvetica-Bold Times-Roman %%Creator: Michael Sweet, Easy Software Products %%CreationDate: May 10, 2000 %%Title: Test Page %%EndComments %%BeginProlog %%BeginResource procset bannerprint 1.1 0 % % PostScript banner page for the Common UNIX Printing System ("CUPS"). % % Copyright 1993-2005 by Easy Software Products % % These coded instructions, statements, and computer programs are the % property of Easy Software Products and are protected by Federal % copyright law. Distribution and use rights are outlined in the file % "LICENSE.txt" which should have been included with this file. If this % file is missing or damaged please contact Easy Software Products % at: % % Attn: CUPS Licensing Information % Easy Software Products % 44141 Airport View Drive, Suite 204 % Hollywood, Maryland 20636 USA % % Voice: (301) 373-9600 % EMail: cups-info@cups.org % WWW: http://www.cups.org % /CENTER { % Draw centered text % (name) CENTER - dup stringwidth pop % Get the width of the string 0.5 mul neg 0 rmoveto % Shift left 1/2 of the distance show % Show the string } bind def /RIGHT { % Draw right-justified text % (name) RIGHT - dup stringwidth pop % Get the width of the string neg 0 rmoveto % Shift left the entire distance show % Show the string } bind def /NUMBER { % Draw a number % power n NUMBER - 1 index 1 eq { % power == 1? round cvi exch pop % Convert "n" to integer } { 1 index mul round exch div % Truncate extra decimal places } ifelse 100 string cvs show % Convert to a string and show it... } bind def %%EndResource %%EndProlog %%Page: 1 1 gsave % Determine the imageable area and device resolution... initclip newpath clippath pathbbox % Get bounding rectangle 72 div /pageTop exch def % Get top margin in inches 72 div /pageRight exch def % Get right margin in inches 72 div /pageBottom exch def % Get bottom margin in inches 72 div /pageLeft exch def % Get left margin in inches /pageWidth pageRight pageLeft sub def % pageWidth = pageRight - pageLeft /pageHeight pageTop pageBottom sub def% pageHeight = pageTop - pageBottom /boxWidth % width of text box pageWidth pageHeight lt { pageWidth 54 mul } { pageHeight 42 mul } ifelse def newpath % Clear bounding path % Create fonts... /bigFont /Helvetica-Bold findfont % bigFont = Helvetica-Bold pageHeight 3 mul scalefont def % size = pageHeight * 3 (nominally 33) /mediumFont /Helvetica findfont % mediumFont = Helvetica pageHeight 1.5 mul scalefont def % size = pageHeight * 1.5 (nominally 16.5) % Offset page to account for lower-left margin... pageLeft 72 mul pageBottom 72 mul translate % Draw the label at the top and bottom... 0 setgray % Color pageWidth 36 mul % Center of page pageHeight 72 mul % Top of page pageWidth -7 mul add % - 2 lines moveto % Position text bigFont setfont % Font (Classified) CENTER % Show text centered pageWidth 36 mul % Center of page pageHeight 6 mul % Bottom of page moveto % Position text bigFont setfont % Font (Classified) CENTER % Show text centered % Job information text... mediumFont setfont % Medium sized font pageWidth 36 mul % x = pageWidth * 1/2 * 72 pageHeight 36 mul % y = pageHeight * 1/2 * 72 pageHeight 5 mul add % y += 2 lines 2 copy % Copy X & Y moveto (Job ID: ) RIGHT moveto ({printer-name}-{job-id}) show pageWidth 36 mul % x = pageWidth * 1/2 * 72 pageHeight 36 mul % y = pageHeight * 1/2 * 72 pageHeight 2 mul add % y += 1 line 2 copy % Copy X & Y moveto (Title: ) RIGHT moveto ({job-name}) show pageWidth 36 mul % x = pageWidth * 1/2 * 72 pageHeight 36 mul % y = pageHeight * 1/2 * 72 pageHeight -1 mul add % y -= 1 line 2 copy % Copy X & Y moveto (Requesting User: ) RIGHT moveto ({job-originating-user-name}) show pageWidth 36 mul % x = pageWidth * 1/2 * 72 pageHeight 36 mul % y = pageHeight * 1/2 * 72 pageHeight -4 mul add % y -= 2 lines 2 copy % Copy X & Y moveto (Billing Info: ) RIGHT moveto ({?job-billing}) show % Show the page... grestore showpage % % End of "$Id: classified,v 1.2 2005/03/07 22:15:56 gelphman Exp $". % %%EOF