xgrafix.ps

xgrafix 是PTSG模拟程序中的图形截面库 改版本是最新版本

%!PS-Adobe-2.0
%%Creator: dvipsk 5.55a Copyright 1986, 1994 Radical Eye Software
%%Title: xgrafix.dvi
%%Pages: 17
%%PageOrder: Ascend
%%BoundingBox: 0 0 612 792
%%EndComments
%DVIPSCommandLine: /usr/local/bin/dvips -o xgrafix.ps xgrafix.dvi
%DVIPSParameters: dpi=600, compressed, comments removed
%DVIPSSource:  TeX output 1996.11.22:1624
%%BeginProcSet: texc.pro
/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
forall round exch round exch]setmatrix}N /@landscape{/isls true 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 /nn 0 N /IE 0 N /ctr 0 N /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 /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 /E{pop nn dup definefont setfont}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 /ch-image{ch-data
dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 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 sub]/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}
{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
chg nd}{pop nd}]dup{bind pop}forall 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 /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore showpage
userdict /eop-hook known{eop-hook}if}N /@start{userdict /start-hook
known{start-hook}if pop /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
65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
rlineto rulex neg 0 rlineto fill 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 /w{0 rmoveto}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 /x{0 S rmoveto}B /y{3 2 roll p
a}B /bos{/SS save N}B /eos{SS restore}B end
%%EndProcSet
TeXDict begin 40258431 52099146 1000 600 600 (xgrafix.dvi)
@start /Fa 1 111 df<3907C007E0391FE03FF83918F8783E393879E01E39307B801F38
707F00126013FEEAE0FC12C05B00815C0001143E5BA20003147E157C5B15FC0007ECF808
1618EBC00115F0000F1538913803E0300180147016E0001F010113C015E390C7EAFF0000
0E143E251F7E9D2B>110 D E /Fb 2 51 df<130C133C137CEA03FC12FFEAFC7C1200B3
B113FE387FFFFEA2172C7AAB23>49 D<EB7F803801FFF0380780FC380E003F48EB1F8048
EB0FC05A0060EB07E012F000FC14F07E1403A3007C1307C7FCA215E0140F15C0141F1580
EC3F00147E147C5C495A495A495A495A011EC7FC5B5B4913305B485A4848136048C7FC00
0E14E0001FB5FC5A4814C0B6FCA21C2C7DAB23>I E /Fc 1 1 df<007FB912E0BA12F0A2
6C18E03C04789A4D>0 D E /Fd 27 120 df<007FB5FCB6FCA214FEA21805789723>45
D<ED3FC0913801FFF0913807C07C4AC67E021CEB1F800278130F4AEB07C0494814E04A13
03494814F0130749C7FCEB0E06D91E0714F8EB1C03133C1338137813704A1307D9F00614
F013E0140E020C130F0001011C14E0EBC0180238131F4A14C06C6C48EB3F80D9E1C0137F
D97F801400013EC712FE90C7485A4B5A4B5A4B5AED1F804BC7FC15FC4A5AEC03E0EC0FC0
023FC8FC147CEB01F0495AEB0780011FC9FC133E49EC03805B49140748481500485A4848
5C90C8121E5A001E5D001C157CD83FFC5C9038FFC0013A7C0FFC07F0D87803B55AEA7001
26F0007F5B486D90C7FCEC0FFEEC03F82D4478C132>50 D<ED1FE0EDFFFC913803E03F91
390F000F80023EEB07C00278EB03E05C4948EB01F0495A495A91C713F85BEB0E0CEB1E0E
EB1C061603013C15F01338A2020E1307020C14E0141CD91C78EB0FC0D90FE0131F6D4814
8090C8EA3F00167E5E4B5A4B5AED0FE091383FFF804A48C7FC15F8EC007E151F6F7E6F7E
82150382A482A34B5A121FEA7F80A2150F48C75BA2484A5A12F800E04A5AA24BC7FC0070
14FE5D0078495A0038495A003CEB0FC06C495A260780FEC8FC3803FFF038007F802D4477
C132>I<DC0FF8130393B513070307ECC00F923A1FF803E01F923A7FC000F81E4BC7EA7C
3EDA03FCEC3C7EDA0FF0EC1EFE4A48EC0FFC4A4814074AC8FC02FE1503494816F8130349
481501495A494816F0495A137F5C01FF17E04890C9FCA2485A19C0485AA2485A95C7FC12
1F5BA2123F5BA3127F5BA4485AA41838A218781870A218F0007F5F1701601703003F5F17
076D4BC7FC001F160E171E6C6C5D6D5D00075E6C6C4A5A6DEC07C06C6C4A5AD8007F023E
C8FCD93FC013FC90391FF807F00107B512C0010191C9FC9038001FF0404872C546>67
D<91B712F818FF19C00201903980003FF06E90C7EA0FF84AED03FCF000FE4B157FA2F13F
800203EE1FC05DF10FE0A214074B16F01907A2140F5D1AF8A2141F5DA2190F143F5D1AF0
A2147F4B151FA302FF17E092C9123FA34918C04A167F1A80A2010317FF4A1700A24E5A13
074A4B5A611807010F5F4A4B5A181F61011F4C5A4A4BC7FC18FE4D5A013F4B5A4A4A5A4D
5A017FED3FC005FFC8FC4AEB03FE01FFEC1FF8B812E094C9FC16F845447AC34A>I<DC0F
F81306DCFFFE130E03079038FF801E923A1FF807E03E923A7F8001F03CDA01FEC7EA787C
DA03F8EC3CFCDA0FF0141D4A48EC1FF8DA3F80140F4AC8FCD901FE1507494816F05C0107
1603495A494816E0495A137F5C01FF17C04890C9FC5B12031980485AA2485A95C7FC121F
5BA2123F5BA3127F5BA4485A043FB512E0A39339001FF80060A360A2007F163F60A3177F
003F5F7F121F17FF6D93C7FC000F5D6C6C5C7F6C6C4A5A6C6CEC1F3E6C6C143ED93FC0EB
F81E903A1FF007F01C0107B5EAC00C010149C9FC9038003FF03F4872C54B>71
D<027FB512E091B6FCA20200EBE000ED7F8015FFA293C7FCA35C5DA314035DA314075DA3
140F5DA3141F5DA3143F5DA3147F5DA314FF92C8FCA35B5CA313035CA313075CA3130F5C
A3131F5CA2133FA25CEBFFE0B612E0A25D2B447BC326>73 D<91B612F0A25F020101C0C7
FC6E5B4A90C8FCA25DA314035DA314075DA3140F5DA3141F5DA3143F5DA3147F5DA314FF
92C9FCA35B5CA3010316104A1538A21878010716705C18F018E0010F15015C18C0170301
1F15074A1580170FA2013FED1F004A5C5F017F15FE16034A130F01FFEC7FFCB8FCA25F35
447AC33D>76 D<91B56C93387FFFC08298B5FC02014DEBC0006E614A5FA203DF4C6CC7FC
1A0E63912603CFE05D038F5F1A381A711407030FEEE1FCA2F101C3020FEE0383020E60F1
07036F6C1507021E160E021C60191CF1380F143C023804705BA2F1E01F0278ED01C09126
7003F85EF003801A3F02F0ED070002E0030E5CA24E137F130102C04B91C8FC606201036D
6C5B02805F4D5A943803800113070200DA07005BA2050E1303495D010E606F6C5A190701
1E5D011C4B5CA27048130F133C01384B5C017892C7FC191F01F85C486C027E5DD807FE02
7C4A7EB500F00178013FB512C0A216705A447AC357>I<DB03FE130C92390FFF801C037F
EBE03C9238FE03F8913A03F0007C7C4A48EB3EF84A48131F4A48130F4AC7FC027EEC07F0
5C1703495A18E0495AA213074A15C0A3130F1880A28094C7FCA280806D7EECFFE015FC6D
EBFF806D14F016FC6D14FF023F80020F801403DA003F7F150703007F163F161F160FA216
07A3120716031607A2485EA2120E160F001E5EA2001F4B5AA2484BC7FC6D143E167E6D5C
007F4A5A6D495AD87CF0495AD8787CEB1F8027F03F807FC8FC90381FFFFCD8E00713F039
C0007F80364879C537>83 D<B6913807FFFEA25C000301C0020013E06C90C9EA7F00183E
183C60A26C1770601701604D5AA24DC7FC5F170E6E5CA2017F5D177817705FA24C5AA24C
5A16076E91C8FC160E133F5E163C16385EA25E15015E6E485AA24BC9FC131F150E151E15
1C5DA25D15F05DECF1C0A290380FF38014F792CAFC14FEA25CA25C5CA25C13075CA25C91
CBFC3F466CC348>86 D<B500FE013FB50107B5FC5EA200030180010101C09038007FF091
C849EC3FC04993C8EA1F8000011B001B1E1B1C1B3C1B381B781B704C5EA24C4B5A5E505A
5E040E4BC7FC5E1A0E4C151E1A1C4C6D133C1A384C5D177FDB01C05DA26DD903804A5A15
0704004A5A6C5C030E4BC8FC5D190E4B151E191C4B153C19384B5DA24A485D14034BEC81
C0140792C7EB8380140E0687C9FC4A158F188E4A15DE18DC4A15F8173F4A5DA24A5DA24A
5D137F91C85B137E95CAFC137C173E1378173C0170153858466CC361>I<023FB5D8C003
B512E0A21780020001F8C7387FFC006F48EC3FE06F48158097C7FC031F153E705C197803
0F15E07013014E5A03074A5A7091C8FC180E03035C705B187803015C70485A606FEB8380
0587C9FC178FEE7FDE17FC5F705A5F161F83A2160F4C7EA2163FEE77FC16F7ED01E39238
03C3FEED07831601030E7F151CED3C004B805D4B6D7E4A5A4A5A4AC76C7E5C141E4A6E7E
14384A140F4A81495A01031507494881130F133F017F4B7E2603FFC04A7E007F01F849B5
12FEB5FC614B447CC348>I<EC1F80EC7FE0903901F07070903907C039F890380F801D90
381F001F013E6D5A137E5B484813075E485A120749130F000F5DA2485A151F003F5D5BA2
153F007F92C7FC90C7FCA25D157E12FEA29238FE0380EDFC071700A2007E13015E913803
F80E1407003E010F131E161C6C131C02385B3A0F80F078783A07C3E07C703A01FF801FE0
3A007E000780292D76AB32>97 D<EC0FE0EC7FF8903801F81E903807E00F90390F800780
90381F0003017E14C049131F0001143F5B4848EB7F801207485AED3E00484890C7FCA248
5AA2127F90C9FCA35A5AA45AA5ED0180ED03C0ED0780A2007CEC0F00007E141E003E147C
15F06CEB03E0390F800F802607C07EC7FC3801FFF838007FC0222D75AB2D>99
D<EE07F0ED03FFA39238000FE01607160FA217C0A2161FA21780A2163FA21700A25EA216
7EA216FEA25EEC1F80EC7FE1903801F071903907C039F890380F801D90381F001F013E13
0F017E5C5B48481307A248485C120749130F120F5E485A151F123F495CA2153F127F90C7
90C7FCA25DA200FE147EA29238FE0380160703FC1300A2007E13015E913803F80E140700
3E010F131E161C6C131C02385B3A0F80F078783A07C3E07C703A01FF801FE03A007E0007
802C4676C432>I<EC0FE0EC7FF8903801F83E903807C00F90391F800780EB3F00017E14
C0491303485A48481307000715805B000F140F484814005D4848133E15FCEC07F0007FEB
FFC0D9FFFEC7FC14C090C9FC5A5AA55AA4ED0180ED03C0007CEC0780A2007EEC0F00003E
141E157C6C14F06CEB03E03907800F802603C07EC7FC3801FFF838003FC0222D75AB2D>
I<143C147E14FE1301A3EB00FC14701400AE137C48B4FC3803C780380703C0000F13E012
0E121C13071238A21278EA700F14C0131F00F0138012E0EA003F1400A25B137EA213FE5B
12015BA212035B141E0007131C13E0A2000F133CEBC038A21478EB807014F014E0EB81C0
EA0783EBC7803803FE00EA00F8174378C11E>105 D<D801F0EB0FE0D803FCEB7FF83A07
1E01F03E3A0E0F03C01F001ED987001380001C018E130F003C139C003801B814C014F838
781FF000705BA25C00F049131FD8E03F158091C7FC1200163F491500137EA25E01FE147E
5B16FE5E12014913015E170F00030203130E4914F0A20307131E0007EDE01C5B173CEEC0
38000F167849157017E0ED03C1001FEDE3C049903801FF000007C8127C302D78AB37>
110 D<EC0FE0EC7FFC903801F83E903907E00F8090390F8007C0EB1F00017EEB03E04914
F0A248481301484814F81207485AA2485AA2485A1503127F90C7FCA215074815F05AA215
0F16E05AED1FC0A21680153F16005D157E5D007C495A007E495A003E5C4A5A6CEB1F8026
0F803EC7FC3807C0FC3801FFF038003F80252D75AB32>I<D903E0137E903A07F801FF80
903A0E3C0783E0903A1C1E0F01F0903A3C1F1C00F801385B017849137C01705BA24A4813
7E01E05BA292C7FC00015B13C0147EC7FC02FE14FEA25CA20101140117FC5CA201031403
17F85CA20107EC07F0A24AEB0FE0A2010F15C0EE1F80163F1700496C137E5E4B5A9138B8
03F090393F9C07E091389E0F80DA07FEC7FCEC01F849C9FCA2137EA213FEA25BA21201A2
5BA21203A21207B512F0A25C2F3F7FAB32>I<D801F0EB3F803A03FC01FFF03A071E03C0
F83A0E0F0F007C001E90389E01FC001C139CECB803003813F0A2D91FE013F80078EC00E0
0070491300A200F05BEAE03F91C8FC1200A25B137EA313FE5BA312015BA312035BA31207
5BA3120F5BA3121F5B0007C9FC262D78AB29>114 D<EC0FE0EC7FF8903801F01E903803
C00F90390780078090380F0003011E14C0150749131FA2017CEB3F801378137CED0E0092
C7FC137E137F14F014FF6D13C06D13F06D7F6D7F1300EC0FFE14011400157F81120E003F
141E487EA2153E48C7123CA200FC5C12705D0078495A6C495A6CEB0F80260F803EC7FC38
03FFF838007FC0222D7AAB28>I<1470EB01F8A313035CA313075CA3130F5CA3131F5CA2