diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-04-02 18:34:50 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-04-02 18:34:50 -0400 |
| commit | cbd5facc1a2ac444e559a26b872d19af354a7370 (patch) | |
| tree | 92996cccee4c4667c33cc4ebeecc42fd3762feee | |
| parent | 982a545bb3a5166de9fe052161bcac4a4964fcea (diff) | |
Fix subchunk 2 handling
| -rw-r--r-- | wav.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -35,7 +35,7 @@ wh ← { # def: How to compute value len‿typ‿err‿name‿def ⇐ <˘⍉>⟨ 4‿'c'‿'e'‿"chunkID" ‿⟨"RIFF"⟩ - 4‿'i'‿'w'‿"chunkSize" ‿⟨20++´,"subchunk1Size","subchunk2Size"⟩ + 4‿'i'‿'.'‿"chunkSize" ‿⟨20++´,"subchunk1Size","subchunk2Size"⟩ 4‿'c'‿'e'‿"format" ‿⟨"WAVE"⟩ 4‿'c'‿'e'‿"subchunk1ID" ‿⟨"fmt "⟩ 4‿'i'‿'?'‿"subchunk1Size"‿⟨16⟩ @@ -143,7 +143,7 @@ Decode ← { # Ignore remaining subchunks s ← subchunk2Size While {𝕤⋄"data"≢subchunk2ID}‿{𝕤 - subchunk2ID‿s‿dat ↩ (4⊸↑ ⋈ ToInt∘((4+↕4)⊸⊏) ⋈ 8⊸↓) s ↓ dat + subchunk2ID‿s‿dat ↩ (4⊸↑ <⊸∾ ToInt∘((4+↕4)⊸⊏) ⋈ 8⊸↓) s ↓ dat subchunk2Size +↩ s+8 } # Check that fields match their definitions |