Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2026-01-12 07:35:51 +01:00
Code Issues Releases Wiki Activity

Update Nyquist to SVN r331

Browse Source
This commit is contained in:
Leland Lucius
2021-01-28 02:13:05 -06:00
parent 29d35e46e9
commit 586b86a77f
11 changed files with 453 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
nyquist/dspprims.lsp
View File

@@ -202,6 +202,14 @@
(defun nyq:abs (s)
(if (soundp s) (snd-abs s) (abs s)))
;; S-AVG -- moving average or peak computation
;;
(defun s-avg (s blocksize stepsize operation)
(multichan-expand "S-AVG" #'snd-avg
'(((SOUND) nil) ((INTEGER) "blocksize") ((INTEGER) "stepsize")
((INTEGER) "operation"))
s blocksize stepsize operation))
;; S-SQRT -- square root of a sound
;;
(defun s-sqrt (s)
@@ -245,22 +253,19 @@
(defun noise-gate (snd &optional (lookahead 0.5) (risetime 0.02) (falltime 0.5)
(floor 0.01) (threshold 0.01))
(ny:typecheck (not (soundp snd))
(ny:error "NOISE-GATE" 1 '((SOUND) "snd") snd))
(ny:typecheck (not (numberp lookahead))
(ny:error "NOISE-GATE" 2 '((NUMBER) "lookahead") lookahead))
(ny:typecheck (not (numberp risetime))
(ny:error "NOISE-GATE" 3 '((NUMBER) "risetime") risetime))
(ny:typecheck (not (numberp falltime))
(ny:error "NOISE-GATE" 4 '((NUMBER) "falltime") falltime))
(ny:typecheck (not (numberp floor))
(ny:error "NOISE-GATE" 5 '((NUMBER) "floor") floor))
(ny:typecheck (not (numberp threshold))
(ny:error "NOISE-GATE" 6 '((NUMBER) "threshold") threshold))
(let ((rms (lp (mult snd snd) (/ *control-srate* 10.0))))
(setf threshold (* threshold threshold))
(mult snd (gate rms floor risetime falltime lookahead threshold "NOISE-GATE"))))
(floor 0.01) (threshold 0.01) &key (rms nil) (link t))
(let ((sense (if rms (rms snd 100.0 nil "NOISE-GATE") (s-abs snd))))
(cond (link
(mult snd (gate sense lookahead risetime falltime floor
threshold "NOISE-GATE")))
(t
(mult snd (multichan-expand "NOISE-GATE" #'gate
'(((SOUND) "sound") ((NUMBER) "lookahead")
((NUMBER) "risetime") ((NUMBER) "falltime")
((NUMBER) "floor") ((NUMBER) "threshold")
((STRING) "source"))
sense lookahead risetime falltime
floor threshold "NOISE-GATE"))))))
;; QUANTIZE -- quantize a sound
@@ -286,18 +291,26 @@
;; RMS -- compute the RMS of a sound
;;
(defun rms (s &optional (rate 100.0) window-size)
(defun rms (s &optional (rate 100.0) window-size (source "RMS"))
(multichan-expand "RMS" #'ny:rms
'(((SOUND) nil) ((POSITIVE) "rate") ((POSITIVE-OR-NULL) "window-size")
((STRING) "source"))
s rate window-size source))
;; NY:RMS -- single channel RMS
;;
(defun ny:rms (s &optional (rate 100.0) window-size source)
(let (rslt step-size)
(ny:typecheck (not (soundp s))
(ny:error "RMS" 1 number-anon s))
(ny:typecheck (not (or (soundp s) (multichannel-soundp s)))
(ny:error source 1 '((SOUND) NIL) s t))
(ny:typecheck (not (numberp rate))
(ny:error "RMS" 2 '((NUMBER) "rate") rate))
(ny:error source 2 '((NUMBER) "rate") rate))
(setf step-size (round (/ (snd-srate s) rate)))
(cond ((null window-size)
(setf window-size step-size))
((not (integerp window-size))
(error "In RMS, 2nd argument (window-size) must be an integer"
window-size)))
(ny:error source 3 '((INTEGER) "window-size" window-size))))
(setf s (prod s s))
(setf result (snd-avg s window-size step-size OP-AVERAGE))
;; compute square root of average