changeset 30:32c69ba451d9

fixed bug where sound-processor would generate too many floats
author Robert McIntyre <rlm@mit.edu>
date Mon, 23 Jan 2012 05:49:37 -0700
parents cdf320cb5949
children 0e794e48a0cc
files org/ear.org
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/org/ear.org	Sat Dec 10 21:42:50 2011 -0600
     1.2 +++ b/org/ear.org	Mon Jan 23 05:49:37 2012 -0700
     1.3 @@ -773,11 +773,11 @@
     1.4      (process
     1.5        [#^ByteBuffer audioSamples numSamples #^AudioFormat audioFormat]
     1.6        (let [bytes  (byte-array numSamples)
     1.7 -            floats (float-array numSamples)]
     1.8 +            num-floats (/ numSamples  (.getFrameSize audioFormat))
     1.9 +            floats (float-array num-floats)]
    1.10          (.get audioSamples bytes 0 numSamples)
    1.11          (FloatSampleTools/byte2floatInterleaved
    1.12 -         bytes 0 floats 0
    1.13 -         (/ numSamples (.getFrameSize audioFormat)) audioFormat)
    1.14 +         bytes 0 floats 0 num-floats audioFormat)
    1.15          (continuation
    1.16           (vec floats))))))
    1.17