lfohp.ny

;nyquist plug-in
;version 1
;type process
;name "LFO High Pass Filter..."
;action "Applying LFO High Pass Filter..."
;info "LFO High pass filter by David R. Sky\nLFO depth/radius is how far (in octaves) from center f the filter sweeps"

;; LFO High pass filter by David R. Sky
;; october 14, 2004

;control center "Center cutoff frequency" real "Hz" 640 20 20000
;control depth "LFO depth (radius)" real "octaves" 1.0 0.0 10.0 
;control f "LFO frequency" real "Hz" 0.20 0.00 20.00 
;control phase "LFO starting phase" int "degrees" 0 -180 180

; basefreq: lowest cutoff frequency in the LFO sweep
(setf basefreq (/ center (expt 2 depth)))

; addfreq: factor to add to basefreq as LFO sweeps
(setf addfreq (mult basefreq  (sum -1 (expt 2  depth))))

(hp s (sum basefreq (mult addfreq (sum (lfo f 1.0 *sine-table*
phase)  1) 0.5)))