diff options
Diffstat (limited to 'graphics/circuit_macros/doc/relaycoilMan.m4')
-rw-r--r-- | graphics/circuit_macros/doc/relaycoilMan.m4 | 60 |
1 files changed, 31 insertions, 29 deletions
diff --git a/graphics/circuit_macros/doc/relaycoilMan.m4 b/graphics/circuit_macros/doc/relaycoilMan.m4 index 962b0732b9..0d0641b2ad 100644 --- a/graphics/circuit_macros/doc/relaycoilMan.m4 +++ b/graphics/circuit_macros/doc/relaycoilMan.m4 @@ -1,44 +1,46 @@ + .PS -# relaycoil.m4 +# relaycoilMan.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,,,,fill_(0.9)) with .nw at last [].ne+(spc*4,0) - `"\tt (NX,{,},{,}"' at (last [],S) `"\tt fill\_(0.9))"' + { "\sl V1" wid 10bp__ at last [].V1 rjust + "\sl V2" at last [].V2 ljust } + relaycoil(S) with .nw at last [].ne+(spc*2,0); "\tt (S)" at (last [],S) + K: relaycoil(NX) with .nw at last [].ne+(spc*3,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 + 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) + relaycoil(AXSR) with .nw at last [].ne+(spc*4,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*2,0); "\tt (SR)" at (last [],S) + spx = spc*3/4 + relaycoil(SO) with .nw at last [].ne+(spx,0); "\tt (SO)" at (last [],S) + relaycoil(SOR) with .nw at last [].ne+(spx,0); "\tt (SOR)" at (last [],S) + relaycoil(PC) with .nw at last [].ne+(spx,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) + 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 |