From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Sun, 13 Apr 2025 18:48:02 +0100
Subject: initial

---
 site/udo/midi.udo | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100755 site/udo/midi.udo

(limited to 'site/udo/midi.udo')

diff --git a/site/udo/midi.udo b/site/udo/midi.udo
new file mode 100755
index 0000000..1e608b3
--- /dev/null
+++ b/site/udo/midi.udo
@@ -0,0 +1,65 @@
+#ifndef UDO_MIDI
+#define UDO_MIDI ##
+/*
+	MIDI control handler
+	Currently only handling one channel
+
+	This file is part of the SONICS UDO collection by Richard Knight 2022
+		License: GPL-2.0-or-later
+		http://1bpm.net
+*/
+
+
+gimidi_values = ftgen(0, 0, -128, -2, 0) ; scale 0 to 1 values with index correlating to MIDI CC number
+
+
+/*
+	Handle incoming MIDI messages and write to channel with scaling if defined in gSmidimap_channels and gkmidimap_values
+*/
+instr midi_handler
+	kstatus, kchan, kdata1, kdata2 midiin 
+	if (kstatus == 176) then ;144 is note on 128 is note off ; 208 is aftertouch
+		tabw scale(kdata2, 1, 0, 127, 0), kdata1, gimidi_values
+#ifndef MIDI_NOTE_HANDLER_INSTRUMENT
+	endif
+#else
+	elseif (kstatus == 144) then
+		schedulek("_midi_note_handler", 0, 1, 1, kchan, kdata1, kdata2)
+	elseif (kstatus == 128) then
+		schedulek("_midi_note_handler", 0, 1, 0, kchan, kdata1, kdata2)
+	endif
+#end
+endin
+alwayson("midi_handler")
+
+
+instr _midi_note_handler
+	ionoff = p4
+	ichannel = p5
+	inote = p6
+	ivelocity = p7
+	instrnum = nstrnum("$MIDI_NOTE_HANDLER_INSTRUMENT") + (ichannel / 100) + (inote / 100000)
+	if (ionoff == 0) then
+		turnoff2 instrnum, 4, 1
+	else
+		schedule(instrnum, 0, -1, ichannel, inote, ivelocity)
+	endif
+	turnoff
+endin
+
+opcode midi_cc, k, i
+	icc xin
+	kval tab icc, gimidi_values
+	xout kval
+endop
+
+opcode midi_zeroall, 0, 0
+	index = 0
+	while (index < 128) do
+		outic 1, index, 0, 0, 1
+		tabw_i 0, index, gimidi_values
+		index += 1
+	od
+endop
+
+#end
-- 
cgit v1.2.3