Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-16 16:10:06 +02:00
Code Issues Releases Wiki Activity

Steve's new replacement for http://bugzilla.audacityteam.org/show_bug.cgi?id=556

Browse Source
This commit is contained in:
v.audacity 2012-07-18 23:36:53 +00:00
parent e0fb5c898f
commit 5a422b05a4
1 changed files with 56 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

162
plug-ins/rissetdrum.ny
View File

@ -1,126 +1,76 @@
;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 GPL v2."
;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))))
;; rissetdrum.ny by Steven Jones.
;; Updated by Steve Daulton July 2012.
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;;
;; For information about writing and modifying Nyquist plug-ins:
;; http://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control freq "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 "" 25 0 100
;control gain "Amplitude (0 - 1)" real "" 0.8 0 1
(defun sanitise (val minx maxx)
(min (max val minx) maxx))
(setq freq (sanitise freq 1 (/ *sound-srate* 2)))
(setq decay (sanitise decay 0.1 600))
(setq cf (sanitise cf 1 (/ *sound-srate* 2)))
(setq bw (sanitise bw 10 1000))
(setq noise (sanitise (/ noise 100) 0 1))
(setq gain (sanitise gain 0 1))
(setq *rdrum-table*
(list
(mult 0.17
(sum
(scale 1.00 (build-harmonic 10 2048))
(scale 1.50 (build-harmonic 16 2048))
(scale 2.00 (build-harmonic 22 2048))
(scale 1.50 (build-harmonic 23 2048))))
(hz-to-step 1) t))
(defun log2 (n)
(/ (log (float n))(log 2.0)))
(defun percussion (decay)
(defun percussion-env (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)
(defun risset-drum (freq decay cf bw noise-gain)
(let* ((decay2 (* decay 0.50))
(low-note (* freq 0.10))
(tone-gain (- 1 noise-gain)))
(setf pink (lowpass6 (noise decay2) bw))
(setf rdrum
(mult tone-gain
(osc (hz-to-step low-note) decay2 *rdrum-table*)))
(setf noise-band
(mult noise-gain
(sine (hz-to-step cf) decay2)
pink))
(sum
(mult
(percussion-env decay2)
(sum noise-band rdrum ))
(mult tone-gain
(percussion-env decay)
(sine (hz-to-step freq) decay)))))
(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)))
;; Generate and normalize
(let* ((output (risset-drum freq decay cf bw noise))
(peakval (peak output ny:all)))
(scale (/ gain peakval) output))