.PS
cct_init

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

D1:Here
line right_ hlf ; {dot(at D1,,1)} # Over :-)
C1:dot
inductor(right_,W)
line down_ qrt then left_ dim then down_ qrt
dot;
{line left_ hlf; ground; dot(,,1)}
inductor(right_, W)
line down_ qrt then left_ dim then down_ qrt
inductor(right_, W)
line right_ hlf ; dot(,,1)
line from C1 up_ hlf then right_ 1.5*dim ; 
dot(,,1)

dot(at C1+(qrt, -dim/10))
dot(at C1+(qrt, -hlf-dim/10))
dot(at C1+(qrt, -dim-dim/10))

"TxLn" at C1-(qrt, qrt) rjust_
"9:1 Ant" at C1+(1.5*dim,-dim/3) ljust_

"\tiny TLTrans" at (dim,-1.5*dim)
.PE