preamble.ps

<B>Digital的Unix操作系统VAX 4.2源码</B>

/Encoding TcsEncoding def
/CharWidth .6 def
/FontMatrix [1160 0 0 -1200 0 0] def
/UnderlineThickness 72 def
/UnderlinePosition 240 def
/OverlineThickness 72 def
/OverlinePosition -912 def
/StrikethroughThickness 72 def
/StrikethroughPosition -264 def
/UniqueID 3658495 def
/FullName (TRN$ANSI_FONT_5) readonly def
end
/TRN$ANSI_FONT_5 TRN$ANSI_FONT_DICT_5 definefont pop
/TRN$ANSI_BOX_5
{ /TRN$ANSI_FONT_5 findfont
setfont } def
/TRN$ANSI_FONT_DICT_6 17 dict def
TRN$ANSI_FONT_DICT_6 begin
/FontName (/TRN$ANSI_FONT_6) def
/FontType 3 def
/FontBBox BBox def
/BuildChar /BuildChar load def
/Encoding TcsEncoding def
/CharWidth .6 def
/FontMatrix [1000 0 0 -1200 0 0] def
/UnderlineThickness 72 def
/UnderlinePosition 240 def
/OverlineThickness 72 def
/OverlinePosition -912 def
/StrikethroughThickness 72 def
/StrikethroughPosition -264 def
/UniqueID 3658496 def
/FullName (TRN$ANSI_FONT_6) readonly def
end
/TRN$ANSI_FONT_6 TRN$ANSI_FONT_DICT_6 definefont pop
/TRN$ANSI_BOX_6
{ /TRN$ANSI_FONT_6 findfont
setfont } def
/TRN$ANSI_FONT_DICT_7 17 dict def
TRN$ANSI_FONT_DICT_7 begin
/FontName (/TRN$ANSI_FONT_7) def
/FontType 3 def
/FontBBox BBox def
/BuildChar /BuildChar load def
/Encoding TcsEncoding def
/CharWidth .6 def
/FontMatrix [880 0 0 -880 0 0] def
/UnderlineThickness 52.8 def
/UnderlinePosition 176 def
/OverlineThickness 52.8 def
/OverlinePosition -668.8 def
/StrikethroughThickness 52.8 def
/StrikethroughPosition -193.6 def
/UniqueID 3658497 def
/FullName (TRN$ANSI_FONT_7) readonly def
end
/TRN$ANSI_FONT_7 TRN$ANSI_FONT_DICT_7 definefont pop
/TRN$ANSI_BOX_7
{ /TRN$ANSI_FONT_7 findfont
setfont } def
/generate_sixelfont {
15 dict begin
/FontName /TRN$ANSI_sixelfont_0 def
/UniqueID sixel_font_unid def
/FontInfo 10 dict dup
begin
/version (2.0, 15 June 1988) readonly def
/FullName (TRN$ANSI_sixelfont_0) readonly def
/Notice
(Copyright 1988, Digital Equipment Corporation.)
readonly def
end
readonly def
/FontBBox [  0   0   longest_sf_run 6 div   1  ] def
/FontMatrix [ 1 0 0 1 0 0 ] def
/FontType 3 def
/Encoding [
32 { /.notdef } repeat
sixel_encoding_low31
/1x0
/1x1  /1x2  /1x3  /1x4  /1x5  /1x6  /1x7  /1x8
/1x9  /1x10 /1x11 /1x12 /1x13 /1x14 /1x15 /1x16
/1x17 /1x18 /1x19 /1x20 /1x21 /1x22 /1x23 /1x24
/1x25 /1x26 /1x27 /1x28 /1x29 /1x30 /1x31 /1x32
/1x33 /1x34 /1x35 /1x36 /1x37 /1x38 /1x39 /1x40
/1x41 /1x42 /1x43 /1x44 /1x45 /1x46 /1x47 /1x48
/1x49 /1x50 /1x51 /1x52 /1x53 /1x54 /1x55 /1x56
/1x57 /1x58 /1x59 /1x60 /1x61 /1x62 /1x63
counttomark 256 exch sub { /.notdef } repeat
] def
/im-matrix matrix def
/BCDict 5 dict def
/BuildChar {
exch begin
BCDict begin
Encoding exch get
(.notdef) cvs
(x) search
{   token pop
/rep exch def pop
pop
token pop
/six exch def pop
}
{
pop
/rep 0 def
}
ifelse
rep 6 div  0
0 0 rep 6 div 1
setcachedevice
rep 0 gt
{   6 1 true
0  -6 rep div  6  0  0  1  im-matrix astore
{	( ) dup 0 six 2 bitshift put }
imagemask
}
if
end end
} def
FontName currentdict
end
definefont pop
} decbind def
/DllEncoding 256 array def
0 1 255 {DllEncoding exch /a128 put} for
DllEncoding
dup 29 /a128 put
dup 157 /a128 put
pop
DllEncoding
dup 32 /a32 put
dup 33 /a33 put
dup 34 /a34 put
dup 35 /a35 put
dup 36 /a36 put
dup 37 /a37 put
dup 38 /a38 put
dup 39 /a39 put
dup 40 /a40 put
dup 41 /a41 put
dup 42 /a42 put
dup 43 /a43 put
dup 44 /a44 put
dup 45 /a45 put
dup 46 /a46 put
dup 47 /a47 put
dup 48 /a48 put
dup 49 /a49 put
dup 50 /a50 put
dup 51 /a51 put
dup 52 /a52 put
dup 53 /a53 put
dup 54 /a54 put
dup 55 /a55 put
dup 56 /a56 put
dup 57 /a57 put
dup 58 /a58 put
dup 59 /a59 put
dup 60 /a60 put
dup 61 /a61 put
dup 62 /a62 put
dup 63 /a63 put
dup 64 /a64 put
dup 65 /a65 put
dup 66 /a66 put
dup 67 /a67 put
dup 68 /a68 put
dup 69 /a69 put
dup 70 /a70 put
dup 71 /a71 put
dup 72 /a72 put
dup 73 /a73 put
dup 74 /a74 put
dup 75 /a75 put
dup 76 /a76 put
dup 77 /a77 put
dup 78 /a78 put
dup 79 /a79 put
dup 80 /a80 put
dup 81 /a81 put
dup 82 /a82 put
dup 83 /a83 put
dup 84 /a84 put
dup 85 /a85 put
dup 86 /a86 put
dup 87 /a87 put
dup 88 /a88 put
dup 89 /a89 put
dup 90 /a90 put
dup 91 /a91 put
dup 92 /a92 put
dup 93 /a93 put
dup 94 /a94 put
dup 95 /a95 put
dup 96 /a96 put
dup 97 /a97 put
dup 98 /a98 put
dup 99 /a99 put
dup 100 /a100 put
dup 101 /a101 put
dup 102 /a102 put
dup 103 /a103 put
dup 104 /a104 put
dup 105 /a105 put
dup 106 /a106 put
dup 107 /a107 put
dup 108 /a108 put
dup 109 /a109 put
dup 110 /a110 put
dup 111 /a111 put
dup 112 /a112 put
dup 113 /a113 put
dup 114 /a114 put
dup 115 /a115 put
dup 116 /a116 put
dup 117 /a117 put
dup 118 /a118 put
dup 119 /a119 put
dup 120 /a120 put
dup 121 /a121 put
dup 122 /a122 put
dup 123 /a123 put
dup 124 /a124 put
dup 125 /a125 put
dup 126 /a126 put
dup 127 /a127 put
pop
DllEncoding
dup 160 /a160 put
dup 161 /a161 put
dup 162 /a162 put
dup 163 /a163 put
dup 164 /a164 put
dup 165 /a165 put
dup 166 /a166 put
dup 167 /a167 put
dup 168 /a168 put
dup 169 /a169 put
dup 170 /a170 put
dup 171 /a171 put
dup 172 /a172 put
dup 173 /a173 put
dup 174 /a174 put
dup 175 /a175 put
dup 176 /a176 put
dup 177 /a177 put
dup 178 /a178 put
dup 179 /a179 put
dup 180 /a180 put
dup 181 /a181 put
dup 182 /a182 put
dup 183 /a183 put
dup 184 /a184 put
dup 185 /a185 put
dup 186 /a186 put
dup 187 /a187 put
dup 188 /a188 put
dup 189 /a189 put
dup 190 /a190 put
dup 191 /a191 put
dup 192 /a192 put
dup 193 /a193 put
dup 194 /a194 put
dup 195 /a195 put
dup 196 /a196 put
dup 197 /a197 put
dup 198 /a198 put
dup 199 /a199 put
dup 200 /a200 put
dup 201 /a201 put
dup 202 /a202 put
dup 203 /a203 put
dup 204 /a204 put
dup 205 /a205 put
dup 206 /a206 put
dup 207 /a207 put
dup 208 /a208 put
dup 209 /a209 put
dup 210 /a210 put
dup 211 /a211 put
dup 212 /a212 put
dup 213 /a213 put
dup 214 /a214 put
dup 215 /a215 put
dup 216 /a216 put
dup 217 /a217 put
dup 218 /a218 put
dup 219 /a219 put
dup 220 /a220 put
dup 221 /a221 put
dup 222 /a222 put
dup 223 /a223 put
dup 224 /a224 put
dup 225 /a225 put
dup 226 /a226 put
dup 227 /a227 put
dup 228 /a228 put
dup 229 /a229 put
dup 230 /a230 put
dup 231 /a231 put
dup 232 /a232 put
dup 233 /a233 put
dup 234 /a234 put
dup 235 /a235 put
dup 236 /a236 put
dup 237 /a237 put
dup 238 /a238 put
dup 239 /a239 put
dup 240 /a240 put
dup 241 /a241 put
dup 242 /a242 put
dup 243 /a243 put
dup 244 /a244 put
dup 245 /a245 put
dup 246 /a246 put
dup 247 /a247 put
dup 248 /a248 put
dup 249 /a249 put
dup 250 /a250 put
dup 251 /a251 put
dup 252 /a252 put
dup 253 /a253 put
dup 254 /a254 put
dup 255 /a255 put
pop
/DllBuildCharDict 6 dict def
/DllBuildChar
{
DllBuildCharDict begin
/char exch def
/fontdict exch def
/charname fontdict /Encoding get char get def
/charinfo fontdict /CharStrings get charname get def
/charbbox charinfo 1 4 getinterval def
fontdict /CharWidth known
{fontdict /CharWidth get 0}
{charinfo 0 get 0}
ifelse
charbbox aload pop
setcachedevice
charinfo 5 get charinfo 6 get true
fontdict /imagemaskmatrix get
dup 4 charinfo 7 get put
dup 5 charinfo 8 get put
charinfo 9 1 getinterval cvx
imagemask
end
}decbind def
/SavedX 0 def
/SavedY 0 def
/SavedString () def
/ShowInit
{currentpoint
/SavedY exch def
/SavedX exch def
}decbind def
/lineDict 2 dict def
/line
{
lineDict begin
/OffsetY exch def
/lineThickness exch def
gsave
currentpoint
newpath
OffsetY add
M
SavedX SavedY
OffsetY add
L
lineThickness W K
grestore
end
}decbind def
/bold
{
dup /SavedString exch def
400 currentfont /FontMatrix get 3 get mul -12000 div 0 rmoveto
D
SavedX SavedY M
800 currentfont /FontMatrix get 3 get mul -12000 div 0 rmoveto
SavedString D
SavedX SavedY M
SavedString D
}decbind def
/UL
{
currentfont /UnderlinePosition get add
currentfont /UnderlineThickness get
exch 1 index 2 div add
line
}decbind def
/DUL
{
currentfont /UnderlinePosition get add
dup
currentfont /UnderlineThickness get
exch 1 index 2 div add
line
currentfont /UnderlineThickness get
exch 1 index 2 div add
currentfont /UnderlineThickness get
dup
add add
line
}decbind def
/OL
{
currentfont /OverlinePosition get add
currentfont /OverlineThickness get
exch 1 index 2 div add
line
}decbind def
/strike
{currentfont /StrikethroughThickness get
currentfont /StrikethroughPosition get
1 index 2 div add
line
}decbind def
/italic
{currentfont [1 0 -.2679 1 0 0] makefont SF
}decbind def
/D1
{
ShowInit
italic
D
}decbind def
/D2
{
ShowInit
bold
}decbind def
/D3
{
ShowInit
italic
bold
}decbind def
/D4
{
exch
ShowInit
D
UL
}decbind def
/D5
{
exch
ShowInit
italic
D
UL
}decbind def
/D6
{
exch
ShowInit
bold
UL
}decbind def
/D7
{
exch
ShowInit
italic
bold
UL
}decbind def
/D8
{
exch
ShowInit
D
OL
}decbind def
/D9
{
exch
ShowInit
italic
D
OL
}decbind def
/D10
{
exch
ShowInit
bold
OL
}decbind def
/D11
{
exch
ShowInit
italic
bold
OL
}decbind def
/D12
{
exch
ShowInit
D
dup
UL
OL
}decbind def
/D13
{
exch
ShowInit
italic
D
dup
UL
OL
}decbind def
/D14
{
exch
ShowInit
bold
dup
UL
OL
}decbind def
/D15
{
exch
ShowInit
italic
bold
dup
UL
OL
}decbind def
/D16
{
ShowInit
D
strike
}decbind def
/D17
{
ShowInit
italic
D
strike
}decbind def
/D18
{
ShowInit
bold
strike
}decbind def
/D19
{
ShowInit
italic
bold
strike
}decbind def
/D20
{
exch
ShowInit
D
UL
strike
}decbind def
/D21
{
exch
ShowInit
italic
D
UL
strike
}decbind def
/D22
{
exch
ShowInit
bold
UL
strike
}decbind def
/D23
{
exch
ShowInit
italic
bold
UL
strike
}decbind def
/D24
{
exch
ShowInit
D
strike
OL
}decbind def
/D25
{
exch
ShowInit
italic
D
strike
OL
}decbind def
/D26
{
exch
ShowInit
bold
strike
OL
}decbind def
/D27
{
exch
ShowInit
italic
bold
strike
OL
}decbind def
/D28
{
exch
ShowInit
D
dup
UL
strike
OL
}decbind def
/D29
{
exch
ShowInit
italic
D
dup
UL
strike
OL
}decbind def
/D30
{
exch
ShowInit
bold
dup
UL
strike
OL
}decbind def
/D31
{
exch
ShowInit
italic
bold
dup
UL
strike
OL
}decbind def
/D32
{
exch
ShowInit
D
DUL
}decbind def
/D33
{
exch
ShowInit
italic
D
DUL
}decbind def
/D34
{
exch
ShowInit
bold
DUL
}decbind def
/D35
{
exch
ShowInit
italic
bold
DUL
}decbind def
/D36
{
exch
ShowInit
D
DUL
}decbind def
/D37
{
exch
ShowInit
italic
D
DUL
}decbind def
/D38
{
exch
ShowInit
bold
DUL
}decbind def
/D39
{
exch
ShowInit
italic
bold
DUL
}decbind def
/D40
{
exch
ShowInit
D
dup
OL
DUL
}decbind def
/D41
{
exch
ShowInit
italic
D
dup
OL
DUL
}decbind def
/D42
{
exch
ShowInit
bold
dup
OL
DUL
}decbind def
/D43
{
exch
ShowInit
italic
bold
dup
OL
DUL
}decbind def
/D44
{
exch
ShowInit
D
dup
OL
DUL
}decbind def
/D45
{
exch
ShowInit
italic
D
dup
OL
DUL
}decbind def
/D46
{
exch
ShowInit
bold
dup
OL
DUL
}decbind def
/D47
{
exch
ShowInit
italic
bold
dup
OL
DUL
}decbind def
/D48
{
exch
ShowInit
D
DUL
strike
}decbind def
/D49
{
exch
ShowInit
italic
D
DUL
strike
}decbind def
/D50
{
exch
ShowInit
bold
DUL
strike
}decbind def
/D51
{
exch
ShowInit
italic
bold
DUL
strike
}decbind def
/D52
{
exch
ShowInit
D
DUL
strike
}decbind def
/D53
{
exch
ShowInit
italic
D
DUL
strike
}decbind def
/D54
{
exch
ShowInit
bold
DUL
strike
}decbind def
/D55
{
exch
ShowInit
italic
bold
DUL
strike
}decbind def
/D56
{
exch
ShowInit
D
dup
OL
DUL
strike
}decbind def
/D57
{
exch
ShowInit
italic
D
dup
OL
DUL
strike
}decbind def
/D58
{
exch
ShowInit
bold
dup
OL
DUL
strike
}decbind def
/D59
{
exch
ShowInit
italic
bold
dup
OL
DUL
strike
}decbind def
/D60
{
exch
ShowInit
D
dup
OL
DUL
strike
}decbind def
/D61
{
exch
ShowInit
italic
D
dup
OL
DUL
strike
}decbind def
/D62
{
exch
ShowInit
bold
dup
OL
DUL
strike
}decbind def
/D63
{
exch
ShowInit
italic
bold
dup
OL
DUL
strike
}decbind def
/TRN$VSHOW_UL
{
exch
ShowInit
0 rmoveto
UL
}decbind def
/TRN$VSHOW_OL
{
exch
ShowInit
0 rmoveto
OL
}decbind def
/TRN$VSHOW_DUL
{
exch
ShowInit
0 rmoveto
DUL
}decbind def
/TRN$VSHOW_STRIKE
{
pop
ShowInit
0 rmoveto
strike
}decbind def
/TRN$VSHOW_UL_STRIKE
{
exch
ShowInit
0 rmoveto
UL
strike
}decbind def
/TRN$VSHOW_OL_STRIKE
{
exch
ShowInit
0 rmoveto
OL
strike
}decbind def
/TRN$VSHOW_DUL_STRIKE
{
exch
ShowInit
0 rmoveto
DUL
strike
}decbind def
/TRN$VSHOW_OL_DUL
{
exch
ShowInit
0 rmoveto
dup
OL
DUL
}decbind def
/TRN$VSHOW_OL_UL
{
exch
ShowInit
0 rmoveto
dup
OL
UL
}decbind def
/TRN$VSHOW_DUL_STRIKE_OL
{
exch
ShowInit
0 rmoveto
dup
OL
DUL
strike
}decbind def
/TRN$VSHOW_UL_STRIKE_OL
{
exch
ShowInit
0 rmoveto
dup
OL
UL
strike
}decbind def
/scanrow 6 def
/mscanrow 6 def
/H
{bitwidth scanrow false [bitwidth 0 0 mscanrow 0 scanrow]
{currentfile picstr
readhexstring pop
}
imagemask
}decbind def
/I
{bitwidth scanrow false [bitwidth 0 0 mscanrow 0 scanrow]
{currentfile picstr
readstring pop
}
imagemask
}decbind def
/version (V3.1-57) def
end