testpage.ps

来自「Linux下的无线网卡通用驱动程序」· PS 代码 · 共 417 行 · 第 1/2 页

%!PS-Adobe-2.0
%%Title: testpage.fig
%%Creator: fig2dev Version 3.2.3 Patchlevel 
%%CreationDate: Wed Aug 30 15:28:56 2000
%%For: [e-mail] ()
%%Orientation: Portrait
%%Pages: 1
%%BoundingBox: 0 0 612 792
%%BeginSetup
%%IncludeFeature: *PageSize Letter
%%EndSetup
%%Magnification: 1.0000
%%EndComments
/$F2psDict 200 dict def
$F2psDict begin
$F2psDict /mtrx matrix put
/col-1 {0 setgray} bind def
/col0 {0.000 0.000 0.000 srgb} bind def
/col1 {0.000 0.000 1.000 srgb} bind def
/col2 {0.000 1.000 0.000 srgb} bind def
/col3 {0.000 1.000 1.000 srgb} bind def
/col4 {1.000 0.000 0.000 srgb} bind def
/col5 {1.000 0.000 1.000 srgb} bind def
/col6 {1.000 1.000 0.000 srgb} bind def
/col7 {1.000 1.000 1.000 srgb} bind def
/col8 {0.000 0.000 0.560 srgb} bind def
/col9 {0.000 0.000 0.690 srgb} bind def
/col10 {0.000 0.000 0.820 srgb} bind def
/col11 {0.530 0.810 1.000 srgb} bind def
/col12 {0.000 0.560 0.000 srgb} bind def
/col13 {0.000 0.690 0.000 srgb} bind def
/col14 {0.000 0.820 0.000 srgb} bind def
/col15 {0.000 0.560 0.560 srgb} bind def
/col16 {0.000 0.690 0.690 srgb} bind def
/col17 {0.000 0.820 0.820 srgb} bind def
/col18 {0.560 0.000 0.000 srgb} bind def
/col19 {0.690 0.000 0.000 srgb} bind def
/col20 {0.820 0.000 0.000 srgb} bind def
/col21 {0.560 0.000 0.560 srgb} bind def
/col22 {0.690 0.000 0.690 srgb} bind def
/col23 {0.820 0.000 0.820 srgb} bind def
/col24 {0.500 0.190 0.000 srgb} bind def
/col25 {0.630 0.250 0.000 srgb} bind def
/col26 {0.750 0.380 0.000 srgb} bind def
/col27 {1.000 0.500 0.500 srgb} bind def
/col28 {1.000 0.630 0.630 srgb} bind def
/col29 {1.000 0.750 0.750 srgb} bind def
/col30 {1.000 0.880 0.880 srgb} bind def
/col31 {1.000 0.840 0.000 srgb} bind def

end
save
newpath 0 792 moveto 0 0 lineto 612 0 lineto 612 792 lineto closepath clip newpath
0.0 792.0 translate
1 -1 scale

/cp {closepath} bind def
/ef {eofill} bind def
/gr {grestore} bind def
/gs {gsave} bind def
/sa {save} bind def
/rs {restore} bind def
/l {lineto} bind def
/m {moveto} bind def
/rm {rmoveto} bind def
/n {newpath} bind def
/s {stroke} bind def
/sh {show} bind def
/slc {setlinecap} bind def
/slj {setlinejoin} bind def
/slw {setlinewidth} bind def
/srgb {setrgbcolor} bind def
/rot {rotate} bind def
/sc {scale} bind def
/sd {setdash} bind def
/ff {findfont} bind def
/sf {setfont} bind def
/scf {scalefont} bind def
/sw {stringwidth} bind def
/tr {translate} bind def
/tnt {dup dup currentrgbcolor
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
  bind def
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
  4 -2 roll mul srgb} bind def
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def

$F2psBegin
%%Page: 1 1
10 setmiterlimit
 0.06000 0.06000 sc
%%Page: 1 1
/Helvetica-Bold ff 270.00 scf sf
4800 2100 m
gs 1 -1 sc (This is the Red Hat Printconf) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 270.00 scf sf
4800 2445 m
gs 1 -1 sc (US Letter PostScript Test Page) dup sw pop 2 div neg 0 rm  col-1 sh gr
% Polyline
7.500 slw
n 2400 7200 m 3000 7200 l 3000 7500 l 2400 7500 l
 cp gs col10 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 3600 7200 m 4200 7200 l 4200 7500 l 3600 7500 l
 cp gs col6 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 4200 7200 m 4800 7200 l 4800 7500 l 4200 7500 l
 cp gs col5 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 4800 7200 m 5400 7200 l 5400 7500 l 4800 7500 l
 cp gs col26 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 5400 7200 m 6000 7200 l 6000 7500 l 5400 7500 l
 cp gs col31 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 6000 7200 m 6600 7200 l 6600 7500 l 6000 7500 l
 cp gs col3 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 3000 7200 m 3600 7200 l 3600 7500 l 3000 7500 l
 cp gs col20 1.00 shd ef gr gs col-1 s gr 
% Polyline
n 6600 7200 m 7200 7200 l 7200 7500 l 6600 7500 l
 cp gs col2 1.00 shd ef gr gs col-1 s gr 
/Helvetica-Bold ff 150.00 scf sf
5100 7800 m
gs 1 -1 sc (Brown) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
5700 7800 m
gs 1 -1 sc (Gold) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
6900 7800 m
gs 1 -1 sc (Green) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
3900 7800 m
gs 1 -1 sc (Yellow) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
3300 7800 m
gs 1 -1 sc (Red) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
2700 7800 m
gs 1 -1 sc (Blue) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
4500 7800 m
gs 1 -1 sc (Purple) dup sw pop 2 div neg 0 rm  col-1 sh gr
/Helvetica-Bold ff 150.00 scf sf
6300 7800 m
gs 1 -1 sc (Cyan) dup sw pop 2 div neg 0 rm  col-1 sh gr
% Polyline
15.000 slw
n 600 600 m 9600 600 l 9600 12600 l 600 12600 l
 cp gs col-1 s gr 
% Polyline
n 1200 1200 m 9000 1200 l 9000 12000 l 1200 12000 l
 cp gs col-1 s gr 
% Polyline
%
% Originally from a GIF File: redhat-logo-new.gif

% Begin Imported PCX File: redhat-logo-new.gif

n gs
2925 3135 tr
15.000000 -15.000000 sc
0 -91 tr
0 0 tr
sa
/showpage {} def
% PCX image follows:
250 91 sc
%***********************************************************************
%*                                                                     *
%* Object: Image decoding PS-routine                    Date: 01.02.93 *
%* Author: Evgeni CHERNYAEV ([e-mail])                  *
%*                                                                     *
%* Function: Display a run-length encoded color image.                 *
%*           The image is displayed in color on viewers and printers   *
%*           that support color Postscript, otherwise it is displayed  *
%*           as grayscale.                                             *
%*                                                                     *
%***********************************************************************
/byte 1 string def
/color 3 string def
systemdict /colorimage known { /cnt 3 def } { /cnt 1 def } ifelse
/String 256 cnt mul string def
%***********************************************************************
/DecodePacket            % Decode color packet                         *
%***********************************************************************
{
  currentfile byte readhexstring pop 0 get
  /Nbyte exch 1 add cnt mul def
  /color ColorMap currentfile byte readhexstring pop 0 get get def
  String dup
  0 cnt Nbyte 1 sub { color putinterval dup } for
  pop 0 Nbyte getinterval
} bind def
%***********************************************************************
/DisplayImage            % Display run-length encoded color image      *
%***********************************************************************
{
  gsave
  currentfile String readline pop
  token { /columns exch def } { } ifelse
  token { /rows exch def pop } { } ifelse
  currentfile String readline pop
  token { /Ncol exch def pop } { } ifelse
  /ColorMap Ncol array def