From 101cffe6f61fc1594cd63e1f4c6618ca6ee0a3a1 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 29 May 2022 08:19:25 -0400
Subject: Increase reverb window size to at least 2048 since small FFTs are
 inefficient

---
 reverb.bqn | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/reverb.bqn b/reverb.bqn
index 867ea26..04a067e 100644
--- a/reverb.bqn
+++ b/reverb.bqn
@@ -5,9 +5,10 @@ Reverb ← {
   ! 0<lw
   # Use the overlap-add method.
   o ← lw-1          # Overlap length
-  n ← ⌈⌾(2⋆⁼⊢) 3×o  # Window length, including overlap
-  l ← n-o           # Without overlap
   k ← lx+o          # Result length
+  n ← k⌊(2⋆14)⌈3×o  # Window length, including overlap
+  n   ⌈⌾(2⋆⁼⊢)↩     # Round up to power of two
+  l ← n-o           # Without overlap
   k0← ⌈⌾(÷⟜l) k     # Rounded up
   𝕨 {
     CW ← (n↑𝕨) _rev1
-- 
cgit v1.2.3