lib/xcircps2.pro

   1 %%BeginProlog
   2 %
   3 %  PostScript prolog for output from xcircuit
   4 %  Version: 3.9
   5 %
   6 %  Electrical circuit (and otherwise general) drawing program
   7 %
   8 %  Written by Tim Edwards 8/5/93--4/12/16  (tim@opencircuitdesign.com)
   9 %  The Johns Hopkins University (1993-2004)
  10 %  MultiGiG, Inc. (2004-2012)
  11 %  Open Circuit Design (2012-2016)
  12 %
  13 %%BeginResource: procset XCIRCproc 3.9 1
  14 %
  15 % supporting definitions --- these are the primary xcircuit types.
  16
  17 /XCIRCsave save def
  18 /topmat matrix currentmatrix def
  19
  20 /fontslant { /slant exch def [1 0 slant 1 0 0]
  21     exch findfont exch makefont dup length dict /ndict exch def
  22     { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall
  23     ndict definefont pop} def
  24 /ul { count 0 gt { dup type /stringtype eq showflag 1 eq and { gsave
  25    currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_)
  26    false charpath flattenpath pathbbox grestore exch pop 1 index
  27    sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0
  28    rlineto stroke moveto } if } if } def
  29 /ol { count 0 gt { dup type /stringtype eq showflag 1 eq and { gsave gsave
  30    currentpoint topmat setmatrix 2 index stringwidth pop 3 index
  31    true charpath flattenpath pathbbox grestore exch pop
  32    exch pop topmat setmatrix (_) true charpath pathbbox grestore
  33    exch pop 1 index sub setlinewidth exch pop currentpoint
  34    exch 4 1 roll exch sub add moveto pop 0 rlineto stroke
  35    moveto } if } if } def
  36 /stW { gsave currentpoint newpath moveto true charpath flattenpath
  37         pathbbox pop exch pop sub grestore } def
  38 /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs
  39         0 currentpoint pop put} def
  40 /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def
  41 /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt
  42         {currentpoint exch pop moveto exit} {pop} ifelse } for } def
  43 /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt
  44         {currentpoint exch pop moveto exit} {pop} ifelse } for } def
  45 /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def
  46 /hS { qS qS } def
  47 /pspc 0 def
  48 /cf0 { scalefont setfont } bind def
  49 /Kn { dup kY add /kY exch def rmoveto } bind def
  50 /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul
  51         0.33 mul neg Kn} def
  52 /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul
  53         0.67 mul Kn } def
  54 /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def
  55 /MR { /twidth exch def } def
  56 /CRx { } def
  57 /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto CRx } def
  58 /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq
  59         { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def}
  60         {fscale0 mul fscale mul cf0} ifelse } def
  61 /ctmk { counttomark dup 2 add -1 roll pop } bind def
  62 /label { gsave translate 0 0 moveto dup scale neg
  63         /rotval exch def /twidth 100000 def /just exch def just 128 and
  64         0 gt {/mshow {pop} def} {/mshow {show} def} ifelse just 16 and 0
  65         gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix
  66         idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix
  67         idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll
  68         pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just
  69         dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval
  70         rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1}
  71         ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def
  72         /numlines 0 def /padding 0 array def /Tabs 0 array def
  73         /fscale 1.0 def /kY 0 def gsave /CRx { linewid padding
  74         aload pop numlines 1 add dup /numlines exch def array astore
  75         /padding exch def /linewid 0 def } def dup 1 add copy dup 1 0
  76         dtransform exch atan rotate {exch dup type /stringtype eq {gsave dup
  77         gsave newpath 0 0 moveto true charpath flattenpath pathbbox pop exch
  78         pop exch pop grestore currentpoint pop add dup /linewid exch def twidth
  79         ge {grestore CR exch 1 add dup 2 add {CR} exch 1 roll exch} {grestore}
  80         ifelse true charpath flattenpath} {dup type /arraytype eq {exec} {12
  81         string cvs true charpath flattenpath} ifelse} ifelse} repeat
  82         CRx /CRx {padding aload pop just 1280 and 0 gt {blockwid exch sub just
  83         1024 and 0 gt {0.5 mul} if} {pop 0} ifelse 0 rmoveto numlines 1 sub
  84         dup /numlines exch def array astore /padding exch def} def exch pop
  85         pathbbox grestore 4 copy pop exch pop exch sub /blockwid exch def
  86         3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and
  87         0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg
  88         fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt
  89         {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add}
  90         ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline
  91         0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def CRx {dup type
  92         /stringtype eq {mshow} {dup type /arraytype eq {exec} {12 string cvs
  93         mshow} ifelse} ifelse} repeat grestore endclip} def
  94 /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label
  95         /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def
  96 /pinglobal { pinlabel } def
  97 /infolabel { pinlabel } def
  98 /graphic { gsave 4 index cvx exec /DataSource get resetfile translate 0 0
  99         moveto neg rotate dup scale cvx exec image grestore endclip} def
 100
 101 /scb { setrgbcolor } bind def  /sce { defColor aload pop scb } bind def
 102 /cRedef {/defColor currentcolor 3 array astore def} def
 103 /begingate {dup type /dicttype ne {1 dict} if begin     % default params
 104         dup type /dicttype ne {1 dict} if begin         % instanced params
 105         /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore
 106         def gsave sce translate 0 0 moveto neg rotate dup type /nametype
 107         eq not { dup abs currentlinewidth exch div setlinewidth } { pop }
 108         ifelse dup abs scale clipped 1 and 1 eq {/clipped clipped 1 add def}
 109         if} bind def
 110 /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef
 111         scb end end endclip} bind def
 112
 113 /hlevel 0 def
 114 /endclip {clipped 1 and 1 eq {grestore /clipped clipped 1 sub def} if} def
 115 /tmpa [1 0 0 1 0 0] def
 116 /gar {8 8 true tmpa {<c0 c0 00 00 0c 0c 00 00>} imagemask} bind
 117 {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind
 118 {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind
 119 {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind
 120 {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind
 121 {8 8 true tmpa {<df cf 8f 9f fd fc f8 f9>} imagemask} bind
 122 {8 8 true tmpa {<ff 3f 3f ff ff f3 f3 ff>} imagemask} bind 7 array astore def
 123 /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll
 124   neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy
 125   gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll
 126   { 3 index exch 5 exch put dup -8 3 index { 3 index
 127   exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def
 128 /setstyles {
 129   currentlinewidth mul setlinewidth /style exch def style 2048 and 0 gt
 130   clipped 1 and 0 eq and {clip newpath /clipped clipped 1 add def} {
 131   style 1 and 0 gt not {closepath} if
 132   style 1024 and 0 gt {2 setlinecap 0 setlinejoin} if
 133   style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if
 134   style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if
 135   gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt {
 136   7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore
 137   {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill}
 138   {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse}
 139   {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt
 140   style 512 eq or {newpath} {stroke} ifelse grestore endclip} ifelse} def
 141
 142 /addtoy {exch dup dup 2 mul 3 add 1 roll -1 1 { 4 1 roll dup 4 1 roll add
 143         4 -1 roll 2 mul 1 add index 2 mul 2 add 2 roll} for pop} def
 144 /addtoy1 {1 exch addtoy pop} def
 145 /addtoy3 {3 exch addtoy pop} def
 146 /addtoy4 {4 exch addtoy pop} def
 147 /addtox {exch dup dup 2 mul 3 add 1 roll -1 1 { 4 1 roll dup 4 1 roll 3 -1 roll
 148         add exch 4 -1 roll 2 mul 1 add index 2 mul 2 add 2 roll} for pop} def
 149 /addtox1 {1 exch addtox pop} def
 150 /addtox3 {3 exch addtox pop} def
 151 /addtox4 {4 exch addtox pop} def
 152 /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def
 153 /xcarc   { gsave newpath arc setstyles } def
 154 /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll
 155         3 index div 1 scale } def
 156 /ele { 0 4 1 roll 0 4 1 roll } bind def
 157 /ellipse { gsave elb newpath ele arc setmatrix setstyles } def
 158 /pellip  { elb ele arc setmatrix } def
 159 /nellip  { elb ele arcn setmatrix } def
 160 /spline  { gsave moveto curveto setstyles } def
 161 /polyc   { {lineto} repeat } bind def
 162 /beginpath { gsave moveto } bind def
 163 /endpath { setstyles } bind def
 164 /bop     { 1 setlinecap 2 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef
 165         /clipped 0 def} def
 166 /psinsertion {/PSobj save def /showpage {} def /setpagedevice {pop} def bop
 167         rotate translate dup scale} def
 168 /end_insert {PSobj restore} def
 169 /setpagemat {/pagemat matrix currentmatrix def} def
 170 /inchscale  {setpagemat 0.375 mul dup scale} def
 171 /cmscale    {setpagemat 0.35433071 mul dup scale} def
 172
 173 %%EndResource
 174 %%EndProlog
 175