-- midi fm rhodes
--
-- key 2: play a C4

engine.name = "Rhodes"

local MusicUtil = require "musicutil"
local ControlSpec = require "controlspec"

function redraw()
  screen.clear()
  screen.move(64, 32)
  screen.text_center("rhodes.")
  screen.update()
end

function init ()
  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)
  if n == 2 and x == 1 then
    engine.note_on(60, 50)
  elseif n == 2 and x == 0 then
    engine.note_off(60)
  end
end

-- Local Variables:
-- compile-command: "make upload"
-- End: