あれー?今度は16bitで書き出したのに。
また振り幅が収まっていませんでした。
なんとか振り幅を収められないかと思い、以下の処理を記述しました。
FOR I=0 TO LEN(L)-1
L[I] = L[I] >> 16
NEXT
これをRにも処理をかけました。
それでも変わらず。
「早くなるなら、半分のスピードにしてみよう」と考えたので、次は
PCMSTREAM L,R,4000/2
としたところ、無事に再生ができたのです!!
結果としては、PCMSTREAMに渡すサンプリングレートは、2で割ったレートにしないといけないようです。