.PS
cct_init

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

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

move right_ 1.425*dim
Sec:inductor(up_ dim,W,,); rlabel(,v_s,); 
{move down_ dim/10 then right_ dim/10;dot}
diode(right_);llabel(,D_1,); dot; {line right_ dim}
capacitor(down_); rlabel(,C,);dot

move right_ hlf;dot;ground
resistor(up_); rlabel(,R_L,); dot
move to Sec.start 
line right_ 2*dim
Out:gap(up_); rlabel(-,v_o,+) 

"\tiny PeakRect" at (4*dim,-hlf)
.PE