[thirdparty/cups.git] / data / classified

%!PS-Adobe-3.0
%%BoundingBox: 0 0 612 792
%%Pages: 1
%%LanguageLevel: 1
%%DocumentData: Clean7Bit
%%DocumentSuppliedResources: procset testprint/1.0
%%DocumentNeededResources: font Helvetica Helvetica-Bold Times-Roman
%%Creator: Michael Sweet, Easy Software Products
%%CreationDate: May 11, 1999
%%Title: Test Page
%%EndComments
%%BeginProlog
%%BeginResource procset testprint 1.1 0
%
%   PostScript test page for the Common UNIX Printing System ("CUPS").
%
%   Copyright 1993-2000 Easy Software Products
%
%   These coded instructions, statements, and computer programs contain
%   unpublished proprietary information of Easy Software Products, and
%   are protected by Federal copyright law. They may not be disclosed
%   to third parties or copied or duplicated in any form, in whole or
%   in part, without the prior written consent of Easy Software Products.
%
/OCTANT {			% Draw a color wheel OCTANT...
				% (name) radius r g b OCTANT -
  % Loop through 100 shades...
  0 0.010101 0.98 {
    % Set the color...
    3 index 1 eq		% R == 1?
    3 index 1 eq		% G == 1?
    3 index 1 eq		% B == 1?
    and and {
      0 index 4 index mul 	% R * val
      1 index 4 index mul 	% G * val
      2 index 4 index mul 	% B * val
    } {
      0 index 4 index mul 	% R * val
      1 index neg 1 add	add	% + (1 - val)
      1 index 4 index mul 	% G * val
      2 index neg 1 add	add	% + (1 - val)
      2 index 4 index mul 	% B * val
      3 index neg 1 add	add	% + (1 - val)
    } ifelse
    setrgbcolor

    % Draw a polygon...
    dup 5 index mul dup 0	% x1, y1
    moveto
    0.707106781 mul dup lineto	% x2, y2

    0.010101 add 4 index mul dup % x3
    0.707106781 mul dup lineto	% x3, y3
    0 lineto			% x4, y4
    closepath
    fill
  } for

  % Draw a line around the polygons...
  pop pop pop dup
  0 setgray
  0 0 moveto
  dup 0 lineto
  0.707106781 mul dup lineto
  closepath
  stroke

  % Draw the label...
  0 exch dup -9 div exch	% text offset = 0, -radius/9
  dup 0.923879532 mul		% x = radius * cos(22.5)
  exch 0.382683432 mul		% y = radius * cos(22.5)
  moveto			% position label
  gsave
    22.5 rotate			% rotate label
    rmoveto			% offset label
    show			% show label
  grestore
} bind def
/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
/CUPSLOGO {			% Draw the CUPS logo
				% height CUPSLOGO
  % Start with a big C...
  /Helvetica findfont 1 index scalefont setfont
  0 setgray
  0 0 moveto
  (C) show

  % Then "UNIX Printing System" much smaller...
  /Helvetica-Bold findfont 1 index 9 div scalefont setfont
  0.25 mul
  dup dup 2.0 mul moveto
  (UNIX) show
  dup dup 1.6 mul moveto
  (Printing) show
  dup 1.2 mul moveto
  (System) show
} bind def
/ESPLOGO {			% Draw the ESP logo
				% height ESPLOGO
  % Compute the size of the logo...
  0 0
  2 index 1.5 mul 3 index

  % Do the "metallic" fill from 10% black to 40% black...
  1 -0.001 0 {
    dup			% loopval
    -0.15 mul		% loopval * -0.15
    0.9 add		% 0.9 - loopval * 0.15
    setgray		% set gray shade

    0			% x
    1 index neg		% loopval
    1 add		% 1 - loopval
    3 index		% height
    mul			% height * (1 - loopval)
    moveto		% starting point

    dup			% loopval
    3 index		% width
    mul			% loopval * width
    2 index		% height
    lineto		% Next point

    0			% x
    2 index		% height
    lineto		% Next point

    closepath
    fill

    dup			% loopval
    0.15 mul		% loopval * 0.15
    0.6 add		% 0.6 + loopval * 0.15
    setgray

    dup			% loopval
    neg 1 add		% 1 - loopval
    3 index		% width
    mul			% (1 - loopval) * width
    0			% y
    moveto		% Starting point

    2 index		% width
    exch		% loopval
    2 index		% height
    mul			% loopval * height
    lineto		% Next point

    1 index		% width
    0			% y
    lineto		% Next point

    closepath
    fill
  } for

  0 setgray rectstroke

  /Helvetica-BoldOblique findfont 1 index 3 div scalefont setfont
  dup 40 div

  dup 4 mul 1 index 25 mul moveto (E) show
  dup 10 mul 1 index 15 mul moveto (S) show
  dup 16 mul 1 index 5 mul moveto (P) show

  /Helvetica-BoldOblique findfont 2 index 5 div scalefont setfont
  dup 14 mul 1 index 29 mul moveto (asy) show
  dup 20 mul 1 index 19 mul moveto (oftware) show
  dup 26 mul 1 index 9 mul moveto (roducts) show

  pop
} 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

  4 setlinewidth			% Draw wide lines
  0 setgray closepath stroke		% Draw a clipping rectangle
  1 setlinewidth			% Draw normal lines

  /pageWidth pageRight pageLeft sub def	% pageWidth = pageRight - pageLeft
  /pageHeight pageTop pageBottom sub def% pageHeight = pageTop - pageBottom

  72 72 dtransform			% Get device resolution per inch
  /yResolution exch abs def		% yResolution = abs(yres)
  /xResolution exch abs def		% xResolution = abs(xres)

  % Create fonts...
  /bigFont /Helvetica-Bold findfont	% bigFont = Helvetica-Bold
  pageWidth 4 mul scalefont def		% size = pageWidth * 4 (nominally 34)

  /mediumFont /Helvetica findfont	% mediumFont = Helvetica
  pageWidth 2 mul scalefont def		% size = pageWidth * 2 (nominally 17)

  /smallFont /Times-Roman findfont	% smallFont = Times-Roman
  pageWidth 1.5 mul scalefont def	% size = pageWidth * 1.5 (nominally 13)

  % Offset page to account for lower-left margin...
  pageLeft 72 mul
  pageBottom 72 mul
  translate

  % Draw the color wheel...
  mediumFont setfont			% Font
  0 setgray				% Color

  gsave
    % Position the wheel on the left side...
    pageWidth 18 mul			% x = pageWidth * 1/4 * 72
    pageHeight 54 mul			% y = pageHeight * 3/4 * 72
    translate

    % Size the wheel...
    pageWidth 9 mul			% radius = pageWidth * 1/8 * 72

    % Draw the colors...
    dup (C) exch 0 1 1 OCTANT 45 rotate
    dup (M) exch 1 0 1 OCTANT 45 rotate
    dup (Y) exch 1 1 0 OCTANT 45 rotate
    dup (K) exch 0 0 0 OCTANT 45 rotate
    dup (R) exch 1 0 0 OCTANT 45 rotate
    dup (G) exch 0 1 0 OCTANT 45 rotate
    dup (B) exch 0 0 1 OCTANT 45 rotate
    (W) exch 1 1 1 OCTANT 45 rotate
  grestore

  % Label the color wheel...
  pageWidth 18 mul			% x = pageWidth * 1/4 * 72
  pageHeight 44 mul			% y = pageHeight * 19/32 * 72
  moveto				% Position the text
  (Color Wheel) CENTER			% Show the text centered

  % Draw radial lines...
  gsave
    0 setlinewidth			% 1 pixel lines

    % Position the lines on the left side...
    pageWidth 54 mul			% x = pageWidth * 3/4 * 72
    pageHeight 54 mul			% y = pageHeight * 3/4 * 72
    translate

    % Size the wheel...
    pageWidth 9 mul			% radius = pageWidth * 1/8 * 72

    % Loop at 1 degree increments
    0 1 359 {
      pop				% Discard angle - not used
      0 0 moveto			% Start line at the center
      dup 0 lineto			% Draw to the radius
      1 rotate				% Rotate 1 degree
    } for

    pop					% Discard radius - not needed anymore
    stroke      			% Draw lines...

  grestore

  % Label the lines...
  pageWidth 54 mul			% x = pageWidth * 3/4 * 72
  pageHeight 44 mul			% y = pageHeight * 19/32 * 72
  moveto				% Position the text
  (1 Degree Radial Lines) CENTER	% Show the text centered

  % Imageable area...
  pageWidth 19.5 mul			% Height of imageable area

  pageWidth 4.5 mul			% x = pageWidth * 1/16 * 72
  pageHeight 35.5 mul			% y = pageHeight * 1/2 * 72
  2 index sub				% y -= height
  pageWidth 28 mul			% width = pageWidth * 1/4 * 72
  3 index				% height
  0.5 setgray rectfill			% Draw a shadow

  pageWidth 4 mul			% x = pageWidth * 1/16 * 72
  pageHeight 36 mul			% y = pageHeight * 1/2 * 72
  2 index sub				% y -= height
  pageWidth 28 mul			% width = pageWidth * 3/8 * 72
  3 index				% height
  4 copy 1 setgray rectfill		% Clear the box to white
  0 setgray rectstroke			% Draw a black box around it...

  pop					% Discard height

  % Label the imageable area...
  pageWidth 4 mul			% x = pageWidth * 1/16 * 72
  pageHeight 37 mul			% y = pageHeight * 1/2 * 72
  moveto				% Position the text
  mediumFont setfont			% Font
  (Imageable Area) show			% Show the text

  smallFont setfont			% Font
  pageWidth 14 mul			% x = pageWidth * 3/16 * 72
  pageHeight 36 mul			% y = pageWidth * 1/2 * 72
  pageWidth -3 mul add			% y -= 2 * smallFont height

  % Page Size inches
  2 copy moveto				% Move to x & y
  (Page Size: ) RIGHT			% Label
  100 pageWidth NUMBER			% pageWidth
  (x) show				% "x"
  100 pageHeight NUMBER			% pageHeight
  (in) show				% "in"

  % Page Size millimeters
  pageWidth -1.5 mul add		% Move down...

  2 copy moveto				% Move to x & y
  10 pageWidth 25.4 mul NUMBER		% pageWidth
  (x) show				% "x"
  10 pageHeight 25.4 mul NUMBER		% pageHeight
  (mm) show				% "mm"

  % Lower-left inches
  pageWidth -3 mul add			% Move down...

  2 copy moveto				% Move to x & y
  (Lower-Left: ) RIGHT			% Label
  100 pageLeft NUMBER			% pageLeft
  (x) show				% "x"
  100 pageBottom NUMBER			% pageBottom
  (in) show				% "in"

  % Lower-left millimeters
  pageWidth -1.5 mul add		% Move down...

  2 copy moveto				% Move to x & y
  10 pageLeft 25.4 mul NUMBER		% pageLeft
  (x) show				% "x"
  10 pageBottom 25.4 mul NUMBER		% pageBottom
  (mm) show				% "mm"

  % Upper-right inches
  pageWidth -3 mul add			% Move down...

  2 copy moveto				% Move to x & y
  (Upper-Right: ) RIGHT			% Label
  100 pageRight NUMBER			% pageRight
  (x) show				% "x"
  100 pageTop NUMBER			% pageTop
  (in) show				% "in"

  % Upper-right millimeters
  pageWidth -1.5 mul add		% Move down...

  2 copy moveto				% Move to x & y
  10 pageRight 25.4 mul NUMBER		% pageRight
  (x) show				% "x"
  10 pageTop 25.4 mul NUMBER		% pageTop
  (mm) show				% "mm"

  % Resolution dots-per-inch
  pageWidth -3 mul add			% Move down...

  2 copy moveto				% Move to x & y
  (Resolution: ) RIGHT			% Label
  1 xResolution NUMBER			% xResolution
  (x) show				% "x"
  1 yResolution NUMBER			% yResolution
  (dpi) show				% "dpi"

  % Resolution dots-per-meter
  pageWidth -1.5 mul add		% Move down...

  moveto				% Move to x & y
  1 xResolution 39.27 mul NUMBER	% xResolution
  (x) show				% "x"
  1 yResolution 39.27 mul NUMBER	% yResolution
  (dpm) show				% "dpm"

  % Interpreter Information...
  pageWidth 19.5 mul			% Height of interpreter info

  pageWidth 40.5 mul			% x = pageWidth * 9/16 * 72
  pageHeight 35.5 mul			% y = pageHeight * 1/2 * 72
  2 index sub				% y -= height
  pageWidth 28 mul			% width = pageWidth * 1/4 * 72
  3 index				% height
  0.5 setgray rectfill			% Draw a shadow

  pageWidth 40 mul			% x = pageWidth * 9/16 * 72
  pageHeight 36 mul			% y = pageHeight * 1/2 * 72
  2 index sub				% y -= height
  pageWidth 28 mul			% width = pageWidth * 3/8 * 72
  3 index				% height
  4 copy 1 setgray rectfill		% Clear the box to white
  0 setgray rectstroke			% Draw a black box around it...

  pop					% Discard height

  % Label the interpreter info...
  pageWidth 40 mul			% x = pageWidth * 9/16 * 72
  pageHeight 37 mul			% y = pageHeight * 1/2 * 72
  moveto				% Position the text
  mediumFont setfont			% Font
  (Interpreter Information) show	% Show the text

  smallFont setfont			% Font
  pageWidth 49 mul			% x = pageWidth * 11/16 * 72
  pageHeight 36 mul			% y = pageWidth * 1/2 * 72
  pageWidth -3 mul add			% y -= 2 * smallFont height

  % Language level
  2 copy moveto				% Move to x & y
  (PostScript: ) RIGHT			% Label
  (Level ) show				% "Level "
  1 languagelevel NUMBER		% Language level

  % Version
  pageWidth -3 mul add			% Move down...
  2 copy moveto				% Move to x & y
  (Version: ) RIGHT			% Label
  version show				% Version
  ( \() show				% " ("
  1 revision NUMBER			% Revision
  (\)) show				% ")"

  % Product
  pageWidth -3 mul add			% Move down...
  2 copy moveto				% Move to x & y
  (Product: ) RIGHT			% Label
  product show				% Product name

  % Serial Number
  pageWidth -3 mul add			% Move down...
  2 copy moveto				% Move to x & y
  (Serial #: ) RIGHT			% Label
  1 serialnumber NUMBER			% S/N

  % Draw the label at the top...
  pageWidth 36 mul			% Center of page
  pageHeight 68 mul			% Top of page (15/16ths)
  2 copy moveto				% Position text
  bigFont setfont			% Font
  (Printer Test Page) CENTER		% Show text centered

  % Draw the copyright notice at the bottom...
  pageWidth 36 mul			% Center of page
  pageWidth 14 mul			% Bottom of page
  2 copy moveto				% Position text
  (Printed Using CUPS v1.1) CENTER	% Show text centered

  pageWidth 3 mul sub			% Move down...
  2 copy moveto				% Position text
  smallFont setfont			% Font
  (Copyright 1993-2000 Easy Software Products, All Rights Reserved.) CENTER
  pageWidth 1.5 mul sub			% Move down...
  2 copy moveto				% Position text
  (CUPS, and the CUPS logo are the trademark property of) CENTER
  pageWidth 1.5 mul sub			% Move down...
  2 copy moveto				% Position text
  (Easy Software Products, 44141 Airport View Drive, Suite 204,) CENTER
  pageWidth 1.5 mul sub			% Move down...
  2 copy moveto				% Position text
  (Hollywood, Maryland, 20636-3111, USA.) CENTER

  % Then the CUPS logo....
  gsave
    pageWidth 4 mul
    pageWidth 6 mul
    translate
    pageWidth 9 mul CUPSLOGO
  grestore

  % And the ESP logo....
  gsave
    pageWidth 59 mul
    pageWidth 6 mul
    translate
    pageWidth 6 mul ESPLOGO
  grestore
% Show the page...
grestore
showpage
%
% End of "$Id: classified,v 1.1 2000/04/29 12:35:55 mike Exp $".
%
%%EOF
Commit	Line	Data
85ef1f5c	1	%!PS-Adobe-3.0
	2	%%BoundingBox: 0 0 612 792
	3	%%Pages: 1
	4	%%LanguageLevel: 1
	5	%%DocumentData: Clean7Bit
	6	%%DocumentSuppliedResources: procset testprint/1.0
	7	%%DocumentNeededResources: font Helvetica Helvetica-Bold Times-Roman
	8	%%Creator: Michael Sweet, Easy Software Products
	9	%%CreationDate: May 11, 1999
	10	%%Title: Test Page
	11	%%EndComments
	12	%%BeginProlog
	13	%%BeginResource procset testprint 1.1 0
	14	%
	15	% PostScript test page for the Common UNIX Printing System ("CUPS").
	16	%
	17	% Copyright 1993-2000 Easy Software Products
	18	%
	19	% These coded instructions, statements, and computer programs contain
	20	% unpublished proprietary information of Easy Software Products, and
	21	% are protected by Federal copyright law. They may not be disclosed
	22	% to third parties or copied or duplicated in any form, in whole or
	23	% in part, without the prior written consent of Easy Software Products.
	24	%
	25	/OCTANT { % Draw a color wheel OCTANT...
	26	% (name) radius r g b OCTANT -
	27	% Loop through 100 shades...
	28	0 0.010101 0.98 {
	29	% Set the color...
	30	3 index 1 eq % R == 1?
	31	3 index 1 eq % G == 1?
	32	3 index 1 eq % B == 1?
	33	and and {
	34	0 index 4 index mul % R * val
	35	1 index 4 index mul % G * val
	36	2 index 4 index mul % B * val
	37	} {
	38	0 index 4 index mul % R * val
	39	1 index neg 1 add add % + (1 - val)
	40	1 index 4 index mul % G * val
	41	2 index neg 1 add add % + (1 - val)
	42	2 index 4 index mul % B * val
	43	3 index neg 1 add add % + (1 - val)
	44	} ifelse
	45	setrgbcolor
	46
	47	% Draw a polygon...
	48	dup 5 index mul dup 0 % x1, y1
	49	moveto
	50	0.707106781 mul dup lineto % x2, y2
	51
	52	0.010101 add 4 index mul dup % x3
	53	0.707106781 mul dup lineto % x3, y3
	54	0 lineto % x4, y4
	55	closepath
	56	fill
	57	} for
	58
	59	% Draw a line around the polygons...
	60	pop pop pop dup
	61	0 setgray
	62	0 0 moveto
	63	dup 0 lineto
	64	0.707106781 mul dup lineto
65	closepath
66	stroke
67
68	% Draw the label...
69	0 exch dup -9 div exch % text offset = 0, -radius/9
70	dup 0.923879532 mul % x = radius * cos(22.5)
71	exch 0.382683432 mul % y = radius * cos(22.5)
72	moveto % position label
73	gsave
74	22.5 rotate % rotate label
75	rmoveto % offset label
76	show % show label
77	grestore
78	} bind def
79	/CENTER { % Draw centered text
80	% (name) CENTER -
81	dup stringwidth pop % Get the width of the string
82	0.5 mul neg 0 rmoveto % Shift left 1/2 of the distance
83	show % Show the string
84	} bind def
85	/RIGHT { % Draw right-justified text
86	% (name) RIGHT -
87	dup stringwidth pop % Get the width of the string
88	neg 0 rmoveto % Shift left the entire distance
89	show % Show the string
90	} bind def
91	/NUMBER { % Draw a number
92	% power n NUMBER -
93	1 index 1 eq { % power == 1?
94	round cvi exch pop % Convert "n" to integer
95	} {
96	1 index mul round exch div % Truncate extra decimal places
97	} ifelse
98	100 string cvs show % Convert to a string and show it...
99	} bind def
100	/CUPSLOGO { % Draw the CUPS logo
101	% height CUPSLOGO
102	% Start with a big C...
103	/Helvetica findfont 1 index scalefont setfont
104	0 setgray
105	0 0 moveto
106	(C) show
107
108	% Then "UNIX Printing System" much smaller...
109	/Helvetica-Bold findfont 1 index 9 div scalefont setfont
110	0.25 mul
111	dup dup 2.0 mul moveto
112	(UNIX) show
113	dup dup 1.6 mul moveto
114	(Printing) show
115	dup 1.2 mul moveto
116	(System) show
117	} bind def
118	/ESPLOGO { % Draw the ESP logo
119	% height ESPLOGO
120	% Compute the size of the logo...
121	0 0
122	2 index 1.5 mul 3 index
123
124	% Do the "metallic" fill from 10% black to 40% black...
125	1 -0.001 0 {
126	dup % loopval
127	-0.15 mul % loopval * -0.15
128	0.9 add % 0.9 - loopval * 0.15
129	setgray % set gray shade
130
131	0 % x
132	1 index neg % loopval
133	1 add % 1 - loopval
134	3 index % height
135	mul % height * (1 - loopval)
136	moveto % starting point
137
138	dup % loopval
139	3 index % width
140	mul % loopval * width
141	2 index % height
142	lineto % Next point
143
144	0 % x
145	2 index % height
146	lineto % Next point
147
148	closepath
149	fill
150
151	dup % loopval
152	0.15 mul % loopval * 0.15
153	0.6 add % 0.6 + loopval * 0.15
154	setgray
155
156	dup % loopval
157	neg 1 add % 1 - loopval
158	3 index % width
159	mul % (1 - loopval) * width
160	0 % y
161	moveto % Starting point
162
163	2 index % width
164	exch % loopval
165	2 index % height
166	mul % loopval * height
167	lineto % Next point
168
169	1 index % width
170	0 % y
171	lineto % Next point
172
173	closepath
174	fill
175	} for
176
177	0 setgray rectstroke
178
179	/Helvetica-BoldOblique findfont 1 index 3 div scalefont setfont
180	dup 40 div
181
182	dup 4 mul 1 index 25 mul moveto (E) show
183	dup 10 mul 1 index 15 mul moveto (S) show
184	dup 16 mul 1 index 5 mul moveto (P) show
185
186	/Helvetica-BoldOblique findfont 2 index 5 div scalefont setfont
187	dup 14 mul 1 index 29 mul moveto (asy) show
188	dup 20 mul 1 index 19 mul moveto (oftware) show
189	dup 26 mul 1 index 9 mul moveto (roducts) show
190
191	pop
192	} bind def
193	%%EndResource
194	%%EndProlog
195	%%Page: 1 1
196	gsave
197
198	% Determine the imageable area and device resolution...
199	initclip newpath clippath pathbbox % Get bounding rectangle
200	72 div /pageTop exch def % Get top margin in inches
201	72 div /pageRight exch def % Get right margin in inches
202	72 div /pageBottom exch def % Get bottom margin in inches
203	72 div /pageLeft exch def % Get left margin in inches
204
205	4 setlinewidth % Draw wide lines
206	0 setgray closepath stroke % Draw a clipping rectangle
207	1 setlinewidth % Draw normal lines
208
209	/pageWidth pageRight pageLeft sub def % pageWidth = pageRight - pageLeft
210	/pageHeight pageTop pageBottom sub def% pageHeight = pageTop - pageBottom
211
212	72 72 dtransform % Get device resolution per inch
213	/yResolution exch abs def % yResolution = abs(yres)
214	/xResolution exch abs def % xResolution = abs(xres)
215
216	% Create fonts...
217	/bigFont /Helvetica-Bold findfont % bigFont = Helvetica-Bold
218	pageWidth 4 mul scalefont def % size = pageWidth * 4 (nominally 34)
219
220	/mediumFont /Helvetica findfont % mediumFont = Helvetica
221	pageWidth 2 mul scalefont def % size = pageWidth * 2 (nominally 17)
222
223	/smallFont /Times-Roman findfont % smallFont = Times-Roman
224	pageWidth 1.5 mul scalefont def % size = pageWidth * 1.5 (nominally 13)
225
226	% Offset page to account for lower-left margin...
227	pageLeft 72 mul
228	pageBottom 72 mul
229	translate
230
231	% Draw the color wheel...
232	mediumFont setfont % Font
233	0 setgray % Color
234
235	gsave
236	% Position the wheel on the left side...
237	pageWidth 18 mul % x = pageWidth * 1/4 * 72
238	pageHeight 54 mul % y = pageHeight * 3/4 * 72
239	translate
240
241	% Size the wheel...
242	pageWidth 9 mul % radius = pageWidth * 1/8 * 72
243
244	% Draw the colors...
245	dup (C) exch 0 1 1 OCTANT 45 rotate
246	dup (M) exch 1 0 1 OCTANT 45 rotate
247	dup (Y) exch 1 1 0 OCTANT 45 rotate
248	dup (K) exch 0 0 0 OCTANT 45 rotate
249	dup (R) exch 1 0 0 OCTANT 45 rotate
250	dup (G) exch 0 1 0 OCTANT 45 rotate
251	dup (B) exch 0 0 1 OCTANT 45 rotate
252	(W) exch 1 1 1 OCTANT 45 rotate
253	grestore
254
255	% Label the color wheel...
256	pageWidth 18 mul % x = pageWidth * 1/4 * 72
257	pageHeight 44 mul % y = pageHeight * 19/32 * 72
258	moveto % Position the text
259	(Color Wheel) CENTER % Show the text centered
260
261	% Draw radial lines...
262	gsave
263	0 setlinewidth % 1 pixel lines
264
265	% Position the lines on the left side...
266	pageWidth 54 mul % x = pageWidth * 3/4 * 72
267	pageHeight 54 mul % y = pageHeight * 3/4 * 72
268	translate
269
270	% Size the wheel...
271	pageWidth 9 mul % radius = pageWidth * 1/8 * 72
272
273	% Loop at 1 degree increments
274	0 1 359 {
275	pop % Discard angle - not used
276	0 0 moveto % Start line at the center
277	dup 0 lineto % Draw to the radius
278	1 rotate % Rotate 1 degree
279	} for
280
281	pop % Discard radius - not needed anymore
282	stroke % Draw lines...
283
284	grestore
285
286	% Label the lines...
287	pageWidth 54 mul % x = pageWidth * 3/4 * 72
288	pageHeight 44 mul % y = pageHeight * 19/32 * 72
289	moveto % Position the text
290	(1 Degree Radial Lines) CENTER % Show the text centered
291
292	% Imageable area...
293	pageWidth 19.5 mul % Height of imageable area
294
295	pageWidth 4.5 mul % x = pageWidth * 1/16 * 72
296	pageHeight 35.5 mul % y = pageHeight * 1/2 * 72
297	2 index sub % y -= height
298	pageWidth 28 mul % width = pageWidth * 1/4 * 72
299	3 index % height
300	0.5 setgray rectfill % Draw a shadow
301
302	pageWidth 4 mul % x = pageWidth * 1/16 * 72
303	pageHeight 36 mul % y = pageHeight * 1/2 * 72
304	2 index sub % y -= height
305	pageWidth 28 mul % width = pageWidth * 3/8 * 72
306	3 index % height
307	4 copy 1 setgray rectfill % Clear the box to white
308	0 setgray rectstroke % Draw a black box around it...
309
310	pop % Discard height
311
312	% Label the imageable area...
313	pageWidth 4 mul % x = pageWidth * 1/16 * 72
314	pageHeight 37 mul % y = pageHeight * 1/2 * 72
315	moveto % Position the text
316	mediumFont setfont % Font
317	(Imageable Area) show % Show the text
318
319	smallFont setfont % Font
320	pageWidth 14 mul % x = pageWidth * 3/16 * 72
321	pageHeight 36 mul % y = pageWidth * 1/2 * 72
322	pageWidth -3 mul add % y -= 2 * smallFont height
323
324	% Page Size inches
325	2 copy moveto % Move to x & y
326	(Page Size: ) RIGHT % Label
327	100 pageWidth NUMBER % pageWidth
328	(x) show % "x"
329	100 pageHeight NUMBER % pageHeight
330	(in) show % "in"
331
332	% Page Size millimeters
333	pageWidth -1.5 mul add % Move down...
334
335	2 copy moveto % Move to x & y
336	10 pageWidth 25.4 mul NUMBER % pageWidth
337	(x) show % "x"
338	10 pageHeight 25.4 mul NUMBER % pageHeight
339	(mm) show % "mm"
340
341	% Lower-left inches
342	pageWidth -3 mul add % Move down...
343
344	2 copy moveto % Move to x & y
345	(Lower-Left: ) RIGHT % Label
346	100 pageLeft NUMBER % pageLeft
347	(x) show % "x"
348	100 pageBottom NUMBER % pageBottom
349	(in) show % "in"
350
351	% Lower-left millimeters
352	pageWidth -1.5 mul add % Move down...
353
354	2 copy moveto % Move to x & y
355	10 pageLeft 25.4 mul NUMBER % pageLeft
356	(x) show % "x"
357	10 pageBottom 25.4 mul NUMBER % pageBottom
358	(mm) show % "mm"
359
360	% Upper-right inches
361	pageWidth -3 mul add % Move down...
362
363	2 copy moveto % Move to x & y
364	(Upper-Right: ) RIGHT % Label
365	100 pageRight NUMBER % pageRight
366	(x) show % "x"
367	100 pageTop NUMBER % pageTop
368	(in) show % "in"
369
370	% Upper-right millimeters
371	pageWidth -1.5 mul add % Move down...
372
373	2 copy moveto % Move to x & y
374	10 pageRight 25.4 mul NUMBER % pageRight
375	(x) show % "x"
376	10 pageTop 25.4 mul NUMBER % pageTop
377	(mm) show % "mm"
378
379	% Resolution dots-per-inch
380	pageWidth -3 mul add % Move down...
381
382	2 copy moveto % Move to x & y
383	(Resolution: ) RIGHT % Label
384	1 xResolution NUMBER % xResolution
385	(x) show % "x"
386	1 yResolution NUMBER % yResolution
387	(dpi) show % "dpi"
388
389	% Resolution dots-per-meter
390	pageWidth -1.5 mul add % Move down...
391
392	moveto % Move to x & y
393	1 xResolution 39.27 mul NUMBER % xResolution
394	(x) show % "x"
395	1 yResolution 39.27 mul NUMBER % yResolution
396	(dpm) show % "dpm"
397
398	% Interpreter Information...
399	pageWidth 19.5 mul % Height of interpreter info
400
401	pageWidth 40.5 mul % x = pageWidth * 9/16 * 72
402	pageHeight 35.5 mul % y = pageHeight * 1/2 * 72
403	2 index sub % y -= height
404	pageWidth 28 mul % width = pageWidth * 1/4 * 72
405	3 index % height
406	0.5 setgray rectfill % Draw a shadow
407
408	pageWidth 40 mul % x = pageWidth * 9/16 * 72
409	pageHeight 36 mul % y = pageHeight * 1/2 * 72
410	2 index sub % y -= height
411	pageWidth 28 mul % width = pageWidth * 3/8 * 72
412	3 index % height
413	4 copy 1 setgray rectfill % Clear the box to white
414	0 setgray rectstroke % Draw a black box around it...
415
416	pop % Discard height
417
418	% Label the interpreter info...
419	pageWidth 40 mul % x = pageWidth * 9/16 * 72
420	pageHeight 37 mul % y = pageHeight * 1/2 * 72
421	moveto % Position the text
422	mediumFont setfont % Font
423	(Interpreter Information) show % Show the text
424
425	smallFont setfont % Font
426	pageWidth 49 mul % x = pageWidth * 11/16 * 72
427	pageHeight 36 mul % y = pageWidth * 1/2 * 72
428	pageWidth -3 mul add % y -= 2 * smallFont height
429
430	% Language level
431	2 copy moveto % Move to x & y
432	(PostScript: ) RIGHT % Label
433	(Level ) show % "Level "
434	1 languagelevel NUMBER % Language level
435
436	% Version
437	pageWidth -3 mul add % Move down...
438	2 copy moveto % Move to x & y
439	(Version: ) RIGHT % Label
440	version show % Version
441	( \() show % " ("
442	1 revision NUMBER % Revision
443	(\)) show % ")"
444
445	% Product
446	pageWidth -3 mul add % Move down...
447	2 copy moveto % Move to x & y
448	(Product: ) RIGHT % Label
449	product show % Product name
450
451	% Serial Number
452	pageWidth -3 mul add % Move down...
453	2 copy moveto % Move to x & y
454	(Serial #: ) RIGHT % Label
455	1 serialnumber NUMBER % S/N
456
457	% Draw the label at the top...
458	pageWidth 36 mul % Center of page
459	pageHeight 68 mul % Top of page (15/16ths)
460	2 copy moveto % Position text
461	bigFont setfont % Font
462	(Printer Test Page) CENTER % Show text centered
463
464	% Draw the copyright notice at the bottom...
465	pageWidth 36 mul % Center of page
466	pageWidth 14 mul % Bottom of page
467	2 copy moveto % Position text
468	(Printed Using CUPS v1.1) CENTER % Show text centered
469
470	pageWidth 3 mul sub % Move down...
471	2 copy moveto % Position text
472	smallFont setfont % Font
473	(Copyright 1993-2000 Easy Software Products, All Rights Reserved.) CENTER
474	pageWidth 1.5 mul sub % Move down...
475	2 copy moveto % Position text
476	(CUPS, and the CUPS logo are the trademark property of) CENTER
477	pageWidth 1.5 mul sub % Move down...
478	2 copy moveto % Position text
479	(Easy Software Products, 44141 Airport View Drive, Suite 204,) CENTER
480	pageWidth 1.5 mul sub % Move down...
481	2 copy moveto % Position text
482	(Hollywood, Maryland, 20636-3111, USA.) CENTER
483
484	% Then the CUPS logo....
485	gsave
486	pageWidth 4 mul
487	pageWidth 6 mul
488	translate
489	pageWidth 9 mul CUPSLOGO
490	grestore
491
492	% And the ESP logo....
493	gsave
494	pageWidth 59 mul
495	pageWidth 6 mul
496	translate
497	pageWidth 6 mul ESPLOGO
498	grestore
499	% Show the page...
500	grestore
501	showpage
502	%
503	% End of "$Id: classified,v 1.1 2000/04/29 12:35:55 mike Exp $".
504	%
505	%%EOF