;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)))