[thirdparty/cups.git] / data / testprint.ps

%!PS-Adobe-3.0
%%BoundingBox: 0 0 612 792
%%Pages: 1
%%LanguageLevel: 1
%%DocumentData: Clean7Bit
%%DocumentSuppliedResources: procset testprint/1.3
%%DocumentNeededResources: font Helvetica Helvetica-Bold Times-Roman
%%Creator: Michael Sweet, Easy Software Products
%%CreationDate: D:20070220113000+0500
%%Title: Test Page
%%EndComments
%%BeginProlog
%%BeginResource procset testprint 1.3 0
%
%   PostScript test page for the Common UNIX Printing System ("CUPS").
%
%   Copyright 1993-2007 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
%
/SEXTANT {			% Draw a color wheel sextant...
				% (name) white radius r g b SEXTANT -
  % Loop through 100 shades...
  0 0.010101 0.98 {
    % Set the color...
    dup 0.75 le {		% Get "white" value
      % Start from black
      dup 0.75 div		% val2 = val / 0.75

      0 index 5 index mul 	% R = R * val2
      1 index 5 index mul 	% G = G * val2
      2 index 5 index mul 	% B = B * val2

      4 -1 roll pop		% Discard val2
    } {
      % Fade to white
      dup neg 1 add 4 mul	% val2 = (1 - val) * 4

      0 index 5 index mul 	% R = R * val2
      1 index neg 1 add add	% + (1 - val2)
      1 index 5 index mul 	% G = G * val2
      2 index neg 1 add add	% + (1 - val2)
      2 index 5 index mul 	% B = B * val2
      3 index neg 1 add add	% + (1 - val2)

      4 -1 roll pop		% Discard val2
    } ifelse
    setrgbcolor			% Set the color...

    % Draw the polygon...
    newpath			% Start a new path...
    dup 5 index mul		% r1 = radius * val
    0 0 3 -1 roll 0 60 arc	% Draw the inner arc

    dup 0.010101 add 5 index mul% r2 = (radius + 0.010101) * val
    0 0 3 -1 roll 60 0 arcn	% Draw the outer arc

    closepath			% Close the path
    fill			% Fill it...

    pop				% Pop value...
  } for

  % Draw a line around the polygons...
  pop pop pop dup		% Pop R, G, B, start
  0 setgray			% Black
  newpath
  0 0 moveto			% Center
  0 0 3 -1 roll 0 60 arc	% Arc around octant
  closepath			% Back to center
  stroke			% Stroke it...

  % Draw the label...
  dup				% Save radius
  dup 30 cos mul		% X = radius * cos(30)
  exch 30 sin mul		% Y = radius * sin(30)
  moveto			% Position label

  gsave
    30 rotate			% Rotate label
    dup 0.05 mul		% Offset to the right
    exch -0.05 mul		% and down...
    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
  gsave
    48 div dup scale

    /Helvetica-Bold findfont 38.2 scalefont setfont
    0 setgray
    -3 19.5 moveto (ESP) show

    /Helvetica-Narrow-Oblique findfont 8.2 scalefont setfont
    0 2 moveto (Easy Software Products) show

    1 -0.01 0 { dup neg 1.0 add setgray 0 11 3 -1 roll 68 mul 4.5 rectfill } for

    1 0 0 setrgbcolor
    67.5 11 4.5 4.5 rectfill
  grestore
} 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

  /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)

  % Figure out the sizes of things...
  /wheelSize				% size of wheels
  pageWidth pageHeight lt
  { pageWidth 9 mul }
  { pageHeight 7 mul }
  ifelse def

  % 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)

  /smallFont /Times-Roman findfont	% smallFont = Times-Roman
  pageHeight scalefont def		% size = pageHeight (nominally 11)

  % Draw rulers along the edges...
  /CENTIMETER 72 2.54 div def
  /MILLIMETER 72 25.4 div def

  /Times-Roman findfont			% Font for ruler numbers
  11 scalefont setfont			% 11 points

  gsave					% Left side inches
    pageLeft 72 mul 0 translate		% Offset left edge

    1 setlinewidth			% Draw normal lines
    72 72 pageTop 72 mul {		% Height inches
      dup dup
      0 exch moveto 24 0 rlineto stroke	% Draw tic mark
      24 exch pageHeight sub moveto	% Draw number
      72 div cvi 10 string cvs RIGHT
    } for

    0.5 setlinewidth			% Draw thin lines
    18 18 pageTop 72 mul {		% 1/4 inches
      0 exch moveto 15 0 rlineto stroke	% Draw tic mark
    } for

    9 9 pageTop 72 mul {		% 1/8 inches
      0 exch moveto 6 0 rlineto stroke	% Draw tic mark
    } for
  grestore

  gsave					% Bottom inches
    0 pageBottom 72 mul translate	% Offset bottom edge

    1 setlinewidth			% Draw normal lines
    72 72 pageRight 72 mul {		% Width inches
      dup dup
      0 moveto 0 24 rlineto stroke	% Draw tic mark
      3 add 27 pageHeight sub moveto	% Draw number
      72 div cvi 10 string cvs show
    } for

    0.5 setlinewidth			% Draw thin lines
    18 18 pageRight 72 mul {		% 1/4 inches
      0 moveto 0 15 rlineto stroke	% Draw tic mark
    } for

    9 9 pageRight 72 mul {		% 1/8 inches
      0 moveto 0 6 rlineto stroke	% Draw tic mark
    } for
  grestore

  gsave					% Right side centimeters
    pageRight 72 mul 0 translate	% Offset right edge

    1 setlinewidth			% Draw normal lines
    CENTIMETER CENTIMETER
        pageTop 72 mul {		% Height centimeters
      0 exch moveto -24 0 rlineto stroke% Draw tic mark
    } for
    1 1 pageTop 2.54 mul {		% Height labels
      dup
      -24 exch CENTIMETER mul
          pageHeight sub moveto		% Draw number
      cvi 10 string cvs show
    } for

    0.5 setlinewidth			% Draw thin lines
    0 0.5 CENTIMETER mul
        pageTop 72 mul {		% 1/2 centimeters
      0 exch moveto -15 0 rlineto stroke% Draw tic mark
    } for
    0 MILLIMETER pageTop 72 mul {	% Millimeters
      0 exch moveto -6 0 rlineto stroke	% Draw tic mark
    } for
  grestore

  gsave					% Top centimeters
    0 pageTop 72 mul translate		% Offset top edge

    1 setlinewidth			% Draw normal lines
    CENTIMETER CENTIMETER
        pageRight 72 mul {		% Width centimeters
      0 moveto 0 -24 rlineto stroke	% Draw tic mark
    } for
    1 1 pageRight 2.54 mul {		% Width labels
      dup
      CENTIMETER mul 3 add -24 moveto	% Draw number
      cvi 10 string cvs show
    } for

    0.5 setlinewidth			% Draw thin lines
    0 0.5 CENTIMETER mul
        pageRight 72 mul {		% 1/2 centimeters
      0 moveto 0 -15 rlineto stroke	% Draw tic mark
    } for
    0 MILLIMETER pageRight 72 mul {	% Millimeters
      0 moveto 0 -6 rlineto stroke	% Draw tic mark
    } for
  grestore

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

  % Set text font and color...
  mediumFont setfont			% Font
  0 setgray				% Color
  1 setlinewidth			% Draw normal lines

  % Draw the color wheel...
  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...
    wheelSize

    % Draw the colors...
    dup (C) 3 -1 roll 0 1 1 SEXTANT 60 rotate
    dup (M) 3 -1 roll 1 0 1 SEXTANT 60 rotate
    dup (Y) 3 -1 roll 1 1 0 SEXTANT 60 rotate
    dup (R) 3 -1 roll 1 0 0 SEXTANT 60 rotate
    dup (G) 3 -1 roll 0 1 0 SEXTANT 60 rotate
    dup (B) 3 -1 roll 0 0 1 SEXTANT 60 rotate

    pop
  grestore

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

  % Draw the gray ramp...
  gsave
    % Position the gray ramp in the center...
    pageWidth 36 mul			% x = pageWidth * 1/2 * 72
    pageHeight 54 mul			% y = pageHeight * 3/4 * 72
    wheelSize sub			% - wheelSize
    translate

    % Loop through 100 shades...
    0 0.010101 0.98 {
      % Set the color...
      dup setgray			% Set the grayscale...

      % Draw the polygon...
      newpath				% Start a new path...

      wheelSize -0.2 mul		% X = -wheelSize / 5
      1 index 2 mul wheelSize mul	% Y = val * 2 * wheelSize
      moveto				% Move there...

      wheelSize 0.4 mul 0 rlineto	% Right side...

      wheelSize 0.2 mul			% X = wheelSize / 5
      1 index 0.010101 add 2 mul wheelSize mul
      					% Y = (val + 0.010101) * 2 * wheelSize
      lineto				% Move there...

      wheelSize -0.4 mul 0 rlineto	% Left side...

      closepath				% Close the path
      fill				% Fill it...

      pop				% Pop value...
    } for

    0 setgray				% Black

    newpath				% Start a new path
    wheelSize -0.2 mul 0 moveto		% Bottom left
    wheelSize 0.4 mul 0 rlineto		% Bottom right
    0 wheelSize 2 mul rlineto		% Upper right
    wheelSize -0.4 mul 0 rlineto	% Upper left
    closepath				% Close the path
    stroke				% Stroke it...

    0 wheelSize -0.2 mul moveto		% Center bottom for label
    (K) CENTER				% Center K at bottom

    0 wheelSize 2.05 mul moveto		% Center top for label
    (W) CENTER				% Center W at top
  grestore

  % Label the gray ramp...
  pageWidth 36 mul			% x = pageWidth * 1/2 * 72
  pageHeight 43 mul			% y = pageHeight * 19/32 * 72
  moveto				% Position the text
  (Gray Ramp) 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...
    wheelSize

    % 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 43 mul			% y = pageHeight * 19/32 * 72
  moveto				% Position the text
  (1 Degree Radial Lines) CENTER	% Show the text centered

  % Imageable area...
  pageHeight 15 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
  pageHeight -2 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
  pageHeight sub			% 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
  pageHeight 2 mul sub			% 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
  pageHeight sub			% 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
  pageHeight 2 mul sub			% 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
  pageHeight sub			% 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
  pageHeight 2 mul sub			% 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
  pageHeight sub			% 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...
  pageHeight 15 mul			% Height of interpreter information

  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
  pageHeight 2 mul sub			% 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
  pageHeight 2 mul sub			% Move down...
  2 copy moveto				% Move to x & y
  (Version: ) RIGHT			% Label
  version show				% Version
  ( \() show				% " ("
  1 revision NUMBER			% Revision
  (\)) show				% ")"

  % Product
  pageHeight 2 mul sub			% Move down...
  2 copy moveto				% Move to x & y
  (Product: ) RIGHT			% Label
  product show				% Product name

  % Serial Number
  pageHeight 2 mul sub			% Move down...
  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 66 mul			% Top of page (11/12ths)
  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
  pageHeight 12 mul			% Bottom of page
  moveto				% Position text
  (Printed Using CUPS v1.3.x) CENTER	% Show text centered

  pageWidth 34 mul			% Left-center of page
  pageHeight 8 mul			% Move down...
  2 copy moveto				% Position text
  smallFont setfont			% Font
  (Copyright 1993-2006 Easy Software Products, All Rights Reserved.) CENTER
  pageHeight sub			% Move down...
  2 copy moveto				% Position text
  (CUPS, and the CUPS logo are the trademark property of Easy Software Products,) CENTER
  pageHeight sub			% Move down...
  2 copy moveto				% Position text
  (44141 Airport View Drive, Suite 204, Hollywood, Maryland, 20636, USA.) CENTER
  pageHeight sub			% Move down...
  pageHeight sub			% Move down...
  moveto				% Position text
  (Need help? Contact your operating system vendor or visit "http://www.cups.org/".) CENTER

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

  % And the ESP logo....
  gsave
    pageWidth 58 mul
    pageHeight 4 mul
    translate
    pageWidth 6 mul ESPLOGO
  grestore
% Show the page...
grestore
showpage
%
% End of "$Id: testprint.ps 6295 2007-02-20 16:31:58Z mike $".
%
%%EOF
Commit	Line	Data
ef416fc2	1	%!PS-Adobe-3.0
	2	%%BoundingBox: 0 0 612 792
	3	%%Pages: 1
	4	%%LanguageLevel: 1
	5	%%DocumentData: Clean7Bit
f7deaa1a	6	%%DocumentSuppliedResources: procset testprint/1.3
ef416fc2	7	%%DocumentNeededResources: font Helvetica Helvetica-Bold Times-Roman
ef416fc2	8	%%Creator: Michael Sweet, Easy Software Products
f7deaa1a	9	%%CreationDate: D:20070220113000+0500
ef416fc2	10	%%Title: Test Page
	11	%%EndComments
	12	%%BeginProlog
f7deaa1a	13	%%BeginResource procset testprint 1.3 0
ef416fc2	14	%
	15	% PostScript test page for the Common UNIX Printing System ("CUPS").
	16	%
f7deaa1a	17	% Copyright 1993-2007 Easy Software Products
ef416fc2	18	%
	19	% These coded instructions, statements, and computer programs are the
	20	% property of Easy Software Products and are protected by Federal
	21	% copyright law. Distribution and use rights are outlined in the file
	22	% "LICENSE.txt" which should have been included with this file. If this
	23	% file is missing or damaged please contact Easy Software Products
	24	% at:
	25	%
	26	% Attn: CUPS Licensing Information
	27	% Easy Software Products
	28	% 44141 Airport View Drive, Suite 204
	29	% Hollywood, Maryland 20636 USA
	30	%
	31	% Voice: (301) 373-9600
	32	% EMail: cups-info@cups.org
	33	% WWW: http://www.cups.org
	34	%
	35	/SEXTANT { % Draw a color wheel sextant...
	36	% (name) white radius r g b SEXTANT -
	37	% Loop through 100 shades...
	38	0 0.010101 0.98 {
	39	% Set the color...
	40	dup 0.75 le { % Get "white" value
	41	% Start from black
	42	dup 0.75 div % val2 = val / 0.75
	43
	44	0 index 5 index mul % R = R * val2
	45	1 index 5 index mul % G = G * val2
	46	2 index 5 index mul % B = B * val2
	47
	48	4 -1 roll pop % Discard val2
	49	} {
	50	% Fade to white
	51	dup neg 1 add 4 mul % val2 = (1 - val) * 4
	52
	53	0 index 5 index mul % R = R * val2
	54	1 index neg 1 add add % + (1 - val2)
	55	1 index 5 index mul % G = G * val2
	56	2 index neg 1 add add % + (1 - val2)
	57	2 index 5 index mul % B = B * val2
	58	3 index neg 1 add add % + (1 - val2)
	59
	60	4 -1 roll pop % Discard val2
	61	} ifelse
	62	setrgbcolor % Set the color...
	63
	64	% Draw the polygon...
	65	newpath % Start a new path...
	66	dup 5 index mul % r1 = radius * val
	67	0 0 3 -1 roll 0 60 arc % Draw the inner arc
	68
	69	dup 0.010101 add 5 index mul% r2 = (radius + 0.010101) * val
	70	0 0 3 -1 roll 60 0 arcn % Draw the outer arc
	71
	72	closepath % Close the path
	73	fill % Fill it...
	74
	75	pop % Pop value...
	76	} for
	77
	78	% Draw a line around the polygons...
	79	pop pop pop dup % Pop R, G, B, start
	80	0 setgray % Black
	81	newpath
82	0 0 moveto % Center
83	0 0 3 -1 roll 0 60 arc % Arc around octant
84	closepath % Back to center
85	stroke % Stroke it...
86
87	% Draw the label...
88	dup % Save radius
89	dup 30 cos mul % X = radius * cos(30)
90	exch 30 sin mul % Y = radius * sin(30)
91	moveto % Position label
92
93	gsave
94	30 rotate % Rotate label
95	dup 0.05 mul % Offset to the right
96	exch -0.05 mul % and down...
97	rmoveto % Offset label
98	show % Show label
99	grestore
100	} bind def
101	/CENTER { % Draw centered text
102	% (name) CENTER -
103	dup stringwidth pop % Get the width of the string
104	0.5 mul neg 0 rmoveto % Shift left 1/2 of the distance
105	show % Show the string
106	} bind def
107	/RIGHT { % Draw right-justified text
108	% (name) RIGHT -
109	dup stringwidth pop % Get the width of the string
110	neg 0 rmoveto % Shift left the entire distance
111	show % Show the string
112	} bind def
113	/NUMBER { % Draw a number
114	% power n NUMBER -
115	1 index 1 eq { % power == 1?
116	round cvi exch pop % Convert "n" to integer
117	} {
118	1 index mul round exch div % Truncate extra decimal places
119	} ifelse
120	100 string cvs show % Convert to a string and show it...
121	} bind def
122	/CUPSLOGO { % Draw the CUPS logo
123	% height CUPSLOGO
124	% Start with a big C...
125	/Helvetica findfont 1 index scalefont setfont
126	0 setgray
127	0 0 moveto
128	(C) show
129
130	% Then "UNIX Printing System" much smaller...
131	/Helvetica-Bold findfont 1 index 9 div scalefont setfont
132	0.25 mul
133	dup dup 2.0 mul moveto
134	(UNIX) show
135	dup dup 1.6 mul moveto
136	(Printing) show
137	dup 1.2 mul moveto
138	(System) show
139	} bind def
140	/ESPLOGO { % Draw the ESP logo
141	% height ESPLOGO
142	gsave
143	48 div dup scale
144
145	/Helvetica-Bold findfont 38.2 scalefont setfont
146	0 setgray
147	-3 19.5 moveto (ESP) show
148
149	/Helvetica-Narrow-Oblique findfont 8.2 scalefont setfont
150	0 2 moveto (Easy Software Products) show
151
152	1 -0.01 0 { dup neg 1.0 add setgray 0 11 3 -1 roll 68 mul 4.5 rectfill } for
153
154	1 0 0 setrgbcolor
155	67.5 11 4.5 4.5 rectfill
156	grestore
157	} bind def
158	%%EndResource
159	%%EndProlog
160	%%Page: 1 1
161	gsave
162
163	% Determine the imageable area and device resolution...
164	initclip newpath clippath pathbbox % Get bounding rectangle
165	72 div /pageTop exch def % Get top margin in inches
166	72 div /pageRight exch def % Get right margin in inches
167	72 div /pageBottom exch def % Get bottom margin in inches
168	72 div /pageLeft exch def % Get left margin in inches
169
170	4 setlinewidth % Draw wide lines
171	0 setgray closepath stroke % Draw a clipping rectangle
172
173	/pageWidth pageRight pageLeft sub def % pageWidth = pageRight - pageLeft
174	/pageHeight pageTop pageBottom sub def% pageHeight = pageTop - pageBottom
175
176	72 72 dtransform % Get device resolution per inch
177	/yResolution exch abs def % yResolution = abs(yres)
178	/xResolution exch abs def % xResolution = abs(xres)
179
180	% Figure out the sizes of things...
181	/wheelSize % size of wheels
182	pageWidth pageHeight lt
183	{ pageWidth 9 mul }
184	{ pageHeight 7 mul }
185	ifelse def
186
187	% Create fonts...
188	/bigFont /Helvetica-Bold findfont % bigFont = Helvetica-Bold
189	pageHeight 3 mul scalefont def % size = pageHeight * 3 (nominally 33)
190
191	/mediumFont /Helvetica findfont % mediumFont = Helvetica
192	pageHeight 1.5 mul scalefont def % size = pageHeight * 1.5 (nominally 16.5)
193
194	/smallFont /Times-Roman findfont % smallFont = Times-Roman
195	pageHeight scalefont def % size = pageHeight (nominally 11)
196
197	% Draw rulers along the edges...
198	/CENTIMETER 72 2.54 div def
199	/MILLIMETER 72 25.4 div def
200
f7deaa1a	201	/Times-Roman findfont % Font for ruler numbers
f7deaa1a	202	11 scalefont setfont % 11 points
ef416fc2	203
	204	gsave % Left side inches
	205	pageLeft 72 mul 0 translate % Offset left edge
	206
	207	1 setlinewidth % Draw normal lines
	208	72 72 pageTop 72 mul { % Height inches
	209	dup dup
	210	0 exch moveto 24 0 rlineto stroke % Draw tic mark
	211	24 exch pageHeight sub moveto % Draw number
	212	72 div cvi 10 string cvs RIGHT
	213	} for
	214
	215	0.5 setlinewidth % Draw thin lines
	216	18 18 pageTop 72 mul { % 1/4 inches
	217	0 exch moveto 15 0 rlineto stroke % Draw tic mark
	218	} for
	219
	220	9 9 pageTop 72 mul { % 1/8 inches
	221	0 exch moveto 6 0 rlineto stroke % Draw tic mark
	222	} for
	223	grestore
	224
	225	gsave % Bottom inches
	226	0 pageBottom 72 mul translate % Offset bottom edge
	227
	228	1 setlinewidth % Draw normal lines
	229	72 72 pageRight 72 mul { % Width inches
	230	dup dup
	231	0 moveto 0 24 rlineto stroke % Draw tic mark
	232	3 add 27 pageHeight sub moveto % Draw number
	233	72 div cvi 10 string cvs show
	234	} for
	235
	236	0.5 setlinewidth % Draw thin lines
	237	18 18 pageRight 72 mul { % 1/4 inches
	238	0 moveto 0 15 rlineto stroke % Draw tic mark
	239	} for
	240
	241	9 9 pageRight 72 mul { % 1/8 inches
	242	0 moveto 0 6 rlineto stroke % Draw tic mark
	243	} for
	244	grestore
	245
	246	gsave % Right side centimeters
	247	pageRight 72 mul 0 translate % Offset right edge
	248
	249	1 setlinewidth % Draw normal lines
	250	CENTIMETER CENTIMETER
	251	pageTop 72 mul { % Height centimeters
	252	0 exch moveto -24 0 rlineto stroke% Draw tic mark
	253	} for
	254	1 1 pageTop 2.54 mul { % Height labels
	255	dup
	256	-24 exch CENTIMETER mul
	257	pageHeight sub moveto % Draw number
	258	cvi 10 string cvs show
	259	} for
	260
	261	0.5 setlinewidth % Draw thin lines
	262	0 0.5 CENTIMETER mul
	263	pageTop 72 mul { % 1/2 centimeters
	264	0 exch moveto -15 0 rlineto stroke% Draw tic mark
	265	} for
	266	0 MILLIMETER pageTop 72 mul { % Millimeters
267	0 exch moveto -6 0 rlineto stroke % Draw tic mark
268	} for
269	grestore
270
271	gsave % Top centimeters
272	0 pageTop 72 mul translate % Offset top edge
273
274	1 setlinewidth % Draw normal lines
275	CENTIMETER CENTIMETER
276	pageRight 72 mul { % Width centimeters
277	0 moveto 0 -24 rlineto stroke % Draw tic mark
278	} for
279	1 1 pageRight 2.54 mul { % Width labels
280	dup
281	CENTIMETER mul 3 add -24 moveto % Draw number
282	cvi 10 string cvs show
283	} for
284
285	0.5 setlinewidth % Draw thin lines
286	0 0.5 CENTIMETER mul
287	pageRight 72 mul { % 1/2 centimeters
288	0 moveto 0 -15 rlineto stroke % Draw tic mark
289	} for
290	0 MILLIMETER pageRight 72 mul { % Millimeters
291	0 moveto 0 -6 rlineto stroke % Draw tic mark
292	} for
293	grestore
294
295	% Offset page to account for lower-left margin...
296	pageLeft 72 mul
297	pageBottom 72 mul
298	translate
299
300	% Set text font and color...
301	mediumFont setfont % Font
302	0 setgray % Color
303	1 setlinewidth % Draw normal lines
304
305	% Draw the color wheel...
306	gsave
307	% Position the wheel on the left side...
308	pageWidth 18 mul % x = pageWidth * 1/4 * 72
309	pageHeight 54 mul % y = pageHeight * 3/4 * 72
310	translate
311
312	% Size the wheel...
313	wheelSize
314
315	% Draw the colors...
316	dup (C) 3 -1 roll 0 1 1 SEXTANT 60 rotate
317	dup (M) 3 -1 roll 1 0 1 SEXTANT 60 rotate
318	dup (Y) 3 -1 roll 1 1 0 SEXTANT 60 rotate
319	dup (R) 3 -1 roll 1 0 0 SEXTANT 60 rotate
320	dup (G) 3 -1 roll 0 1 0 SEXTANT 60 rotate
321	dup (B) 3 -1 roll 0 0 1 SEXTANT 60 rotate
322
323	pop
324	grestore
325
326	% Label the color wheel...
327	pageWidth 18 mul % x = pageWidth * 1/4 * 72
328	pageHeight 43 mul % y = pageHeight * 19/32 * 72
329	moveto % Position the text
330	(Color Wheel) CENTER % Show the text centered
331
332	% Draw the gray ramp...
333	gsave
334	% Position the gray ramp in the center...
335	pageWidth 36 mul % x = pageWidth * 1/2 * 72
336	pageHeight 54 mul % y = pageHeight * 3/4 * 72
337	wheelSize sub % - wheelSize
338	translate
339
340	% Loop through 100 shades...
341	0 0.010101 0.98 {
342	% Set the color...
343	dup setgray % Set the grayscale...
344
345	% Draw the polygon...
346	newpath % Start a new path...
347
348	wheelSize -0.2 mul % X = -wheelSize / 5
349	1 index 2 mul wheelSize mul % Y = val * 2 * wheelSize
350	moveto % Move there...
351
352	wheelSize 0.4 mul 0 rlineto % Right side...
353
354	wheelSize 0.2 mul % X = wheelSize / 5
355	1 index 0.010101 add 2 mul wheelSize mul
356	% Y = (val + 0.010101) * 2 * wheelSize
357	lineto % Move there...
358
359	wheelSize -0.4 mul 0 rlineto % Left side...
360
361	closepath % Close the path
362	fill % Fill it...
363
364	pop % Pop value...
365	} for
366
367	0 setgray % Black
368
369	newpath % Start a new path
370	wheelSize -0.2 mul 0 moveto % Bottom left
371	wheelSize 0.4 mul 0 rlineto % Bottom right
372	0 wheelSize 2 mul rlineto % Upper right
373	wheelSize -0.4 mul 0 rlineto % Upper left
374	closepath % Close the path
375	stroke % Stroke it...
376
377	0 wheelSize -0.2 mul moveto % Center bottom for label
378	(K) CENTER % Center K at bottom
379
380	0 wheelSize 2.05 mul moveto % Center top for label
381	(W) CENTER % Center W at top
382	grestore
383
384	% Label the gray ramp...
385	pageWidth 36 mul % x = pageWidth * 1/2 * 72
386	pageHeight 43 mul % y = pageHeight * 19/32 * 72
387	moveto % Position the text
388	(Gray Ramp) CENTER % Show the text centered
389
390
391	% Draw radial lines...
392	gsave
393	0 setlinewidth % 1 pixel lines
394
395	% Position the lines on the left side...
396	pageWidth 54 mul % x = pageWidth * 3/4 * 72
397	pageHeight 54 mul % y = pageHeight * 3/4 * 72
398	translate
399
400	% Size the wheel...
401	wheelSize
402
403	% Loop at 1 degree increments
404	0 1 359 {
405	pop % Discard angle - not used
406	0 0 moveto % Start line at the center
407	dup 0 lineto % Draw to the radius
408	1 rotate % Rotate 1 degree
409	} for
410
411	pop % Discard radius - not needed anymore
412	stroke % Draw lines...
413
414	grestore
415
416	% Label the lines...
417	pageWidth 54 mul % x = pageWidth * 3/4 * 72
418	pageHeight 43 mul % y = pageHeight * 19/32 * 72
419	moveto % Position the text
420	(1 Degree Radial Lines) CENTER % Show the text centered
421
422	% Imageable area...
423	pageHeight 15 mul % Height of imageable area
424
425	pageWidth 4.5 mul % x = pageWidth * 1/16 * 72
426	pageHeight 35.5 mul % y = pageHeight * 1/2 * 72
427	2 index sub % y -= height
428	pageWidth 28 mul % width = pageWidth * 1/4 * 72
429	3 index % height
430	0.5 setgray rectfill % Draw a shadow
431
432	pageWidth 4 mul % x = pageWidth * 1/16 * 72
433	pageHeight 36 mul % y = pageHeight * 1/2 * 72
434	2 index sub % y -= height
435	pageWidth 28 mul % width = pageWidth * 3/8 * 72
436	3 index % height
437	4 copy 1 setgray rectfill % Clear the box to white
438	0 setgray rectstroke % Draw a black box around it...
439
440	pop % Discard height
441
442	% Label the imageable area...
443	pageWidth 4 mul % x = pageWidth * 1/16 * 72
444	pageHeight 37 mul % y = pageHeight * 1/2 * 72
445	moveto % Position the text
446	mediumFont setfont % Font
447	(Imageable Area) show % Show the text
448
449	smallFont setfont % Font
450	pageWidth 14 mul % x = pageWidth * 3/16 * 72
451	pageHeight 36 mul % y = pageWidth * 1/2 * 72
452	pageHeight -2 mul add % y -= 2 * smallFont height
453
454	% Page Size inches
455	2 copy moveto % Move to x & y
456	(Page Size: ) RIGHT % Label
457	100 pageWidth NUMBER % pageWidth
458	(x) show % "x"
459	100 pageHeight NUMBER % pageHeight
460	(in) show % "in"
461
462	% Page Size millimeters
463	pageHeight sub % Move down...
464
465	2 copy moveto % Move to x & y
466	10 pageWidth 25.4 mul NUMBER % pageWidth
467	(x) show % "x"
468	10 pageHeight 25.4 mul NUMBER % pageHeight
469	(mm) show % "mm"
470
471	% Lower-left inches
472	pageHeight 2 mul sub % Move down...
473
474	2 copy moveto % Move to x & y
475	(Lower-Left: ) RIGHT % Label
476	100 pageLeft NUMBER % pageLeft
477	(x) show % "x"
478	100 pageBottom NUMBER % pageBottom
479	(in) show % "in"
480
481	% Lower-left millimeters
482	pageHeight sub % Move down...
483
484	2 copy moveto % Move to x & y
485	10 pageLeft 25.4 mul NUMBER % pageLeft
486	(x) show % "x"
487	10 pageBottom 25.4 mul NUMBER % pageBottom
488	(mm) show % "mm"
489
490	% Upper-right inches
491	pageHeight 2 mul sub % Move down...
492
493	2 copy moveto % Move to x & y
494	(Upper-Right: ) RIGHT % Label
495	100 pageRight NUMBER % pageRight
496	(x) show % "x"
497	100 pageTop NUMBER % pageTop
498	(in) show % "in"
499
500	% Upper-right millimeters
501	pageHeight sub % Move down...
502
503	2 copy moveto % Move to x & y
504	10 pageRight 25.4 mul NUMBER % pageRight
505	(x) show % "x"
506	10 pageTop 25.4 mul NUMBER % pageTop
507	(mm) show % "mm"
508
509	% Resolution dots-per-inch
510	pageHeight 2 mul sub % Move down...
511
512	2 copy moveto % Move to x & y
513	(Resolution: ) RIGHT % Label
514	1 xResolution NUMBER % xResolution
515	(x) show % "x"
516	1 yResolution NUMBER % yResolution
517	(dpi) show % "dpi"
518
519	% Resolution dots-per-meter
520	pageHeight sub % Move down...
521
522	moveto % Move to x & y
523	1 xResolution 39.27 mul NUMBER % xResolution
524	(x) show % "x"
525	1 yResolution 39.27 mul NUMBER % yResolution
526	(dpm) show % "dpm"
527
528	% Interpreter Information...
529	pageHeight 15 mul % Height of interpreter information
530
531	pageWidth 40.5 mul % x = pageWidth * 9/16 * 72
532	pageHeight 35.5 mul % y = pageHeight * 1/2 * 72
533	2 index sub % y -= height
534	pageWidth 28 mul % width = pageWidth * 1/4 * 72
535	3 index % height
536	0.5 setgray rectfill % Draw a shadow
537
538	pageWidth 40 mul % x = pageWidth * 9/16 * 72
539	pageHeight 36 mul % y = pageHeight * 1/2 * 72
540	2 index sub % y -= height
541	pageWidth 28 mul % width = pageWidth * 3/8 * 72
542	3 index % height
543	4 copy 1 setgray rectfill % Clear the box to white
544	0 setgray rectstroke % Draw a black box around it...
545
546	pop % Discard height
547
548	% Label the interpreter info...
549	pageWidth 40 mul % x = pageWidth * 9/16 * 72
550	pageHeight 37 mul % y = pageHeight * 1/2 * 72
551	moveto % Position the text
552	mediumFont setfont % Font
553	(Interpreter Information) show % Show the text
554
555	smallFont setfont % Font
556	pageWidth 49 mul % x = pageWidth * 11/16 * 72
557	pageHeight 36 mul % y = pageWidth * 1/2 * 72
558	pageHeight 2 mul sub % y -= 2 * smallFont height
559
560	% Language level
561	2 copy moveto % Move to x & y
562	(PostScript: ) RIGHT % Label
563	(Level ) show % "Level "
564	1 languagelevel NUMBER % Language level
565
566	% Version
567	pageHeight 2 mul sub % Move down...
568	2 copy moveto % Move to x & y
569	(Version: ) RIGHT % Label
570	version show % Version
571	( \() show % " ("
572	1 revision NUMBER % Revision
573	(\)) show % ")"
574
575	% Product
576	pageHeight 2 mul sub % Move down...
577	2 copy moveto % Move to x & y
578	(Product: ) RIGHT % Label
579	product show % Product name
580
581	% Serial Number
582	pageHeight 2 mul sub % Move down...
583	moveto % Move to x & y
584	(Serial #: ) RIGHT % Label
585	1 serialnumber NUMBER % S/N
586
587	% Draw the label at the top...
588	pageWidth 36 mul % Center of page
589	pageHeight 66 mul % Top of page (11/12ths)
590	moveto % Position text
591	bigFont setfont % Font
592	(Printer Test Page) CENTER % Show text centered
593
594	% Draw the copyright notice at the bottom...
595	pageWidth 36 mul % Center of page
596	pageHeight 12 mul % Bottom of page
597	moveto % Position text
f7deaa1a	598	(Printed Using CUPS v1.3.x) CENTER % Show text centered
ef416fc2	599
	600	pageWidth 34 mul % Left-center of page
	601	pageHeight 8 mul % Move down...
	602	2 copy moveto % Position text
	603	smallFont setfont % Font
fa73b229	604	(Copyright 1993-2006 Easy Software Products, All Rights Reserved.) CENTER
ef416fc2	605	pageHeight sub % Move down...
	606	2 copy moveto % Position text
	607	(CUPS, and the CUPS logo are the trademark property of Easy Software Products,) CENTER
	608	pageHeight sub % Move down...
	609	2 copy moveto % Position text
	610	(44141 Airport View Drive, Suite 204, Hollywood, Maryland, 20636, USA.) CENTER
	611	pageHeight sub % Move down...
	612	pageHeight sub % Move down...
	613	moveto % Position text
	614	(Need help? Contact your operating system vendor or visit "http://www.cups.org/".) CENTER
	615
	616	% Then the CUPS logo....
	617	gsave
	618	pageWidth 4 mul
	619	pageHeight 4 mul
	620	translate
	621	pageWidth 9 mul CUPSLOGO
	622	grestore
	623
	624	% And the ESP logo....
	625	gsave
	626	pageWidth 58 mul
	627	pageHeight 4 mul
	628	translate
	629	pageWidth 6 mul ESPLOGO
	630	grestore
	631	% Show the page...
	632	grestore
	633	showpage
	634	%
f7deaa1a	635	% End of "$Id: testprint.ps 6295 2007-02-20 16:31:58Z mike $".
ef416fc2	636	%
ef416fc2	637	%%EOF