From fb3ec828f6da432c0cea2c8df465397d6a58093e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 20 Feb 2021 17:05:52 -0500
Subject: Fix sign handling on integer wave file read

---
 wav.bqn | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/wav.bqn b/wav.bqn
index 5ac83aa..b35362f 100644
--- a/wav.bqn
+++ b/wav.bqn
@@ -66,7 +66,8 @@ _audioConvert ← {
   _withInv_ ← {F _𝕣_ G: {𝕊:F𝕩 ; 𝕊⁼:G𝕩}}
   # Convert 𝕗-byte sequences to ints
   _int ← {
-    b ← 256 ⋄ (+⟜(b⊸×)˝∘⍉⌊‿𝕗⥊⊢) _withInv_ (⥊∘⍉∘>b|⌊∘÷⟜b⍟(↕𝕗))
+    b ← 256
+    (+⟜(b⊸×)˝˜⟜(-(b÷2)≤¯1⊸⊏)·⍉⌊‿𝕗⥊⊢) _withInv_ (⥊∘⍉∘>b|⌊∘÷⟜b⍟(↕𝕗))
   }
   # Convert int to float
   _float ← {e‿m‿b←𝕗  # exponent and mantissa length in bits; bias
-- 
cgit v1.2.3