proc SCHEMATIC_resonant_bandpass {} {




make input -name in -origin {430 70}
make output -name out -origin {530 70}




}

proc ICON_resonant_bandpass args {
  icon_setup $args {{origin {0 0}} {orient R0} {name x} {fo 1} {Q 1}}
icon_term -type input -origin {-80 0} -name in
icon_term -type output -origin {80 0} -name out
icon_property -origin {-80 -60} -label {$name}
  icon_property -origin {-60 100} -type user -name name -default x
  icon_line -80 -50 80 -50 80 40 -80 40 -80 -50
icon_property -origin {-50 30} -label resonant_bandpass
icon_property -origin {-30 -40} -label (wo/Q)s
  icon_property -origin {-60 120} -type user -name fo -default 1
  icon_property -origin {-60 140} -type user -name Q -default 1
icon_property -origin {-60 -20} -label {s^2 + (wo/Q)s + wo^2}
  icon_line -60 -30 50 -30
icon_property -origin {-50 50} -label {fo=$fo (wo=2pi*fo)}
icon_property -origin {-50 70} -label {Q = $Q}
icon_property -origin {-70 0} -label in
icon_property -origin {70 0} -anchor e -label out
}

