tcad.ps

很经典的电磁计算（电容计算）软件 MIT90年代开发

%!
%%Title: tcad.dvi
%%Creator: DVI-Postscript translator, version 1 for canon
%%Pages: (atend)
% Args: postscript tcad.dvi
%%EndComments
/TeXDict 200 dict def TeXDict begin
%
% Prologue file from: pstex.pro
%
% this file has had comments stripped; the original is in
% /archive/tex/DVIware/laser-setters/mctex/postscript/pstex.prc
/bd{bind def}def
systemdict/currentpacking known
{/packingstat currentpacking def true setpacking}if
/canclobber true def 
/Resolution 300 def 
/Inch{72 mul}bd
/DefaultMatrix matrix def 
/@Im matrix def 
/@Rm[0 1 -1 0 0 0]def 
/set@width{/paperwidth exch def}bd
/set@height{/paperheight exch def}bd
/set@wh{set@height set@width}bd
/set@landscape{/landscape exch def}bd
/@setmode{
dup where{pop canclobber{load exec}if}{pop}ifelse
}bd
/@setup{
landscape{
/SpecialMatrix @Rm def 
/Mtrx[0 72 Resolution div dup 0 0 0]def
}{
/SpecialMatrix @Im def 
/Mtrx[72 Resolution div 0 0 2 index neg
0 paperheight 72 mul]def
}ifelse
}bd
/@a4{/letter @setmode @a4size}def
/@letter{/letter @setmode @lettersize}def
/@note{/note @setup @lettersize}def
/@legal{/legal @setmode @legalsize}def
/@a4size{8.5 11.5 set@wh @setup}def
/@legalsize{8.5 14 set@wh @setup}def
/@lettersize{8.5 11 set@wh @setup}def
/@notesize{@lettersize}def 
/@landscape{true set@landscape @setup}def
/@manualfeed{statusdict/manualfeed true put}def
/@copies{/#copies exch def}def
/ch-image{ch-data 0 get}bd 
/ch-width{ch-data 1 get}bd 
/ch-height{ch-data 2 get}bd 
/ch-xoff{ch-data 3 get}bd 
/ch-yoff{ch-data 4 get}bd 
/ch-tfmw{ch-data 5 get}bd 
/@FBB[0 0 1 1]def 
/@newfont{
dup 7 dict def 
dup load 
dup begin 
/FontType 3 def
/FontMatrix @Im def
/FontBBox @FBB def
/CharData 256 array def 
/BuildChar{
save 3 1 roll
exch/CharData get exch get/ch-data exch def
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 .5 add ch-yoff .5 add]
{ch-image}imagemask
restore
}def
/Encoding 256 array def
0 1 127{Encoding exch/.notdef put}for
end 
definefont pop 
}bd
/@sf{setfont}bd
/@dc{
dup/Encoding get 
exch/CharData get 
4 2 roll 
dup 4 1 roll 
exch put 
dup (XXX) cvs cvn put 
}bd
/@save@state{
/@reset@state[
[/DefaultMatrix/setmatrix/SpecialMatrix/concat
currentlinewidth/setlinewidth
currentlinecap/setlinecap
currentlinejoin/setlinejoin
currentdash/setdash
currentflat/setflat
currentgray/setgray 
currentmiterlimit/setmiterlimit]
{dup type/nametype eq{cvx}if}forall]cvx
def
}def
/@@bop{
DefaultMatrix currentmatrix pop 
/@bop@save save def 
@save@state 
Mtrx concat 
0 0 moveto 
}bd
/@BOP0{pop}bd
/@BOP1{pop @@bop}bd
/@EOP{
showpage
@bop@save restore 
}bd
/@DRAFTF{
gsave newpath
/Helvetica-Bold findfont setfont
(Draft) dup stringwidth pop 8.875 exch div dup 72 mul dup scale
52.3 rotate 2.5 exch div -.35 translate
0.95 setgray
0 0 moveto show
grestore
}bd
/@DRAFTM{
gsave newpath
/Helvetica-Bold findfont 72 scalefont setfont
0.95 setgray
576 702 moveto
(Draft) stringwidth exch neg exch neg rmoveto
(Draft) show
grestore
}bd
/@draft{
/@BOP1{
0 get 1 le{@DRAFTF}{@DRAFTM}ifelse
@@bop
}def
}def
/p{moveto}bd
/B{-1 0 rmoveto}bd
/h{0 rmoveto}bd
/S{show}bd
/s{show -4 0 rmoveto}bd
/t{show -3 0 rmoveto}bd
/u{show -2 0 rmoveto}bd
/v{show -1 0 rmoveto}bd
/w{show 1 0 rmoveto}bd
/x{show 2 0 rmoveto}bd
/y{show 3 0 rmoveto}bd
/z{show 4 0 rmoveto}bd
/D{show @D 0 rmoveto}bd/d{/@D exch def D}bd
/E{show @E 0 rmoveto}bd/e{/@E exch def E}bd
/F{show @F 0 rmoveto}bd/f{/@F exch def F}bd
/G{show @G 0 rmoveto}bd/g{/@G exch def G}bd
/R{
currentpoint 4 2 roll 
currentpoint newpath moveto 
dup 3 1 roll 
0 exch neg rlineto 
0 rlineto 
0 exch rlineto 
closepath fill 
moveto 
}bd
/@resolution{
/Resolution exch def
}bd
/@RUN{
pop 
false set@landscape @lettersize @setup
}def
/@FIN{end}def
/@spcl@dict userdict maxlength dict def
/@enter@special{
/@spcl@save save def
currentpoint transform @reset@state itransform translate
@spcl@dict begin
}bd
/@exit@special{
end @spcl@save restore
}bd
/MacDrwgs false def 
/@SpecialDefaults{
/hs 8.5 Inch def
/vs 11 Inch def
/ho 0 def
/vo 0 def
/hsc 1 def
/vsc 1 def
/CLIP false def
}bd
/@hsize{/hs exch def/CLIP true def}bd
/@vsize{/vs exch def/CLIP true def}bd
/@hoffset{/ho exch def}bd
/@voffset{/vo exch def}bd
/@hscale{/hsc exch def}bd
/@vscale{/vsc exch def}bd
/@setclipper{
hsc vsc scale
CLIP{
newpath
0 0 moveto
hs 0 rlineto
0 vs rlineto
hs neg 0 rlineto
closepath
clip
}if
}bd
/@beginspecial{
@enter@special 
/showpage{}def 
@SpecialDefaults 
@MacSetUp 
}bd
/@setspecial{
MacDrwgs{
md begin/pxt ho def/pyt vo neg def end
}{
ho vo translate @setclipper
}ifelse
}bd
/@endspecial{
@exit@special
}bd
/@MacSetUp{
userdict/md known 
{userdict/md get type/dicttype eq}{false}ifelse
{
/MacDrwgs true def 
md begin 
/letter{}def
/note{}def
/legal{}def
/od{
txpose
1 0 mtx defaultmatrix dtransform exch atan/pa exch def