rfc1291.ps

来自「RFC 的详细文档！」· PS 代码 · 共 1,423 行 · 第 1/5 页

%!
% This file is a NONconforming PostScript file.
(TeXPS: dvi->PostScript Driver dvi2ps, Version 3.11 of September 5, 1990\n)print flush
(TeXPS: release number dvi2ps of 3.11\n)print flush
% Copyright 1989 Stephan v. Bechtolsheim (unless otherwise stated)
% applies to various prologue files. Read documentation for details.
save
% dvi2ps: BEGIN including file "/usr/local/tex/lib/TeXPS/pro/texpre.pro"
/@bop0
{
PsPrintEnabled { (Pass0: Page ) print == flush } {pop} ifelse
}	def
/@eop0 {
pop
}	def
/@bop1
{
PsPrintEnabled { (Pass1: Page ) print == flush } {pop} ifelse
save
DviTranslateVector-X DviTranslateVector-Y translate
DviOrientationMatrix concat
Page-H-Offset Page-V-Offset translate
3 1 roll
translate
0 0 moveto
Draft-Flag { @Draft } if
/DriverDelta 0 def
} def
/@eop1 {
pop
showpage
restore
} def
/@end {
(Done!\n) print flush
} def
/@ReportVmStatus {
(\n@ReportVmStatus: ) print
print (: ) print
vmstatus
(max: ) print 20 string cvs print
(, used: ) print 20 string cvs print
(, level: ) print 20 string cvs print
(\n) print flush
} def
/@ReportVmStatusNew {
(VM: ) print
exch print
(, printer: ) print
/Vmfree vmstatus pop exch pop def Vmfree (       ) cvs print
(, driver: ) print dup (      ) cvs print
(, delta: ) print
Vmfree sub (      ) cvs print
(\n) print flush
} def
/@Draft {
gsave
Page-H-Offset neg Page-V-Offset neg translate
-45 rotate
-150 0 moveto
/Helvetica-Bold findfont
[120.0 0 0 -120.0 0 0 ] makefont setfont
(DRAFT)  true charpath stroke
grestore
gsave
Page-H-Offset neg Page-V-Offset neg translate
300 -100 moveto
/Helvetica-Bold findfont
[60.0 0 0   -60.0 0 0 ] makefont setfont
Date-and-Time		show
(   ::   )	      	show
Dvi-File-Name		show
grestore
} def
% dvi2ps: END including file "/usr/local/tex/lib/TeXPS/pro/texpre.pro"
% dvi2ps: BEGIN including file "/usr/local/tex/lib/TeXPS/pro/pos.pro"
/a { rmoveto } def
/DriverDelta 0 def
/b { exch p dup /DriverDelta exch def 0 rmoveto } def
/c { p DriverDelta 4 sub dup /DriverDelta exch def 0 rmoveto } def
/d { p DriverDelta 3 sub dup /DriverDelta exch def 0 rmoveto } def
/e { p DriverDelta 2 sub dup /DriverDelta exch def 0 rmoveto } def
/f { p DriverDelta 1 sub dup /DriverDelta exch def 0 rmoveto } def
/g { p DriverDelta 0 rmoveto } def
/h { p DriverDelta 1 add dup /DriverDelta exch def 0 rmoveto } def
/i { p DriverDelta 2 add dup /DriverDelta exch def 0 rmoveto } def
/j { p DriverDelta 3 add dup /DriverDelta exch def 0 rmoveto } def
/k { p DriverDelta 4 add dup /DriverDelta exch def 0 rmoveto } def
/l { p -4 0 rmoveto } def
/m { p -3 0 rmoveto } def
/n { p -2 0 rmoveto } def
/o { p -1 0 rmoveto } def
/q { p 1 0 rmoveto } def
/r { p 2 0 rmoveto } def
/s { p 3 0 rmoveto } def
/t { p 4 0 rmoveto } def
/p { show } def
/w { 0 exch rmoveto } def
/x { 0 rmoveto } def
/y { 3 -1 roll p rmoveto } def
/u-string ( ) def
/u { u-string exch 0 exch put
u-string show
} def
/v { u-string exch 0 exch put
currentpoint
u-string show
moveto
} def
% dvi2ps: END including file "/usr/local/tex/lib/TeXPS/pro/pos.pro"
% dvi2ps: BEGIN including file "/usr/local/tex/lib/TeXPS/pro/rules.pro"
/z
{   /dy exch def
/dx exch def
currentpoint
currentpoint
transform round exch round exch itransform
newpath
moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath
fill
moveto
}
def
/z
{   /dy exch def
/dx exch def
currentpoint
0.2 0.2 rmoveto
currentpoint
newpath
moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath
fill
moveto
}
def
% dvi2ps: END including file "/usr/local/tex/lib/TeXPS/pro/rules.pro"
letter
/Dvi-File-Name (min-services.dvi) def
(Dvi file name: ") print Dvi-File-Name print (".\n) print
/Draft-Flag false def
/#copies 1 def
/NumCharsInPixelFonts 256 def
/HostName (nisc.jvnc.net) def
(This PostScript file was produced on host \") print HostName print (\".\n) print
/PsPrintEnabled true def
/Page-H-Offset   0.000000 def
/Page-V-Offset   0.000000 def
/ExecPsConv {0.30 mul} def
/Date-and-Time (Tue Jan  7 09:32 1992) def
/DviTranslateVector-X   72.000 def
/DviTranslateVector-Y  720.000 def
/DviOrientationMatrix [    0.240    0.000    0.000
	   -0.240 0.0 0.0 ] def
% dvi2ps: BEGIN including file "/usr/local/tex/lib/TeXPS/pro/pixel-fonts.pro"
/@newfont
{
/newname exch def
newname 7 dict def
newname load begin
/FontType 3 def
/FontMatrix [1 0 0 -1 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps NumCharsInPixelFonts array def
/BuildChar {CharBuilder} def
/Encoding NumCharsInPixelFonts array def
0 1 NumCharsInPixelFonts 1 sub {Encoding exch /.undef put} for
end
newname newname load definefont pop
} def
/ch-image {ch-data 0 get} def
/ch-width {ch-data 1 get} def
/ch-height {ch-data 2 get} def
/ch-xoff  {ch-data 3 get} def
/ch-yoff  {ch-data 4 get} def
/ch-tfmw  {ch-data 5 get} def
/CharBuilder
{
/ch-code exch def
/font-dict exch def
/ch-data font-dict /BitMaps get ch-code get def
ch-data null eq not
{
ch-tfmw   0
ch-xoff neg
ch-height ch-yoff sub neg
ch-width  ch-xoff neg add
ch-yoff
setcachedevice
0 0 transform round exch round exch itransform translate
ch-width ch-height true
[1 0  0 1 ch-xoff ch-height ch-yoff sub] {ch-image} imagemask
}
if
} def
/@dc
{
/ch-code exch def
/ch-data exch def
currentfont /BitMaps get
ch-code ch-data put
currentfont /Encoding get
ch-code (   ) cvs   % convert the character code to a string
cvn
ch-code exch put
} def
/@sf /setfont load def
% dvi2ps: END including file "/usr/local/tex/lib/TeXPS/pro/pixel-fonts.pro"

1 @bop0
/@F8 @newfont
@F8 @sf
[<
0000C000000000C000000000C000000001E000000001E000000003F000000003D000000003
D0000000078800000007880000000F8C0000000F040000000F040000001F020000001E0200
00001E020000003C010000003C010000007C0180000078008000007800800000F000400000
F000400000F000400001E000200001E000200003E000300003C000100003C0001000078000
080007800008000780000C000F00000C001F80001F00FFF0007FC0>
	 34 35 -1 33 37] 86 @dc
[<
FFC00E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E001E
00FE000E00000000000000000000000000000000001C001E003E001E001C00>
	 10 34 -1 33 14] 105 @dc
[<
FFE3FE0E00F80E00F00E01E00E01C00E03C00E07800E07000E0E000E1E000F1C000EF8000E
38000E10000E08000E04000E02000E01800E01C00E01F00E03FC0E00000E00000E00000E00
000E00000E00000E00000E00000E00000E00000E00001E0000FE00000E0000>
	 23 35 -1 34 26] 107 @dc
[<
0FC1E03C2390781708F00F08F00708F00708F007087007007807003C07001E070007C70000
FF000007000007000007001807003C0E003C0C001838000FE000>
	 21 21 -2 20 24] 97 @dc
[<
8FC0D030E018C008C00C800C800C801C003C01F80FF03FE07F80F000E008C008C008C01860
1830780F88>
	 14 21 -2 20 19] 115 @dc
[<
FF800FFF3E0001F80C0000F00C0000F0040001E0040001E0040003E0020003C0020003C003
0007C0010007800100078000FFFF0000800F0000800F0000401E0000401E0000401E000020
3C0000203C0000203C0000107800001078000010F8000008F0000008F000000DF0000005E0
000005E0000003C0000003C0000003C000000180000001800000018000>
	 32 35 -2 34 37] 65 @dc
[<
03FE000E03803800E0600030600030C00018C00018C000184000186000303800F00FFFE00F
FFC01FFE0018000018000010000010000019F0000F1C000E0E001C07001C07003C07803C07
803C07803C07801C07001C07000E0E18071E1801F198000070>
	 21 33 -1 21 24] 103 @dc
[<
FFF00F000E000E000E000E000E000E000E000E000E000E000E000E000E000F000F060F0F1E
8FFE460E3C>
	 16 21 -1 20 19] 114 @dc
[<
00600600006006000060060000F00F0000F00F0000F00D0001C81C8001C81C8001C8188003
84384003843840038430400702702007027020070260200E01E0100E01E0100E01C0181C01
C0181E01E03CFF8FF8FF>
	 32 21 -1 20 35] 119 @dc
[<
FFE00E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E
000E000E000E000E000E000E000E000E000E000E000E000E000E001E00FE000E00>
	 11 35 -1 34 14] 108 @dc
[<
0000007C00FFFC01E2000FC003C100078007C08007800FC08007800F808007800F80000780
0F800007800F800007800F000007800F000007800F000007800F000007800E000007801E00
0007801C00000780380000078070000007FFE0000007803C000007800E0000078007800007
8007C000078003C000078003E000078003E000078003E000078003E000078003E000078003
C000078007C000078007800007800E00000F803C0000FFFFE00000>
	 33 35 -2 33 36] 82 @dc
[<
00FC000703000E00801C0040380020780020700000F00000F00000F00000F00000F00000FF
FFE0F000E07000E07801E03801C01C01C00C038007070001FC00>
	 19 21 -1 20 22] 101 @dc
[<
000FFE0000E00000E00000E00000E00000E00000E00000E00000E00000E001F0E0070CE00C
02E01C01E03801E07800E07000E0F000E0F000E0F000E0F000E0F000E0F000E0F000E07800
E07800E03801E01C01600E026007046001F820>
	 23 31 -2 20 26] 113 @dc
[<
00FC7F0382780601700E00F00E00F00E00700E00700E00700E00700E00700E00700E00700E