Expose parametersv0.3

1 files changed, 96 insertions, 3 deletions

diff --git a/rhodes.lua b/rhodes.lua
index ab2a49f..fc88e35 100644
--- a/rhodes.lua
+++ b/rhodes.lua
@@ -5,6 +5,7 @@
 engine.name = "Rhodes"
 
 local MusicUtil = require "musicutil"
+local ControlSpec = require "controlspec"
 
 function redraw()
   screen.clear()
@@ -14,16 +15,108 @@ function redraw()
 end
 
 function init ()
-  redraw()
-  m = midi.connect(1)
-  m.event = function (a)
+  local mod_wheel_controls = 2
+  local base_mod_index = 0.1
+  local base_trem_speed = 2.0
+  local base_trem_depth = 0.1
+  local operator_mix = 0.2
+
+  local m = nil
+  local midi_event = function (a)
     b = midi.to_msg(a)
     if b.type == "note_on" then
       engine.note_on(b.note, b.vel or 60)
     elseif b.type == "note_off" then
       engine.note_off(b.note)
     end
+    -- mod wheel
+    if b.type == "cc" and b.ch == 1 then
+      if mod_wheel_controls == 1 then
+	engine.set_mod_index(base_mod_index + (b.val / 127) * (1.0 - base_mod_index))
+      elseif mod_wheel_controls == 2 then
+	engine.set_lfo_speed(base_trem_speed + (b.val / 127) * (60.0 - base_trem_speed))
+      elseif mod_wheel_controls == 3 then
+	engine.set_lfo_depth(base_trem_depth + (b.val / 127) * (1.0 - base_trem_depth))
+      end
+    end
   end
+
+  -- midi settings
+  params:add({
+    type = "option",
+    id = "mod_controls",
+    name = "Mod Wheel",
+    default = mod_wheel_controls,
+    options={"Mod Index", "Tremolo Speed", "Tremolo Depth"},
+    action = function(value) do
+	mod_wheel_controls = value;
+	engine.set_mod_index(base_mod_index);
+	engine.set_lfo_speed(base_trem_speed);
+	engine.set_lfo_depth(base_trem_depth);
+     end
+  end})
+  params:add({
+    type = "control",
+    id = "midi_in_vport",
+    name = "Midi In",
+    default=60,
+    controlspec = ControlSpec.new(1, 4, 'lin', 1, 1),
+    action = function(value)
+      -- clear the old connection
+      if m then
+	m.event = nil
+      end
+      m = midi.connect(value)
+      m.event = midi_event
+  end})
+  params:add_separator()
+
+  -- modulation settings
+  params:add({
+    type = "control",
+    id = "base_mod_index",
+    name = "Mod Index",
+    controlspec = ControlSpec.new(0.0, 100.0, 'lin', 0.5, base_mod_index * 100.0, "%"),
+    action = function(value) do
+	base_mod_index = value/100.0;
+	engine.set_mod_index(value/100.0);
+    end
+  end})
+  params:add({
+    type = "control",
+    id = "operator_mix",
+    name = "Operator Mix",
+    controlspec = ControlSpec.new(0.0, 100.0, 'lin', 0.1, operator_mix * 100.0, "%"),
+    action = function(value) do
+	operator_mix = value/100.0;
+	engine.set_mix(value/100.0);
+    end
+  end})
+  params:add_separator()
+
+  -- tremolo
+  params:add({
+    type = "control",
+    id = "base_trem_speed",
+    name = "Tremolo Speed",
+    controlspec = ControlSpec.new(0.001, 60.0, 'lin', 0.1, base_trem_speed, "hz"),
+    action = function(value) do
+	base_trem_speed = value;
+	engine.set_lfo_speed(value);
+    end
+  end})
+  params:add({
+    type = "control",
+    id = "base_trem_depth",
+    name = "Tremolo Depth",
+    controlspec = ControlSpec.new(0.00, 100.0, 'lin', 0.1, base_trem_depth * 100.0, "%"),
+    action = function(value) do
+	base_trem_depth = value/100.0;
+	engine.set_lfo_depth(value/100.00);
+    end
+  end})
+  params:default()
+  redraw()
 end
 
 function key (n, x)