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
37
38
39
40
41
42
43
44
45
46
47
48
|
.PS
# `ResistorsSVG.m4'
cct_init(svg_font(sans-serif,11pt__))
textwid = 1.5
movewid = 2 pt__
hm = 2.1
vm = 0.28
hm = 2.05
vm = 0.28
{
{resistor ; move ; svgLink(NportSVG.svg,"`resistor'" ljust)}
move right_ hm
{resistor(,,Q) ; move ; "`resistor(,,Q) '" ljust}
move right_ hm
{resistor(,,V) ; move ; "`resistor(,,V) '" ljust}
}
move down vm; right_
{
{resistor(,,ES) ; move ; "`resistor(,,ES) '" ljust}
move right_ hm
{resistor(,,H) ; move ; "`resistor(,,H) '" ljust}
move right_ hm
{resistor(,,AC) ; move ; "`resistor(,,AC) '" ljust}
}
move down vm; right_
{
{resistor(,,B) ; move ; "`resistor(,,B) '" ljust}
move right_ hm
{resistor(,,E) ; move
"`resistor(,,E)'" ljust " svg_equiv `ebox'" ljust}
move right_ hm
{ebox(,0.5,0.3) ; move ;"`ebox(,0.5,0.3) '" ljust}
}
move down vm; right_
{
{ebox(,,,0.6) ; move ; "`ebox(,,,0.6) '" ljust}
move right_ hm
{ebox(,,,,shaded "green") ; move ;"`ebox(,,,,shaded \"green\") '" ljust}
}
move down vm; right_
{
{ebox(,wdth=0.2;box=dashed shaded "green";text="X") ; move
"`ebox(,wdth=0.2;box=dashed shaded \"green\";text=\"X\")'" ljust}
}
command "</g>" # end font
.PE
|