.PS

thicklines_
linewid = 0.75
del = linewid/4
define(`elen_',`dimen_')
define(`meshcurrent',`[
   arc -> cw from rpos_((Rect_(`$1',-30))) to rpos_((Rect_(`$1',30)))\
      at Here rad `$1' "$$2$"]')


SW: Here
   source(up_ elen_+2*del,V); llabel(,v_s,)
   switch(right_ elen_,,C); rlabel(,t = 0,)
   resistor; llabel(,47\`,'\Omega,); b_current(i_R)
   line right_ linewid/2 then down_ del
   par_(`inductor(,W); llabel(,L,) ; b_current(i_L)',
        `capacitor(,C); rlabel(+,v_C,-); llabel(,,\`,'C)',
        linewid)
   line to (Here,SW) then to SW

   right_
   meshcurrent(del,i_2) with .c at last[].c + (0.05,0)
   meshcurrent(2*del,i_1) with .c at SW + (4*del,3*del)

.PE