.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
   "{\sl last} [ ]" ljust

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

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