mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-01 08:09:41 +02:00
127 lines
2.3 KiB
Common Lisp
127 lines
2.3 KiB
Common Lisp
;nyquist plug-in
|
|
|
|
;version 3
|
|
|
|
;type generate
|
|
|
|
;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin"
|
|
|
|
;name "Risset Drum..."
|
|
|
|
;action "Generating Risset Drum..."
|
|
|
|
;info "Risset Drum generator by Steven Jones, after Jean Claude Risset\nReleased under terms of the GNU General Public License version 2\nProduces a realistic drum sound consisting of three components;\na sine wave ring-modulated by narrow band noise, an enharmonic\ntone, and a relatively strong sine wave at the fundamental"
|
|
|
|
|
|
|
|
;control frq "Frequency [Hz]" real "" 100 50 2000
|
|
|
|
;control decay "Decay [seconds]" real "" 2 0.125 10
|
|
|
|
;control cf "Center frequency of noise [Hz]" real "" 500 100 5000
|
|
|
|
;control bw "Width of noise band [Hz]" real "" 400 10 1000
|
|
|
|
;control noise "Amount of noise in mix [percent]" real "" 50 0 100
|
|
|
|
|
|
|
|
(if (not (boundp '*rdrum-wtabsize*))
|
|
|
|
(progn
|
|
|
|
(setq *rdrum-wtabsize* 2048)
|
|
|
|
(setq *rdrum-wtab*
|
|
|
|
(list (sum
|
|
|
|
(scale 1.00 (build-harmonic 10 *rdrum-wtabsize*))
|
|
|
|
(scale 1.50 (build-harmonic 16 *rdrum-wtabsize*))
|
|
|
|
(scale 2.00 (build-harmonic 22 *rdrum-wtabsize*))
|
|
|
|
(scale 1.50 (build-harmonic 23 *rdrum-wtabsize*)))
|
|
|
|
(hz-to-step 1) t))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun log2 (n)
|
|
|
|
(/ (log (float n))(log 2.0)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun percussion (decay)
|
|
|
|
(let* ((half-life (expt 2.0 (- (log2 decay) 3))))
|
|
|
|
(exp-dec 0 half-life decay)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun pink (dur cutoff)
|
|
|
|
(lowpass6 (noise dur) cutoff))
|
|
|
|
|
|
|
|
|
|
|
|
(defun risset-drum (frq decay cf bw noise)
|
|
|
|
(let* ((decay2 (* decay 0.50))
|
|
|
|
(pitch1 (hz-to-step frq))
|
|
|
|
(pitch2 (hz-to-step (* frq 0.10)))
|
|
|
|
(noise-mix (float (min (max (/ noise 100) 0) 1)))
|
|
|
|
(tone-mix (- 1 noise-mix)))
|
|
|
|
(sum (mult
|
|
|
|
(sum (scale noise-mix
|
|
|
|
(mult (sine (hz-to-step cf) decay2)
|
|
|
|
(pink decay2 bw)))
|
|
|
|
(scale (* tone-mix 0.17)
|
|
|
|
(osc pitch2 decay2 *rdrum-wtab*)))
|
|
|
|
(percussion decay2))
|
|
|
|
(mult (scale tone-mix (sine pitch1 decay))
|
|
|
|
(percussion decay)))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Generate signal and normalize.
|
|
|
|
;; ISSUE: Is there any way to normalize signal without
|
|
|
|
;; generating it twice?
|
|
|
|
;;
|
|
|
|
(setf peakval (peak (risset-drum frq decay cf bw (/ noise 100))
|
|
|
|
ny:all))
|
|
|
|
(scale (/ 0.8 peakval)(risset-drum frq decay cf bw (/ noise 100)))
|
|
|