.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; source(up_,"RF") line right_; resistor(down_); b_current(i); llabel(,R_\mathrm{rad},) line left_ "\tiny Rrad" at (2*dim,0) .PE