From 64d0d6d1e499037de172f816a83009957040259b Mon Sep 17 00:00:00 2001
From: TiagoLr <prog4mr@gmail.com>
Date: Mon, 27 Nov 2023 20:39:11 +0000
Subject: [PATCH] Release Notes to CC v1.1 (#339)

Add off notes support
Add value slider
---
 MIDI/tilr_Notes to CC.jsfx | 92 ++++++++++++++++++++------------------
 1 file changed, 48 insertions(+), 44 deletions(-)

diff --git a/MIDI/tilr_Notes to CC.jsfx b/MIDI/tilr_Notes to CC.jsfx
index 7953441..440aac4 100644
--- a/MIDI/tilr_Notes to CC.jsfx	
+++ b/MIDI/tilr_Notes to CC.jsfx	
@@ -1,6 +1,9 @@
 desc: Notes to CC
 author: tilr
-version: 1.0
+version: 1.1
+changelog:
+  Add off notes support
+  Add value slider
 about:
   # Notes to CC
 
@@ -8,30 +11,32 @@ about:
 
   Includes controls for CC param, note min, note max and param range values.
 
-slider1:0<0, 127, 1>Note min
-slider2:127<0, 127, 1>Note max
-slider3:0<0, 127, 1>Param min
-slider4:127<0, 127, 1>Param max
+/**
+ * Maps midi notes to CC automation
+ */
+
+in_pin:none
+out_pin:none
+
+slider1:noteMin=0<0, 127, 1>Note min
+slider2:noteMax=127<0, 127, 1>Note max
+slider3:paramMin=0<0, 127, 1>Param min
+slider4:paramMax=127<0, 127, 1>Param max
 slider5:0<0,15,1{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>Channel
 slider6:60<0,127,1{0 Bank Sel M,1 Mod Wheel M,2 Breath M,3,4 Foot P M,5 Porta M,6 Data Entry M,7 Vol M,8 Balance M,9,10 Pan M,11 Expression M,12 Ctrl 1 M,13 Ctrl 2 M,14,15,16 GP Slider 1,17 GP Slider 2,18 GP Slider 3,19 GP Slider 4,20,21,22,23,24,25,26,27,28,29,30,31,32 Bank Sel L,33 Mod Wheel L,34 Breath L,35,36 Foot P L,37 Porta L,38 Data Entry L,39 Vol L,40 Balance L,41,42 Pan L,43 Expression L,44 Ctrl 1 L,45 Ctrl 2 L,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64 Hold P sw,65 Porta sw,66 Sustenuto sw,67 Soft P sw,68 Legato P sw,69 Hold 2 P sw,70 S.Variation,71 S.Timbre,72 S.Release,73 S.Attack,74 S.Brightness,75 S.Ctrl 6,76 S.Ctrl 7,77 S.Ctrl 8,78 S.Ctrl 9,79 S.Ctrl 10,80 GP B.1 sw,81 GP B.2 sw,82 GP B.3 sw,83 GP B.4 sw,84,85,86,87,88,89,90,91 Effects Lv,92 Trem Lv,93 Chorus Lv,94 Celeste Lv,95 Phaser Lv,96 Data B. Inc,97 Data B. Dec,98 NRP L,99 NRP M,100 RP L,101 RP M,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127}>Param
-slider7:1<0,1,1{No, Yes}>Send Notes
+slider7:sendNotes=1<0,1,1{No, Yes}>Send notes
+slider8:offNotes=0<0,1,1{Disabled,Send}>Off notes
+slider9:offNotesValue=0<0,127,1>Off notes value
+slider20:0<0,127,1>Value (readonly)
 
-////////////////////////////////////////////////////////////////////////////////
 @init
 statNoteOn = $x90;
 statNoteOff = $x80;
 
-////////////////////////////////////////////////////////////////////////////////
 @slider
 slider1 > slider2 ? slider2 = slider1;
 slider3 > slider4 ? slider3 = slider4;
-noteMin = slider1;
-noteMax = slider2;
-paramMin = slider3;
-paramMax = slider4;
-sendNote = slider7;
 
-////////////////////////////////////////////////////////////////////////////////
 @block
 
 while
@@ -39,41 +44,40 @@ while
 
   midirecv(offset,msg1,note,vel) ?
   (
-
-    send = 1;
-
-    // Extract message type and channel
     status = msg1 & $xF0;
     channel = msg1 & $x0F;
 
-    // Is it a note event?
-    status == statNoteOn || status == statNoteOff ?
-    (
-
-        send = 0; // Don't send MIDI
-
-        status == statNoteOn ? ( // Send Only if Note On
+    status == statNoteOn ? (
+      note > noteMax ? note = noteMax;
+      note < noteMin ? note = noteMin;
+      // linear mapping
+      scale = (paramMax-paramMin) / (noteMax-noteMin);
+      _offset = (-noteMin * (paramMax - paramMin)) / (noteMax - noteMin) + paramMin;
+      value = note * scale + _offset;
+      msg23 = (slider6 + 256*ceil(value))|0;
+      midisend(offset, 11*16 + slider5, msg23); // send CC
+      slider20 = value;
+
+      sendNotes ? midisend(offset, msg1, note, vel); // send note
+    ) :
+
+    status == statNoteOff && offNotes ? ( // Note off
+      value = (slider6 + 256*ceil(offNotesValue))|0;
+      midisend(offset, 11*16 + slider5, value);
+      sendNotes ? midisend(offset, msg1, note, vel);
+      slider20 = offNotesValue;
+    ) :
+
+    msg1 == 0xB0 && note == 123 && offNotes ? ( // All notes off
+      value = (slider6 + 256*ceil(offNotesValue))|0;
+      midisend(offset, 11*16 + slider5, value);
+      slider20 = offNotesValue;
+    ) :
 
-          msg2 = slider6;
-          note > noteMax ? note = noteMax;
-          note < noteMin ? note = noteMin;
-          // linear mapping
-          scale = (paramMax-paramMin) / (noteMax-noteMin);
-          _offset = (-noteMin * (paramMax - paramMin)) / (noteMax - noteMin) + paramMin;
-          value = note * scale + _offset;
-          msg23 = (msg2 + 256*ceil(value))|0;
-          midisend(offset, 11*16 + slider5, msg23); // send CC
-
-        );
-
-        sendNote == 1 ? midisend(offset, msg1, note, vel); // send note
-
-      );
-
-    send == 1 ? midisend(offset,msg1,note,vel); // passthrough
+    (
+      midisend(offset,msg1,note,vel); // passthrough
+    );
 
     1; // Force loop to continue until all messages have been processed
-
   );
-
 );