.PS
   cct_init
   linewid = 2.0
   linethick_(2.0)

R1: resistor

   thinlines_
   box dotted wid last [].wid ht last [].ht at last []

   spline <- down 0.2 then down 0.1 right 0.1 then right 0.1 \
      from last [].s
   "{\tt last} [ ]" ljust

   arrow <- down 0.2 from R1.start+(0,-0.05); "\tt R1.start" below
   arrow <- down 0.2 from R1.end+(0,-0.05); "\tt R1.end" below

   dimension_(from R1.start to R1.end,0.45,\tt elen\_,0.4)
   dimension_(right_ dimen_ from R1.c-(dimen_/2,0),0.3,
      \tt dimen\_,0.5)
.PE