From e4ef704ae20e8ba22d38e08394b5c8e412081ab4 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 22 May 2022 11:27:13 -0400
Subject: Add optional support for C-based filter computation

---
 filter.bqn | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'filter.bqn')

diff --git a/filter.bqn b/filter.bqn
index f6b8f6b..ed2baf9 100644
--- a/filter.bqn
+++ b/filter.bqn
@@ -56,6 +56,10 @@ Filter ← {
       r
     }¨ 𝕩
 }⎉1
+{𝕤
+  fi ← "lib.so" (•BQN"•FFI"){𝔽} "&"‿"filter"∾∾("u64"⋈∾⟜"f64")¨"&**"
+  Filter ↩ Fi∘{ ∾≠⊸⋈¨ ⟨𝕩⟩∾𝕨 }⎉1
+}⎊⊢@
 _f ← { !∘0⊘(𝔽⊸Filter) }
 
 # Compute the frequency response from coefficients
-- 
cgit v1.2.3