.PS
# heater.m4
cct_init

Heater:[
{
  {E: lamp(,,shaded "yellow") 
   "`\tt\shortstack[l]{lamp(,{,}\\\;shaded \"yellow\")}'" ljust below \
     at E.start -(textoffset,0) }
  move right_ 1.5
  {E: lamp(,T)
   "`\tt lamp(,T)'" ljust below at E.start -(textoffset,0)}
  move right_ 1.0
  {E: thermocouple
   "`\tt thermocouple'" ljust below at E.start -(textoffset,0)}
  move right_ 1.25
  {E: thermocouple(,,,T)
   "`\tt thermocouple(,{,},T)'" ljust below at E.start -(textoffset,0) }
  }
move down 0.5; right_
{
  definergbcolor(lightred,0.8,0.16,0.16)
  {E: heater(,,,,shaded "lightred")
   "`\tt\shortstack[l]{heater(,{,},{,}\\ \;shaded \"'lightred`\")}'" ljust below \
     at (E.start-(textoffset,0),last [].sw)}
  move right_ 1.5
  {E: heater(,,,,E); move;"`{\tt heater(,{,},{,}E)}'" ljust below \
   at E.start -(textoffset,0) }
  move right_ 1.5
  {E: heater(,,,,ET); move;"`{\tt heater(,{,},{,}ET)}'" ljust below \
    at E.start -(textoffset,0) }
  }
  ]

#.PE
#.PS
## MoreTable.m4
#cct_init

More: [
movewid = 2 pt__
hm = 2.05
vm = 0.28
#{  right; {lamp ; move;"`{\tt lamp}'" ljust}
#   move right_ hm
#   {thermocouple ; move;"`{\tt thermocouple}'" ljust }
#}
#   move down 0.25; right_
{  {memristor ; move;"`{\tt memristor}'" ljust}
#  move right_ hm
#  {heater; move;"`{\tt heater}'" ljust}
   move right_ hm
   {tline ; move;"`{\tt tline}'" ljust}
}
   move down 0.25; right_
{ {pvcell ; move;"`{\tt pvcell}'" ljust}
   move right_ hm
   {reed ; move ;"`{\tt reed}'" ljust}
   move right_ hm
   {reed(,,,fill_(0.9),CR) ; move ; "`{\tt reed(,{,},fill\_(0.9),CR)}'" ljust}
}
   move down 0.25; right_
{  {gap ; move ;"`{\tt gap}'" ljust}
   move right_ hm
   {gap(,,A) ; move ;"`{\tt gap(,{,}A)}'" ljust}
   move right_ hm
  {arrowline ; move;"`{\tt arrowline}'" ljust}
}
   move down 0.25; right_
{  {xtal ; move ;"`{\tt xtal}'" ljust}
   move right_ hm
   {xtal(,type=R;outerdiam=0.2) ; move ;"`{\tt xtal(,type=R)}'" ljust}
}

] with .nw at Heater.sw+(0,-0.4)
.PE
