Question

我正在Squeak开展一个小项目并遇到了一个问题：我无法正确解码WAV文件。

这是我目前用于解码的两种方法：

convert4bitUnsignedTo16Bit: anArray
    "Convert the given array of samples--assumed to be 4-bit unsigned, linear data--into 16-bit signed samples. Return an array containing the resulting samples. I only thinking it is unsigned. I don't really know."
| n samples s |
n _ anArray size.
samples _ SoundBuffer newStereoSampleCount: (n * 2).
1 to: n do: [:i |
    s _ anArray at: i.
    samples at: (i * 2) put: (self imaDecode: s).
    samples at: ((i * 2) - 1) put: (self imaDecode: s)].
^ samples

imaDecode: number
| n |
n _ number.
n >= 128 ifTrue: [n _ n - 256].
^ (n) * 16

它以正确的速度给我一个声音，如果我仔细听，我可以听到原始的声音。但这是非常有条理的。

我想知道是否有人能够发现我的代码有什么问题，并帮助我弄清楚为什么声音如此有条理。（顺便说一句：我会使用convert4bitUnsignedFrom16Bit:变量作为参数，从SampledSound中的readFrom:方法调用data方法。

-TheCompModder

Answer 1

解码器方法的输入是ByteArray。每个8位字节以4位编码存储两个样本。假设这是立体声音轨，则左/右声道将存储在每个字节的上/下4位中。您的imaDecode:方法不会提取这些位。我认为它看起来应该更像（显然未经测试）：

1 to: n do: [:i |
    byte := anArray at: i.
    left := byte bitAnd: 15.                 "lower 4 bits"
    right := (byte >> 4) bitAnd: 15.         "upper 4 bits"
    samples at: (i * 2) put: (left - 8) << 12.
    samples at: ((i * 2) - 1) put: (right - 8) << 12].

这会将4位值放入left和right，将它们偏向-8（假设它们实际上已经签名）并将12位扩展为a完整的16位签名样本。

顺便说一下，我认为您的缓冲区大小过大，stereoSampleCount应为n而不是n * 2。

此外，如果您需要进一步的帮助，您可能希望将示例文件发布到Squeak开发人员邮件列表。

在Squeak Smalltalk中解码WAV文件

1 个答案: