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

Fix for bug 152 per Steve Daulton's patch (plus some reformatting).

Browse Source
This commit is contained in:
v.audacity 2012-02-13 21:05:40 +00:00
parent 7879455d0f
commit 192c0d9a0a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
nyquist/dspprims.lsp
View File

@ -342,9 +342,11 @@
; convenient biquad: normalize a0, and use zero initial conditions. ; convenient biquad: normalize a0, and use zero initial conditions.
(defun nyq:biquad (x b0 b1 b2 a0 a1 a2) (defun nyq:biquad (x b0 b1 b2 a0 a1 a2)
(if (< a0 1.0)
(error (format T "a0 < 1 in biquad~%"))
(let ((a0r (/ 1.0 a0))) (let ((a0r (/ 1.0 a0)))
(snd-biquad x (* a0r b0) (* a0r b1) (* a0r b2) (snd-biquad x (* a0r b0) (* a0r b1) (* a0r b2)
(* a0r a1) (* a0r a2) 0 0))) (* a0r a1) (* a0r a2) 0 0))))
(defun biquad (x b0 b1 b2 a0 a1 a2) (defun biquad (x b0 b1 b2 a0 a1 a2)