.PS
# Thermal.m4
cct_init
define(`thermalsw',
 `dswitch(`$1',`$2',WDdBTh)
  circle rad distance(last [].T,last line.c) at last line.c')
thermalsw
.PE