.PS
# heater.m4
cct_init

Heater: [
  movewid = 2 pt__
  hm = 2.05
  right_
{
  {lamp ; move; "`{\tt lamp}'" ljust}
  move right_ 1.5
  {lamp(,T) ; move;"`{\tt lamp(,T)}'" ljust}
  move right_ 1.25
  {thermocouple ; move;" `{\tt thermocouple}'" ljust }
  move right_ hm
  {thermocouple(,,,T) ; move; "`{\tt thermocouple(,{,},T)}'" ljust }
  }
  move down 0.4; right_
{
  {heater; move;"`{\tt heater}'" ljust}
  move right_ hm
  {heater(,,,,E); move;"`{\tt heater(,{,},{,}E)}'" ljust}
  move right_ hm+0.4
  {heater(,,,,ET); move;"`{\tt heater(,{,},{,}ET)}'" ljust}
  }
  ]

#.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.2)
.PE
