diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-06-27 21:22:00 +0200 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-06-27 21:22:00 +0200 |
commit | 3eb3c4d013403119c639870bf55d61e3456c1078 (patch) | |
tree | 959cbf5ce662539ff3284e3360fd92e4b78b57d3 /freeverb.scm | |
parent | 248790aca5d5b6dc9a8edeea1abed0195ac1338e (diff) |
Imported Upstream version 16.6
Diffstat (limited to 'freeverb.scm')
-rw-r--r-- | freeverb.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/freeverb.scm b/freeverb.scm index dc9a809..fe6e043 100644 --- a/freeverb.scm +++ b/freeverb.scm @@ -66,9 +66,9 @@ (numallpasses (length allpasstuning))) (let ((beg (seconds->samples startime)) (end (seconds->samples (+ startime dur))) - (out-buf (make-float-vector out-chans 0.0)) - (f-out (make-float-vector out-chans 0.0)) - (f-in (make-float-vector in-chans 0.0)) + (out-buf (make-float-vector out-chans)) + (f-out (make-float-vector out-chans)) + (f-in (make-float-vector in-chans)) (predelays (make-vector in-chans)) (fcombs (make-vector (* out-chans numcombs))) (allpasses (make-vector (* out-chans numallpasses))) @@ -89,7 +89,7 @@ (error "input must be mono or input channels must equal output channels")) (let ((out-mix (or output-mixer - (let ((v (make-float-vector (list out-chans out-chans) 0.0))) + (let ((v (make-float-vector (list out-chans out-chans)))) (do ((i 0 (+ i 1))) ((= i out-chans)) (do ((j 0 (+ j 1))) |