csibw.ps

来自「开放源码的编译器open watcom 1.6.0版的源代码」· PS 代码 · 共 186 行

%!PS-Adobe-2.0
%%Creator: dvips, version 5.4 (C) 1986-90 Radical Eye Software
%%Title: CSIBW.DVI
%%Pages: 1 1
%%BoundingBox: 0 0 596 843
%%EndComments
%%BeginProcSet: texc.pro
/TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch
load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{
isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
Resolution VResolution vsize neg mul TR}B /@letter{/vsize 10 N}B /@landscape{
/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{/vsize 15.5531 N
}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 N}B /@manualfeed{statusdict
/manualfeed true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0
]N /df{/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0
]N df-tail}B /df-tail{/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N
/FontBBox FBB N string /base X array /BitMaps X /BuildChar{CharBuilder}N
/Encoding IE N end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[
}B /E{pop nn dup definefont setfont}B /ch-image{ch-data dup type /stringtype
ne{ctr get /ctr ctr 1 add N}if}B /ch-width{ch-data dup length 5 sub get}B
/ch-height{ch-data dup length 4 sub get}B /ch-xoff{128 ch-data dup length 3
sub get sub}B /ch-yoff{ch-data dup length 2 sub get 127 sub}B /ch-dx{ch-data
dup length 1 sub get}B /ctr 0 N /CharBuilder{save 3 1 roll S dup /base get 2
index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff ch-yoff
ch-height sub ch-xoff ch-width add ch-yoff setcachedevice ch-width ch-height
true[1 0 0 -1 -.1 ch-xoff sub ch-yoff .1 add]/id ch-image N /rw ch-width 7 add
8 idiv string N /rc 0 N /gp 0 N /cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}
imagemask restore}B /G{{id gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get
exec}loop}B /adv{cp add /cp X}B /chg{rw cp id gp 4 index getinterval
putinterval dup gp add /gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get
dup 0 eq{pop 1}{dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}
ifelse put 1 adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}
{dup 2 idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval adv}B
/fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}bind{adv 1
chg nd}bind{1 add chg}bind{1 add chg nd}bind{adv lsh}bind{adv lsh nd}bind{adv
rsh}bind{adv rsh nd}bind{1 add adv}bind{/rc X nd}bind{1 add set}bind{1 add clr
}bind{adv 2 chg}bind{adv 2 chg nd}bind{pop nd}bind]N /D{/cc X dup type
/stringtype ne{]}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{
dup dup length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I
{cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin 0 0
moveto}B /eop{clear SI restore showpage userdict /eop-hook known{eop-hook}if}
B /@start{userdict /start-hook known{start-hook}if /VResolution X /Resolution
X 1000 div /DVImag X /IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put
cvn put}for}B /p /show load N /RMat[1 0 0 -1 0 0]N /BDot 8 string N /v{/ruley
X /rulex X V}B /V{gsave TR -.1 -.1 TR rulex ruley scale 1 1 false RMat{BDot}
imagemask grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{
S p delta add tail}B /b{S p tail}B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{
0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B
/o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /w{0 rmoveto}B /x{0 S
rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B /eos{clear SS restore}B end
%%EndProcSet
%%BeginProcSet: special.pro
TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N /vs
792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP false N /BBcalc false N
/p 3 def}B /@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{
@scaleunit div /vsc X}B /@hsize{/hs X /CLIP true N}B /@vsize{/vs X /CLIP true
N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{10 div /rwi X}
B /@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X /BBcalc true N}B
/magscale true def end /@MacSetUp{userdict /md known{userdict /md get type
/dicttype eq{md begin /letter{}N /note{}N /legal{}N /od{txpose 1 0 mtx
defaultmatrix dtransform S atan/pa X newpath clippath mark{transform{
itransform moveto}}{transform{itransform lineto}}{6 -2 roll transform 6 -2
roll transform 6 -2 roll transform{itransform 6 2 roll itransform 6 2 roll
itransform 6 2 roll curveto}}{{closepath}}pathforall newpath counttomark array
astore /gc xdf pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{
PaintBlack}if}N /txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR
pop 1 -1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0 TR}if
yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR pop pop 270
rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1 -1 scale ppr 3 get
ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip not
and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg sub neg 0 TR}if yflip xflip
not and{TR pop pop 270 rotate ppr 2 get ppr 0 get neg sub neg 0 S TR}if}
ifelse scaleby96{ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy
TR .96 dup scale neg S neg S TR}if}N /cp{pop pop showpage pm restore}N end}if}
if}N /normalscale{Resolution 72 div VResolution 72 div neg scale magscale{
DVImag dup scale}if}N /psfts{S 65536 div N}N /startTexFig{/psf$SavedState save
N userdict maxlength dict begin /magscale false def normalscale currentpoint
TR /psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx psf$llx
sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy scale psf$cx
psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR /showpage{}N
/erasepage{}N /copypage{}N @MacSetUp}N /doclip{psf$llx psf$lly psf$urx psf$ury
currentpoint 6 2 roll newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S
lineto S lineto closepath clip newpath moveto}N /endTexFig{end psf$SavedState
restore}N /@beginspecial{SDict begin /SpecialSave save N gsave normalscale
currentpoint TR @SpecialDefaults}B /@setspecial{CLIP{newpath 0 0 moveto hs 0
rlineto 0 vs rlineto hs neg 0 rlineto closepath clip}{initclip}ifelse ho vo TR
hsc vsc scale ang rotate BBcalc{rwi urx llx sub div dup scale llx neg lly neg
TR}if /showpage{}N /erasepage{}N /copypage{}N newpath}B /@endspecial{grestore
clear SpecialSave restore end}B /@defspecial{SDict begin}B /@fedspecial{end}B
/li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{/SaveX currentpoint /SaveY X N 1
setlinecap newpath}B /st{stroke SaveX SaveY moveto}B /fil{fill SaveX SaveY
moveto}B /ellipse{/endangle X /startangle X /yrad X /xrad X /savematrix matrix
currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc savematrix
setmatrix}B end
%%EndProcSet
TeXDict begin 1000 300 300 @start /Fa 35 122 df<12035AB4FC1207B3A2EAFFF00C187D
9713>49 D<EA0F80EA1060EA2030EA4038EA803CEAC01C12E01240EA003C1338A21370136013C0
EA018013001202EA040412081210EA3008EA3FF8127F12FF0E187E9713>I<EA0F80EA10E0EA20
70EA6078EA70381220EA00781370A2136013C0EA0F80EA00E013701338133CA212E0A212C0EA40
381370EA30E0EA0F800E187E9713>I<1330A2137013F0A2EA0170120312021204120C12081210
12301220124012C0B5FCEA0070A6EA07FF10187F9713>I<EA3018EA3FF013E013C0EA2000A5EA
27C0EA3860EA2030EA00381318131CA2124012E0A2EA8018EA40381330EA30E0EA0F800E187E97
13>I<EA01E0EA0610EA0C18EA1838123013001270126012E0EAE7C0EAE860EAF030131812E013
1CA31260A2EA701812301330EA1860EA07C00E187E9713>I<130CA3131EA2133F1327A2EB4380
A3EB81C0A348C67EA213FF38020070A20006137800041338A2487FA2001C131EB4EBFFC01A1A7F
991D>65 D<EB3F023801C0C63803002E000E131E48130E14065A007813021270A200F01300A600
701302A21278003813047E14087E000313303801C0C038003F00171A7E991C>67
D<B512F0380E00701430141014181408A3EB0400A3130CEA0FFCEA0E0C1304A3EB0004A21408A3
141814381470B512F0161A7E991A>69 D<EAFFF0000EC7FCB01420A314601440A214C01303B5FC
131A7E9918>76 D<38FE01FF380F00381410EA0B80A2EA09C0EA08E0A21370A21338131CA2130E
A21307EB0390A2EB01D0A2EB00F01470A21430121C38FF8010181A7E991D>78
D<B5FC380E03C0EB00E01470A21478A41470A214E0EB03C0380FFF00000EC7FCABEAFFE0151A7E
991A>80 D<EAFFFC380E0780EB01C06D7E80A55C495AEB0780D80FFCC7FCEA0E067F6D7E80A380
A31580EB00F0EC710038FFE03E191A7E991C>82 D<EA0FC2EA1836EA200EEA600612C01302A3EA
E0001270127EEA3FE0EA1FF8EA07FCEA003E130E130713031280A3EAC0021306EAE004EAD818EA
87E0101A7E9915>I<007FB5FC38701C0700401301A200C0148000801300A300001400B13803FF
E0191A7F991C>I<39FF801FC0391E000F00001C13066C1304A26C5BA36C6C5AA2EBC030000113
20A26C6C5AA3EB7080A20139C7FCA3131EA3130CA21A1A7F991D>86 D<3AFF83FF0FF03A3C0078
01C0001CEC0080A26CEC0100A2149C6C1402A2EB010EA2D803815BEB8207A2D801C25B9038C403
88A2D800E41390A29038E801D0017813E0A2EB7000A201305B01201340241A7F9927>I<EA3F80
EA70C013E0EA20701200A2EA07F0EA1C701230127012E01371A213F1EA71FBEA1E3C10107E8F13
>97 D<12FC121CA913F8EA1F0EEA1E07381C0380130114C0A6EB03801400EA1E07EA1B0CEA10F0
121A7F9915>I<137E130EA9EA03CEEA0C3EEA380E1230127012E0A612601270EA381EEA1C2E38
07CFC0121A7F9915>100 D<EA07C0EA1C30EA30181270EA600C12E0EAFFFCEAE000A41260EA30
04EA3808EA0C18EA07E00E107F8F11>I<EA0FCEEA1873EA3030EA7038A4EA3030EA1860EA2FC0
EA200012601270EA3FF013FCEA1FFEEA600FEAC003A4EA6006EA381CEA07E010187F8F13>103
D<12FC121CA913F8EA1D0CEA1E0EA2121CAB38FF9FC0121A7F9915>I<1218123CA21218C7FCA6
12FC121CAEEAFF80091A80990A>I<12FC121CB3A6EAFF80091A80990A>108
D<38FC7C1F391D8E6380391E0781C0A2001C1301AB39FF9FE7F81D107F8F20>I<EAFCF8EA1D0C
EA1E0EA2121CAB38FF9FC012107F8F15>I<EA07E0EA1C38EA300CEA700EEA6006EAE007A6EA60
06EA700EEA381CEA1C38EA07E010107F8F13>I<EAFCE0EA1D70121E1320EA1C00ABEAFFC00C10
7F8F0F>114 D<EA1F20EA60E0EA402012C0A2EAF000127FEA3FC0EA1FE0EA00F0EA8070133012
C01320EAF040EA8F800C107F8F0F>I<1204A3120CA2121C123CEAFFC0EA1C00A81320A5EA0E40
EA03800B177F960F>I<EAFC7EEA1C0EAC131EEA0C2E3807CFC012107F8F15>I<39FF3F9F80393C
0E070000381306381C16041317001E130C380E23081488000F13983807419014D03803C1E01380
A200015BEB004019107F8F1C>119 D<38FF3F80383C1C00EA1C18EA0E106C5A13606C5A12017F
1203EA0270487E1208EA181CEA381E38FC3FC012107F8F14>I<38FF1F80383C0600EA1C04A2EA
1E0CEA0E08A26C5AA21390EA03A0A2EA01C0A36C5AA248C7FCA212E112E212E4127811177F8F14
>I E /Fb 1 50 df<12035A123F12C71207B3A4EA0F80EAFFF80D1C7C9B15>49
D E end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 300
TeXDict begin @a4 /a4 where {pop a4} if
%%EndSetup
%%Page: 1 1
bop 1869 50 a Fb(1)0 154 y 1.7 setlinewidth 125 915 97 2 v
125 961 2 47 v 219 961 V 125 963 97 2 v 152 952 a Fa(S2)186
916 y 399 537 a np 186 916 a 399 537 li st 156 916 a 1391 750
a np 156 916 a 1391 750 li st 437 915 V 437 961 2 47 v 531
961 V 437 963 97 2 v 465 952 a(S3)498 916 y 628 537 a np 498
916 a 628 537 li st 468 916 a 1401 750 a np 468 916 a 1401
750 li st 749 915 V 749 961 2 47 v 844 961 V 749 963 97 2 v
777 952 a(S4)810 916 y 857 537 a np 810 916 a 857 537 li st
780 916 a 1411 750 a np 780 916 a 1411 750 li st 1061 915 V
1061 961 2 47 v 1156 961 V 1061 963 97 2 v 1089 952 a(S5)1122
916 y 1086 537 a np 1122 916 a 1086 537 li st 1093 916 a 1421
750 a np 1093 916 a 1421 750 li st 1373 915 V 1373 961 2 47
v 1468 961 V 1373 963 97 2 v 1401 952 a(S6)1435 916 y 1315
537 a np 1435 916 a 1315 537 li st 1405 916 a 1431 750 a np
1405 916 a 1431 750 li st 1747 916 a 1773 537 a np 1747 916
a 1773 537 li st 1717 916 a 1438 750 a np 1717 916 a 1438 750
li st 2059 916 a 2002 537 a np 2059 916 a 2002 537 li st 2029
916 a 1448 750 a np 2029 916 a 1448 750 li st 2371 916 a 2232
537 a np 2371 916 a 2232 537 li st 2341 916 a 1458 750 a np
2341 916 a 1458 750 li st 168 490 2528 2 v 168 536 2 47 v 2693
536 V 168 538 2528 2 v 789 523 a(AReallyExtremelyV)m(eryLon)q(gNameThatCoul)q
(dCau)q(seSomeP)q(robl)q(emsSo)q(mewhere)1431 491 y 1518 325
a np 1431 491 a 1518 325 li st 1383 702 97 2 v 1383 749 2 47
v 1478 749 V 1383 751 97 2 v 1411 739 a(S1)1431 703 y 1544
537 a np 1431 703 a 1544 537 li st 2690 916 a 2461 537 a np
2690 916 a 2461 537 li st 2647 916 a 1468 750 a np 2647 916
a 1468 750 li st 1353 277 495 2 v 1353 324 2 47 v 1846 324
V 1353 326 495 2 v 1479 314 a(SibWidthRo)q(o)q(t)2966 491 y
1680 325 a np 2966 491 a 1680 325 li st 2966 703 a -166 x np
2966 703 a 2966 537 li st 379 x -166 x np 2966 916 a 2966 750
li st eop
%%Trailer
end
userdict /end-hook known{end-hook}if
%%EOF