diff options
author | IOhannes m zmölnig <zmoelnig@iem.at> | 2016-08-04 10:52:15 +0200 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@iem.at> | 2016-08-04 10:52:15 +0200 |
commit | 595a8d637b81d45fe73f566b25d64cf8bca672c1 (patch) | |
tree | 0a88f6ef6f0c857ba5c37842a0c5ad63b84d3915 /freeverb.scm | |
parent | 3eb3c4d013403119c639870bf55d61e3456c1078 (diff) |
Imported Upstream version 16.7
Diffstat (limited to 'freeverb.scm')
-rw-r--r-- | freeverb.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/freeverb.scm b/freeverb.scm index fe6e043..b9611d0 100644 --- a/freeverb.scm +++ b/freeverb.scm @@ -105,9 +105,8 @@ ((= c out-chans)) (do ((i 0 (+ i 1))) ((= i numcombs)) - (let* ((tuning (combtuning i)) - (len (floor (* srate-scale tuning))) - (dmp (* scale-damping (if (number? damping) damping (damping i))))) + (let ((len (floor (* srate-scale (combtuning i)))) + (dmp (* scale-damping (if (number? damping) damping (damping i))))) (if (odd? c) (set! len (+ len (floor (* srate-scale stereo-spread))))) (set! (fcombs (+ (* c numcombs) i)) @@ -118,8 +117,7 @@ ((= c out-chans)) (do ((i 0 (+ i 1))) ((= i numallpasses)) - (let* ((tuning (allpasstuning i)) - (len (floor (* srate-scale tuning)))) + (let ((len (floor (* srate-scale (allpasstuning i))))) (if (odd? c) (set! len (+ len (floor (* srate-scale stereo-spread))))) (set! (allpasses (+ (* c numallpasses) i)) |