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