spessasynth_lib 3.22.9 → 3.22.10

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "spessasynth_lib",
-  "version": "3.22.9",
+  "version": "3.22.10",
   "description": "MIDI and SoundFont2/DLS library with no compromises",
   "browser": "index.js",
   "types": "@types/index.d.ts",

package/soundfont/dls/read_region.js

@@ -56,14 +56,18 @@ export function readRegion(chunk)
     const waveSampleChunk = regionChunks.find(c => c.header === "wsmp");
     // cbSize
     readLittleEndian(waveSampleChunk.chunkData, 4);
-    const originalKey = readLittleEndian(waveSampleChunk.chunkData, 2);
+    let originalKey = readLittleEndian(waveSampleChunk.chunkData, 2);
     
     // sFineTune
-    const pitchCorrection = signedInt16(
+    let pitchCorrection = signedInt16(
         waveSampleChunk.chunkData[waveSampleChunk.chunkData.currentIndex++],
         waveSampleChunk.chunkData[waveSampleChunk.chunkData.currentIndex++]
     );
     
+    const pitchCorrectionSemitones = Math.trunc(pitchCorrection / 100);
+    originalKey += pitchCorrectionSemitones;
+    pitchCorrection -= pitchCorrectionSemitones * 100;
+    
     // gain correction:  Each unit of gain represents 1/655360 dB
     // it is set after linking the sample
     const gainCorrection = readLittleEndian(waveSampleChunk.chunkData, 4);

package/soundfont/dls/read_samples.js

@@ -199,6 +199,13 @@ export function readDLSSamples(waveListChunk)
                 wsmpChunk.chunkData[wsmpChunk.chunkData.currentIndex++],
                 wsmpChunk.chunkData[wsmpChunk.chunkData.currentIndex++]
             );
+            
+            // pitch correction: convert hundreds to root key
+            const samplePitchSemitones = Math.trunc(samplePitch / 100);
+            sampleKey += samplePitchSemitones;
+            samplePitch -= samplePitchSemitones * 100;
+            
+            
             // gain is applied it manually here (literally multiplying the samples)
             const gainCorrection = readLittleEndian(wsmpChunk.chunkData, 4);
             // convert to signed and turn into decibels
@@ -252,6 +259,7 @@ export function readDLSSamples(waveListChunk)
             sampleDbAttenuation
         ));
         
+        
         sampleID++;
         SpessaSynthInfo(
             `%cLoaded sample %c${sampleName}`,