PS
# `Loop.m4'
cct_init
define(`dimen_',0.75)
loopwid = 1; loopht = 0.75
 source(up_ loopht); llabel(-,v_s,+)
 resistor(right_ loopwid); llabel(,R,); b_current(i)
 inductor(down_ loopht,W); rlabel(,L,)
 capacitor(left_ loopwid,C); llabel(+,v_C,-); rlabel(,C,)
PE