.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,,,,fill_(0.9)) with .nw at last [].ne+(spc*4,0)
  `"\tt (NX,{,},{,}"' at (last [],S) `"\tt fill\_(0.9))"'
  { 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