;nyquist plug-in
;version 1
;type process
;name "Frequenzabhängiges Stereo Panorama (FSP)"
;action "FSP wird angewendet ..."
;info "Frequenzabhängiges Stereo Panning: Tiefe Signalanteile werden mittig gelegt.\n\nIdee und Umsetzung Kurt Zawiedek.\n"
;control f "Arbeitsfrequenz" real "Hz" 330 50 1000
;control basslevel "Bass-Absenkung" real "dB" -3.0 -10.0 0.0
;control highlevel "Höhen-Absenkung" real "dB" -3.0 -10.0 0.0

;;Frequenzabhängiges Stereo Panorama (FSP)
;;Kurt Zawiedek 09/2005
;;
;;FSP ist ein Mastering-Effekt für Mehrspur-Summen. Es können nur 
;;Stereosignale bearbeitet werden.
;;
;;FSP nimmt Tiefpasssignale der beiden Stereokanäle und mischt sie 
;;dem jeweils anderen Kanal zu. Die Arbeitsfrequenz steuert die 
;;eingesetzten Hoch- und Tiefpässe. Die Absenkungsregler erlauben 
;;eine getrennte Regelung der Hoch- und Tiefpasssignale zur 
;;Aussteuerung des Summensignals oder zur Veränderung des Gesamtklangs.
;;
;;FSP gibt durch das Zentrieren der Bassanteile Wärme in den Mix und 
;;sorgt für ein solideres Fundament im Bassbereich. Hart gepannte 
;;Klänge werden "geerdet" ohne den Stereoeindruck zu stören. Natürlich 
;;verbessert FSP auch die M-S-Kompatibilität.
;;
;;Kontakt: kurt.zawiedek@t-online.de

(if (arrayp s) (vector 

(sum (mult (lp (aref s 0) f) (db-to-linear basslevel)) (mult (lp (aref s 1) f) (db-to-linear basslevel)) (mult (hp (aref s 0) f) (db-to-linear highlevel)))

(sum (mult (lp (aref s 0) f) (db-to-linear basslevel)) (mult (lp (aref s 1) f) (db-to-linear basslevel)) (mult (hp (aref s 1) f) (db-to-linear highlevel)))))