1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
.PS
# `Variable.m4'
cct_init(svg_font(sans-serif,11bp__))
define(`elen_',dimen_)
down_
[ { variable(`capacitor') }
move right; down_
{ variable(`resistor',uN) }
move right; down_
{ variable(`capacitor(,C)') }
move right; down_
{ variable(`inductor') }
move right; down_
{ variable(`inductor(,W)') }
]
[
skp = 0.4
hskip = linewid*0.5
cskip = hskip
Orig: Here
{ move right cskip
move right elen_; move up 0.15 then down 0.15 then right_ hskip
line invis right_ elen_ "C"; move right_ hskip
line invis right_ elen_ "S" }
Loopover_(`char',
`move down skp ifelse(char,A,*0.5)
{ line invis right_ cskip "char"
variable(`capacitor(,C)',char); move right_ hskip
variable(`capacitor(,C)',char`'C); move right_ hskip
variable(`capacitor(,C)',char`'S) }',
A,P,L,N)
] with .w at last [].e+(0.4,0)
command "</g>" # end font
.PE
|