.PS
# Resistors.m4
cct_init

movewid = 2 pt__
hm = 2.05
vm = 0.28
{  {A:resistor ; move ;"`{\tt resistor}'" ljust}
   move right_ hm
   {Q:resistor(,4,QR); move ;"`\tt $\ldots$(,4{,}QR) '" ljust}
   move right_ hm
   {V:resistor(,,V) ; move ; "`{\tt $\ldots$(,{,}V)}'" ljust}
}

   move down vm; right_
{  {B:resistor(,,B) ; move ;"`{\tt $\ldots$(,{,}B)}'" ljust}
   move right_ hm
   {F:resistor(,,F) ; move ;"`\tt $\ldots$(,{,}F) '" ljust}
   move right_ hm
   {H:resistor(,4,H); move;"`\tt $\ldots$(,4{,}H) '" ljust}
}

   move down vm; right_
{  {E:resistor(,,E) ; move ; "`\tt $\ldots$(,{,}E)$\equiv$ebox'" ljust}
   move right_ hm
   {ES:resistor(,,ES); move ; "`\tt $\ldots$(,{,}ES) '" ljust}
   move right_ hm
   {EX:resistor(,,EX); move ; "`\tt $\ldots$(,{,}EX) '" ljust}
}
   move down vm*1.1; right_
{  {AC:resistor(,,AC) ; move ;"`{\tt $\ldots$(,{,}AC)}'" ljust}
   move right_ hm
   {LD:resistor(,type=LD;env=fill_(0.9)) ; move
     "`\tt $\ldots$(,type=LD;env=fill\_(0.9))'" ljust}
}
   move down vm*1.1; right_
{  
   {T:resistor(,type=T;env=fill_(0.9)) ; move 
    "`\tt $\ldots$(,type=T;" ljust "\tt env=fill\_(0.9))'" ljust}
   move right_ hm
   {LDE:resistor(,type=LDE;env=fill_(0.9);body=fill_(1)) ; move
     "`\tt $\ldots$(,type=LDE;env=fill\_(0.9);'" ljust \
     "\tt body=fill\_(1))'" ljust}
}

   move down vm*1.1; right_
{
   {ebox(,wdth=0.2;box=dashed shaded "green";text="H") ; move
   "`\tt ebox(,wdth=0.2;box=dashed shaded \"green\";text=\"H\")'" ljust}
}  

.PE