.PS include(libcct.m4) cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; mm=1/25.4; pi=atan2(0,-1); # wire radius, wire separation, and wire length wr=6*mm; ws=15*mm; wl=40*mm; Orig:Here # Two-wire line E1:ellipse wid wr/2 ht wr line from E1.n right_ wl line from E1.s right_ wl E2:ellipse wid wr/2 ht wr with .s at Here # Default TeX pic output is a linethickness of 8 mils!! box invis fill 0 wid wr/2 ht wr-0.016 with .e at E2.c # Paste. move to E1 then down_ ws E1:ellipse wid wr/2 ht wr line from E1.n right_ wl line from E1.s right_ wl E2:ellipse wid wr/2 ht wr with .s at Here # Default TeX pic output is a linethickness of 8 mils!! box invis fill 0 wid wr/2 ht wr-0.016 with .e at E2.c dimension_(from E1.s to E1.n, 7*mm, 2a, 3*mm) dimension_(from E2.c+(0,ws+wr/2) to E2.c, 12*mm, D,3*mm,2*mm) "{\tiny twocond}" at Orig+(40*mm,-25*mm) .PE