.PS
cct_init

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

gap(up_); llabel(-,230V\ AC,+)
line right_; 
{move down_ dim/10 then left_ dim/10;dot}
inductor(down_,W,,M);line left_ 
move right_ 1.425*dim

Sec:inductor(up_ dim,W,,); rlabel(,v_s,); 
{move right_ dim/10ithen down_ dim/10;dot }
diode(right_);llabel(,D_1,); dot; {line right_ hlf}
resistor(down_); rlabel(,R_L,); dot;ground
move left_
line right_ 1.5*dim
Out:gap(up_); rlabel(-,v_o,+) 

"\tiny HalfWave" at (3*dim,-hlf)
.PE