PS
# heaterMan.m4
cct_init

{
 {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_
{
 {E: heater(,,,,shaded "red!50")
  "`\tt\shortstack[l]{heater(,{,},{,}\\ \;shaded \"red!50\")}'" 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