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
|
.PS
# relaycoil.m4
cct_init
spc = dimen_/3
{ relaycoil; S: `"\tt relaycoil"' at last [].s+(0,-16bp__)
{ "\sl V1" wid 10bp__ at last [].V1 rjust
"\sl V2" at last [].V2 ljust }
K: relaycoil(NX) with .nw at last [].ne+(spc*4,0); "\tt (NX)" at (last [],S)
{ thinlines_
spline <- from K.A1 left 7bp__ then up 4bp__ left 4bp__; "\sl A1" rjust
arrow <- from K.A2 left 10bp__; "\sl A2" rjust
spline <- from K.A3 left 7bp__ then down 4bp__ left 4bp__; "\sl A3" rjust
spline <- from K.B1 right 7bp__ then up 4bp__ right 4bp__; "\sl B1" ljust
arrow <- from K.B2 right 10bp__; "\sl B2" ljust
spline <- from K.B3 right 7bp__ then down 4bp__ right 4bp__; "\sl B3" ljust
thicklines_
}
relaycoil(AXSR) with .nw at last [].ne+(spc*5,0); "\tt (AXSR)" at (last [],S)
{ "\sl V1" at last [].V1 rjust; "\sl V2" at last [].V2 rjust }
relaycoil(BXSR) with .nw at last [].ne+(spc*2,0); "\tt (BXSR)" at (last [],S)
{ "\sl V1" at last [].V1 ljust; "\sl V2" at last [].V2 ljust }
relaycoil(SR) with .nw at last [].ne+(spc*3,0); "\tt (SR)" at (last [],S)
relaycoil(SO) with .nw at last [].ne+(spc,0); "\tt (SO)" at (last [],S)
relaycoil(SOR) with .nw at last [].ne+(spc,0); "\tt (SOR)" at (last [],S)
relaycoil(PC) with .nw at last [].ne+(spc,0); "\tt (PC)" at (last [],S)
}
spc = dimen_/4
{
move down_ 3/4; right_
relaycoil(HS); S: "\tt (HS)" at last [].s+(0,-12bp__)
relaycoil(NAC) with .nw at last [].ne+(spc,0); "\tt (NAC)" at (last [],S)
relaycoil(AC) with .nw at last [].ne+(spc,0); "\tt (AC)" at (last [],S)
relaycoil(ML) with .nw at last [].ne+(spc,0); "\tt (ML)" at (last [],S)
relaycoil(PO) with .nw at last [].ne+(spc,0); "\tt (PO)" at (last [],S)
relaycoil(RM) with .nw at last [].ne+(spc,0); "\tt (RM)" at (last [],S)
relaycoil(RH) with .nw at last [].ne+(spc,0); "\tt (RH)" at (last [],S)
relaycoil(TH) with .nw at last [].ne+(spc,0); "\tt (TH)" at (last [],S)
relaycoil(EL) with .nw at last [].ne+(spc,0); "\tt (EL)" at (last [],S)
relaycoil(MR) with .sw at last [].se+(spc,0); "\tt (MR)" at (last [],S)
}
.PE
|
