From 2d956a3a779672ab3acfc1bc542ebba855522d06 Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Wed, 5 Nov 2025 16:45:22 -0500
Subject: Organize namespaces

---
 src/unheard/theory.clj | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 src/unheard/theory.clj

(limited to 'src/unheard/theory.clj')

diff --git a/src/unheard/theory.clj b/src/unheard/theory.clj
new file mode 100644
index 0000000..5d5805b
--- /dev/null
+++ b/src/unheard/theory.clj
@@ -0,0 +1,34 @@
+(ns unheard.theory
+  (:require [missionary.core :as m]
+            [clojure.set :refer [union]]))
+
+(defn note [clock start duration value]
+  (m/cp
+   (if (m/?< (m/latest #(<= start % (dec (+ start duration))) clock))
+     #{value}
+     #{})))
+
+(defn poly [& notes]
+  (m/ap
+    (apply union (m/?< (apply m/latest vector notes)))))
+
+;; TODO: Group could actually wrap note, rather than using explicitly
+;; WIll introduce a lot of GC churn, though
+(defn group
+  [clock start end content]
+  (m/cp
+   (let [content (m/signal content)]
+     (if (m/?< (m/latest #(<= start % end) clock))
+       (m/?< content)
+       (m/amb #{})))))
+
+;; TODO:
+;; - Note literals turn into numbers
+;; - Represent keyboard as byte array of shorts
+;; - play a note increments, stop a note decrements
+;; - Multiple instruments
+;; - Mapping inputs to vars
+;; - Inputs get declared at the top of a track
+;; - Devices get mapped to declared inputs
+;; - Notion of scenes that change mapping of inputs to vars
+;; - Loops
-- 
cgit v1.2.3