From 15a4f7e829a9fb70b6e5078b2c6ce73a5ade7c18 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 11 Mar 2021 19:09:56 -0500
Subject: Function to get note from frequency

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

diff --git a/scale.bqn b/scale.bqn
index b6eb24f..15feef5 100644
--- a/scale.bqn
+++ b/scale.bqn
@@ -10,3 +10,7 @@ Trans ⇐ (2 ⋆ ÷⟜12)⊸×
 # e.g. C#, A4, Gb2, F##
 Oct ← ⊑'4'-˜('0'⊸≤∧≤⟜'9')⊸/∾"3"˙  # Default to 3 to hit middle C
 Note ⇐ (minor⊑˜'a'(⊢-≤◶'A'‿⊣)⊑) (+´⟜(-˝"#b"=⌜⊢) Trans 440×2⋆Oct∘⊢) 1⊸↓
+
+# Nearest note from frequency
+names ← ('A'⊸+ ∾⟜(/⟜"#")¨ ⊒) /12⊸«⊸-minor
+FromFreq ⇐ 12 ((names⊑˜|) ∾ '4'+⌊∘÷˜) 0.5 ⌊∘+ Trans⟜440⁼
-- 
cgit v1.2.3