rfc1125.ps

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

%!PS-Adobe-1.0
/TeXDict 200 dict def   % define a working dictionary
TeXDict begin           % start using it.
/Resolution 300 def
/Inch{Resolution mul}def  % converts inches to internal units
/PageCounter statusdict begin pagecount end def  % so we can report # pages printed
/Mtrx 6 array def
/@letter
{letter initmatrix
72 Resolution div dup neg scale          % set scaling to 1.
310 -3005 translate      % move origin to top (these are not exactly 1"
Mtrx currentmatrix pop   % and -10" because margins aren't set exactly right)
}def
/@note
{note initmatrix
72 Resolution div dup neg scale          % set scaling to 1.
310 -3005 translate                      % move origin to top
Mtrx currentmatrix pop
}def
/@landscape
{letter initmatrix
72 Resolution div dup neg scale          % set scaling to 1.
-90 rotate                    % it would be nice to be able to do this
300 310  translate    % move origin to top
Mtrx currentmatrix pop
}def
/@legal
{legal initmatrix
72 Resolution div dup neg scale          % set scaling to 1.
295 -3880 translate                      % move origin to top
Mtrx currentmatrix pop
}def
/@manualfeed
{statusdict /manualfeed true put
}def
/@envelope
{statusdict /manualfeed true put
letter initmatrix
72 Resolution div dup neg scale          
-90 rotate 
450 1275 translate % upper right corner of regular envelope
300 310  translate
Mtrx currentmatrix pop
}def
/@copies
{/#copies exch def
}def
/@newfont       % id @newfont -         -- initialize a new font dictionary
{/newname exch def
pop
newname 7 dict def          % allocate new font dictionary
newname load begin
/FontType 3 def
/FontMatrix [1 0 0 -1 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps 256 array def
/BuildChar{CharBuilder}def
/Encoding 256 array def
0 1 255{Encoding exch /.undef put}for
end
newname newname load definefont pop
}def
/ch-image{ch-data 0 get}def   % the hex string image
/ch-width{ch-data 1 get}def   % the number of pixels across
/ch-height{ch-data 2 get}def  % the number of pixels tall
/ch-xoff{ch-data 3 get}def   % number of pixels below origin
/ch-yoff{ch-data 4 get}def   % number of pixels to left of origin
/ch-tfmw{ch-data 5 get}def   % spacing to next character
/CharBuilder    % fontdict ch Charbuilder -     -- image one character
{/ch-code exch def           % save the char code
/font-dict exch def         % and the font dict.
/ch-data font-dict /BitMaps get ch-code get def     % get the bitmap descriptor for char
ch-data null eq not
{ch-tfmw   0   ch-xoff neg   ch-yoff neg   ch-width ch-xoff sub   ch-height ch-yoff sub
setcachedevice
ch-width ch-height true [1 0  0 1  ch-xoff ch-yoff]
{ch-image}imagemask
}
if
}def
/@sf            % fontdict @sf -        -- make that the current font
{setfont() pop
}def
/@dc            % char-data ch @dc -    -- define a new character bitmap
{/ch-code exch def
dup 0 get
length 2 lt
{pop [ <00> 1 1 0 0 8.00 ]}% replace <> with null
if
/ch-data exch def
currentfont /BitMaps get ch-code ch-data put
currentfont /Encoding get ch-code 
dup (   ) cvs cvn   % generate a unique name simply from the character code
put
}def
/@bop0           % n @bop0 -        -- begin the char def section of a new page
{
}def
/@bop1           % n @bop1 -        -- begin a brand new page
{pop
erasepage initgraphics 
Mtrx setmatrix
0 0 moveto
/SaveImage save def
}def
/@eop           % - @eop -              -- end a page
{showpage 
SaveImage restore
}def
/@start         % - @start -            -- start everything
{/note where 			% check to see if note exists
{@note}{@letter} ifelse 	% if so, do that.  Otherwise
}def
/@end           % - @end -              -- done the whole shebang
{end
}def
/p              % x y p -               -- move to position
{moveto
}def
/r              % x r -                 -- move right
{0 rmoveto
}def
/s              % string s -            -- show the string
{show
}def
/c              % ch c -                -- show the character (code given)
{c-string exch 0 exch put
c-string show
}def
/c-string ( ) def
/ru             % dx dy ru -   -- set a rule (rectangle)
{/dy exch neg def    % because dy is height up from bottom
/dx exch def
/x currentpoint /y exch def def   % remember current point
newpath x y moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath fill
x y moveto
}def
/@SpecialDefaults
{
/hsi 72 8.5 mul def  % 8.5 Inch def
/vsi 72 11 mul def   % 11 Inch def
/hof 0 def
/vof 0 def
/hsc 1 def
/vsc 1 def
/rotat 0 def
/CLIP false def
}def
/@hsize{/hsi exch def /CLIP true def}def
/@vsize{/vsi exch def /CLIP true def}def
/@hoffset{/hof exch def}def
/@voffset{/vof exch def}def
/@hscale{/hsc exch def}def
/@vscale{/vsc exch def}def
/@rotation{/rotat exch def}def
/@setclipper
{
CLIP
{newpath 0 0 moveto hsi 0 rlineto 0 vsi rlineto hsi neg 0 rlineto 
closepath clip}
if
}def
/@beginspecial          % - @beginspecial -     -- enter special mode
{gsave /SpecialSave save def
currentpoint transform initgraphics itransform translate 0 0 moveto
@SpecialDefaults    % setup default offsets, scales, sizes
}def
/@setspecial    % to setup user specified offsets, scales, sizes (for clipping)
{
hof vof translate
@setclipper
hsc vsc scale 
rotat rotate
}def
/@endspecial            % - @endspecial -       -- leave special mode
{
SpecialSave restore
grestore
}def
end                     % revert to previous dictionary
/TeXscale{65536 div}def
gsave initgraphics
/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap
currentlinejoin currentdash currentgray currentmiterlimit ] cvx def
grestore
/startTexFig{
/SavedState save def
userdict maxlength dict begin
currentpoint transform
DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap
setlinewidth setmatrix
itransform moveto
/ury exch TeXscale def
/urx exch TeXscale def
/lly exch TeXscale def
/llx exch TeXscale def
/y exch TeXscale def
/x exch TeXscale def
currentpoint /cy exch def /cx exch def
/sx x urx llx sub div def 	% scaling for x
/sy y ury lly sub div def	% scaling for y
sx sy scale			% scale by (sx,sy)
cx sx div llx sub
cy sy div ury sub translate
/DefFigCTM matrix currentmatrix def
/initmatrix{
DefFigCTM setmatrix
}def
/defaultmatrix{
DefFigCTM exch copy
}def
/initgraphics{
DocumentInitState setmiterlimit setgray setdash 
setlinejoin setlinecap setlinewidth setmatrix
DefFigCTM setmatrix
}def
/showpage{
initgraphics
}def
/erasepage{
initgraphics
}def
/copypage{}def
}def
/clipFig{
currentpoint 6 2 roll
newpath 4 copy
4 2 roll moveto
6 -1 roll exch lineto
exch lineto
exch lineto
closepath clip
newpath
moveto
}def
/doclip{llx lly urx ury clipFig}def
/endTexFig{
end SavedState restore
}def
TeXDict begin @start
%%Title: rfc-estrin-requirements2.dvi
%%Creator: dvi2ps
%%EndProlog
18 @bop0
[ 1643 ] /cmsl10.1643-38 @newfont
cmsl10.1643-38 @sf
[<000007F0FFFC1FF87FFC1F1C07C03F0C03C03E0E03C03E0603C03E0003C03E0003C03E0003E03E0001E01E0001E01E0001E0
  1C0001E03C0001E03C0001F0780000FFF00000FFFC0000F01F0000F0078000F003C000F803E0007801E0007801F0007801F0
  007801F0007801F0007C01E0003C03E0003C07C007FFFF0007FFFC00> 32 32 -2 1 33.459] 82 @dc
[<FFFE00007FFE000007C0000003C0000003C0000003C0000003C0000003C0000003E0000001E0000001E0300001E0300001E0
  300001E0300001F0700000FFF80000FFF80000F0380000F0180000F0180000F8183000780C30007800380078003800780038
  00780038007C0038003C0078003C00F807FFFFF807FFFFF8> 32 31 -2 0 29.671] 70 @dc
[<007F800003FFE00007E0F0000F803C001F000E003E0006003C0007007C0003807C00018078000180780001C0F80000C0F800
  0000F8000000F8000000FC0000007C0000007C0000007C0000007C0000003E0000603E0000703E0000701F0000700F000070
  0F80007007C000F003E000F801F001F800FC03F8007F0738001FFE180003FC08> 32 33 -5 1 32.828] 67 @dc
[<FFFE7FFE03C001C001C001C001C001C001E000E000E000E000E000E000F00070007000700070007000780038003800380038
  0F380FFC00FC001C000C> 16 30 -4 0 22.727] 49 @dc
[<FFFF80FFFF807FFFC03800C01C00C00E006007806003C00001E00000F000007C00001E00000F000007800003C00003E00001
  F00000F80000F80E00780F00780F807C0F807C0F807C0E00780700F80380F801C3F000FFE0003F80> 24 30 -2 0 22.727] 50 @dc
[<0FE0003FF800787C00701E00E00F00C00780F007C0F003C0F003C07003E00003E00001E00001E00001E00C01C00E01C00F03
  C00F87800DFF000C7E000E000006000006000006000006000006000007FE0003FF8003FFE003FFF0038070> 24 31 -3 1 22.727] 53 @dc
[<FFFC00007FFC000007C0000003C0000003C0000003C0000003C0000003C0000003E0000001E0000001E0000001E0000001E0
  000001E0000001FFF80000FFFE0000F00F8000F003C000F001E000F001F000F801F0007800F8007800F8007800F8007800F8
  007800F8007C00F0003C01F0003C03E007FFFFC007FFFF00> 32 31 -2 0 30.934] 80 @dc
[<07E0001FFC003C1E00700700F00380F003C0E001C0E001E0E001E0F000F0F000F0F000F0F000F07000F03800E03C00E01E01
  C00F038003FF0000FC00> 24 20 -3 0 22.727] 111 @dc
[<FFC0FFC01E001E000E000E000E000E000F000700070007000700070007800380038003800380038003C001C001C001C001C0
  01C001E000E001E00FE007E000E0> 16 32 -1 0 12.626] 108 @dc
[<FF80FF801E000E000E000E000E000E000F00070007000700070007000780038007801F801F80038000000000000000000000
  000003C003E003E003E001E0> 16 31 -1 0 12.626] 105 @dc
[<0FE03FF87C3C780CF00EF000F000E000F000F000F000F000F000780078003C0E1E0F0F0F07FF01FE> 16 20 -4 0 20.202] 99 @dc
[<7C000000FF000000F3800000F180000070C00000006000000060000000300000003000000038000000380000003C0000003C
  0000003E0000007600000073000000730000007180000071C00000E0C00000E0E00000E0600000E0300000E0300001E01800
  01C0180001E03E000FF87F800FF87F80> 32 29 0 9 23.989] 121 @dc
[<0FE0001FF8003E1E00780600F00700F00000F00000E00000F00000F00000FFFF80FFFF80F003807803807803803C07801E07
  000F0F0007FE0001FC00> 24 20 -3 0 20.202] 101 @dc
[<00FFC000FFC0000E00000E00000E00000E00000F000007000007000FC7001FF7003E3F807C1F80780780780780780380F003
  80F803C07803C07801C07801C07C01C03C01C03E01E01E01E01F03E00FC7E003FE6000FC60> 24 29 -3 9 23.989] 113 @dc
[<1FCFE03FFFE0387F00381F00380F00380F003807003807003C07801C07801C03801C03801C03801C03801E03C00E03C01E03
  C0FE1FC07E0FC00E01C0> 24 20 -4 0 25.252] 117 @dc