.PS
leng = elen_
dtor = dtor_
define(`fromcentre',`move to C+(-elen_/2,-elen_*cos(15*dtor)/(2*sin(15*dtor)))')
C: dot
  { fromcentre()
     for i = 0 to 359 by 30 do {
        point_(i*dtor); inductor 
        }
     }
  define(`elen_',leng*.8)
  { fromcentre()
     for i=0 to 359 by 30 do {
        point_(i*dtor); inductor(,W) 
        }
     }
  define(`elen_',leng*.6)
  { fromcentre()
     for i=0 to 359 by 30 do {
        point_(i*dtor); resistor 
        }
     }
  define(`elen_',leng*.4)
  { fromcentre()
     for i=0 to 359 by 30 do {
        point_(i*dtor); capacitor(,C)
        }
     }
  define(`elen_',leng*.2)
  { fromcentre()
     for i=0 to 359 by 30 do {
        point_(i*dtor); diode 
        }
     }
.PE