.PS
# ResistorsDPV.m4
cct_init(svg_font(sans-serif,11pt__))
textwid = 1.5

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

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

   move down vm; right_
{  {E:resistor(,,E) ; move ; "`...(,,E)' svg_equiv `ebox'" ljust}
   move right_ hm
   {ES:resistor(,,ES); move ; "`...(,,ES) '" ljust}
   move right_ hm
   {EX:resistor(,,EX); move ; "`...(,,EX) '" ljust}
}
   move down vm*1.1; right_
{  {AC:resistor(,,AC) ; move ;"`...(,,AC)'" ljust}
   move right_ hm
   {LD:resistor(,type=LD;env=fill_(0.9)) ; move
     "`...(,type=LD;env=fill_(0.9))'" ljust}
}
   move down vm*1.1; right_
{  
   {T:resistor(,type=T;env=fill_(0.9)) ; move 
    "`...(,type=T;" ljust "env=fill_(0.9))'" ljust}
   move right_ hm
   {LDE:resistor(,type=LDE;env=fill_(0.9);body=fill_(1)) ; move
     "`...(,type=LDE;env=fill_(0.9);'" ljust "body=fill_(1))'" ljust}
}

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

 command "</g>" # end font
.PE
