.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

source(up_,AC); llabel(,v_i)
diode(right_);llabel(,D,)
resistor(down_); rlabel(,R,); llabel(+,v_o,-)
line left dim

"\tiny HalfWaveRect" at (dim,-0.25*dim) rjust
.PE