.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=10*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, 8*mm, D,3*mm,2*mm) line from E1.c left_ 5*mm source(up_,AC) line right_ 5*mm move to E1.s+(15*mm,-5*mm) L1:line <-> right_ 20*mm "$dx$" at last line.center above_ move to L1.start+(0,5*mm+wr) line -> up_ ws-wr/2; right_ "$V$" at last line.center rjust_ line -> from L1.start+(0,5*mm+wr/2) right_ 20*mm "$I$" at last line.center above_ "{\tiny trvolt}" at Orig+(40*mm,-25*mm) .PE