Displaying 1 result from an estimated 1 matches for "compressioncode".
2007 Jul 08
0
patch to enhance sound module for 96 kHz/24 bit sample sizes
...R, nchars=4) != 'WAVE')
stop("File is not WAVE format.")
- readBin(fileR,"integer",n=10,size=1)
+ # "fmt " (4 bytes) + Chunk Data Size (4 bytes) + Compression Code (2
bytes)
+ readBin(fileR,"integer",n=8,size=1)
+
+ compressionCode = readBin(fileR,"integer", size=2, endian='little')
+ if (compressionCode > 1)
+ stop ("unknown compression code.")
+
channels <- readBin(fileR,"integer", size=2, endian='little')
rate <- readBin(fileR,"integer",...