.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Org:Here # \lambda/2 s/c bandstop filter. line up_; dot Jn:Here linethick_(2) line left_; arc cw rad qrt/2 arc cw rad qrt/2 line right_ then right_ qrt then right_ arc cw rad qrt/2 arc cw rad qrt/2 line left_ linethick_ dot {line down_} line down_ left hlf then left qrt then up right hlf dimension_(from Jn+(-qrt,0) left hlf down,,$\lambda/2$,4mm__) # lambda/4 lightning DC earth, bandpass filter. move to Org+(2*dim,dim) L1:line right_ 40mm__ move down_ hlf line left_ 40mm__ move to L1.start gap(down hlf,1) move to L1.end gap(down hlf,1) move to L1.center dot line down 0.7*dim left hlf then down hlf then up 0.7*dim right hlf dot dimension_(from L1.center+(hlf,-hlf) down 0.7*dim left hlf,,$\lambda/4$,4mm__) ground(at last line.end+(-4mm__-hlf,qrt)) line right 4mm__ "Bandstop" at Org+(0,-10mm__) "Bandpass, DC earth" at Org+(45mm__,-10mm__) "\tiny bop" at L1.end+(0,-dim) .PE