.PS
cct_init

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

gap(up_ 2*dim); clabel(-,230V\ AC,+)
line right_; 
{move down_ dim/10 then left_ dim/10;dot}
inductor(down_ 2*dim,W,12,M);line left_ 
move right_ 1.425*dim
{diode(right_); line up_ 2*dim; dot}
inductor(up_,W,5,); rlabel(,v_s,); dot
{line right_ 2*dim; gap(up_); rlabel(-,v_o,+)}
{move down_ dim/10 then right_ dim/10;dot}
inductor(up_,W,5,); rlabel(,v_s,); 
{move down_ dim/10 then right_ dim/10;dot}
diode(right_);
line right_; 
move left_ hlf; dot; resistor(down_)
rlabel(,R,); dot; ground;

"\tiny FullTap" at (3*dim,0)
.PE