VoltageBank2.lua

local app = app
local libcore = require "core.libcore"
local Class = require "Base.Class"
local Unit = require "Unit"
-- local ModeSelect = require "Unit.MenuControl.OptionControl"
local MenuHeader = require "Unit.MenuControl.Header"
local Task = require "Unit.MenuControl.Task"
local Fader = require "Unit.ViewControl.Fader"
local GainBias = require "Unit.ViewControl.GainBias"
local Gate = require "Unit.ViewControl.Gate"
-- local InputGate = require "Unit.ViewControl.InputGate"
local OutputScope = require "Unit.ViewControl.OutputScope"
local Encoder = require "Encoder"
local ply = app.SECTION_PLY

local VoltageBank2 = Class{}
VoltageBank2:include(Unit)

function VoltageBank2:init(args)
  args.title = "Voltage Bank"
  args.mnemonic = "VB"
  Unit.init(self,args)
end

function VoltageBank2:onLoadGraph(channelCount)
  -- create objects

  -- Create network objects
  local localVars = {}
  local numSlots = 2

  -- define the different objects to be mass created
  -- local objectList = {
  --   sh = { "TrackAndHold" },
  --   shOut = { "Multiply" },
  --   shTrack = { "Multiply" },
  --   shMix = { "Sum" },
  --   bump  = { "BumpMap" },
  -- }

  -- for k, v in pairs(objectList) do
  for i = 1, numSlots do
    -- local dynamicVar = k .. i
    -- local dynamicDSPUnit = v[1]
    -- localVars[dynamicVar] = self:addObject(dynamicDSPUnit,dynamicVar)
    localVars["sh" .. i] = self:addObject("sh" ..i,libcore.TrackAndHold())
    localVars["shOut" .. i] = self:addObject("shOut" ..i,app.Multiply())
    localVars["shTrack" .. i] = self:addObject("shTrack" ..i,app.Multiply())
    localVars["shMix" .. i] = self:addObject("shMix" ..i,app.Sum())
    localVars["bump" .. i] = self:addObject("bump" ..i,libcore.BumpMap())
  end
-- end

local index = self:addObject("index",app.GainBias())
index:hardSet("Gain",1.0)
local indexRange = self:addObject("indexRange",app.MinMax())
local trig = self:addObject("trig",app.Comparator())
local divIndex = self:addObject("divIndex",app.ConstantGain())

local bypass = self:addObject("bypass",app.Comparator())
local invertingVCA = self:addObject("invertingVCA",app.Multiply())
local negOne = self:addObject("negOne",app.ConstantOffset())
local one = self:addObject("one",app.ConstantOffset())
local bypassSum = self:addObject("bypassSum",app.Sum())
bypass:setToggleMode()
negOne:hardSet("Offset",-1.0)
one:hardSet("Offset",1.0)

  divIndex:hardSet("Gain",1/numSlots)
  self:addMonoBranch("trig",trig,"In",trig,"Out")
  self:addMonoBranch("index",index,"In",index,"Out")
  self:addMonoBranch("bypass",bypass,"In",bypass,"Out")

  local bumpMapWidth = 1 / numSlots
  local bumpMapOffset = bumpMapWidth / 2

  local bumpOffset = self:addObject("bumpOffset",app.ConstantOffset())
  bumpOffset:hardSet("Offset",-bumpMapOffset)

  local inToOutVCA = self:addObject("inToOutVCA",app.Multiply())
  local inToOutVCAConst = self:addObject("inToOutVCAConst",app.Constant())
  inToOutVCAConst:hardSet("Value",0.0)
  local indexToOutVCA = self:addObject("indexToOutVCA",app.Multiply())
  local indexToOutVCAConst = self:addObject("indexToOutVCAConst",app.Constant())
  indexToOutVCAConst:hardSet("Value",1.0)
  local outputMixer = self:addObject("outputMixer",app.Sum())

  -- set bump map properties
  for i = 1, numSlots do
    localVars["bump" .. i]:hardSet("Height",1.0)
    localVars["bump" .. i]:hardSet("Fade",0.0)
    localVars["bump" .. i]:hardSet("Width",bumpMapWidth)
    localVars["bump" .. i]:hardSet("Center",(bumpMapWidth*i)-bumpMapOffset)
  end

  -- connect objects
  connect(index,"Out",indexRange,"In")
  connect(index,"Out",divIndex,"In")
  connect(divIndex,"Out",bumpOffset,"In")
  connect(localVars["shOut1"],"Out",localVars["shMix1"],"Left")
  connect(localVars["shOut2"],"Out",localVars["shMix1"],"Right")

  for i = 1, numSlots do
    connect(bumpOffset,"Out",localVars["bump" .. i],"In")
    connect(self,"In1",localVars["sh" .. i],"In")
    connect(trig,"Out",localVars["shTrack" .. i],"Left")
    connect(localVars["bump" .. i],"Out",localVars["shTrack" .. i],"Right")
    connect(localVars["shTrack" .. i],"Out",localVars["sh" .. i],"Track")
    connect(localVars["sh" .. i],"Out",localVars["shOut" .. i],"Left")
    connect(localVars["bump" .. i],"Out",localVars["shOut" .. i],"Right")
    if i < numSlots - 1 then
      connect(localVars["shMix" .. i],"Out",localVars["shMix" .. i + 1],"Left")
      connect(localVars["shOut" .. i + 2],"Out",localVars["shMix" .. i + 1],"Right")
    end
  end

  connect(localVars["shMix" .. numSlots-1],"Out",indexToOutVCA,"Left")
  -- connect(indexToOutVCAConst,"Out",indexToOutVCA,"Right")
  connect(negOne,"Out",invertingVCA,"Left")
  connect(bypass,"Out",invertingVCA,"Right")
  connect(invertingVCA,"Out",bypassSum,"Left")
  connect(one,"Out",bypassSum,"Right")
  connect(bypassSum,"Out",indexToOutVCA,"Right")
  connect(indexToOutVCA,"Out",outputMixer,"Left")
  connect(self,"In1",inToOutVCA,"Left")
  -- connect(inToOutVCAConst,"Out",inToOutVCA,"Right")
  connect(bypass,"Out",inToOutVCA,"Right")
  connect(inToOutVCA,"Out",outputMixer,"Right")
  connect(outputMixer,"Out",self,"Out1")
end

local menu = {
  "setHeader",
  "index",
  "input",
  "sum",
  "infoHeader",
  "rename",
  "load",
  "save",
  "edit"
}

-- function VoltageBank:setOp(op)
--   local objects = self.objects
--   self.op = op

--   if op=="index" then
--     objects.inToOutVCAConst:hardSet("Value",0.0)
--     objects.indexToOutVCAConst:hardSet("Value",1.0)
--   elseif op=="input" then
--     objects.inToOutVCAConst:hardSet("Value",1.0)
--     objects.indexToOutVCAConst:hardSet("Value",0.0)
--   elseif op=="sum" then
--     objects.inToOutVCAConst:hardSet("Value",1.0)
--     objects.indexToOutVCAConst:hardSet("Value",1.0)
--   end
-- end

-- function VoltageBank:onLoadFinished()
--   self:setOp("index")
-- end

function VoltageBank2:serialize()
  local t = Unit.serialize(self)
  t.voltageBankOp = self.op
  return t
end

function VoltageBank2:deserialize(t)
  Unit.deserialize(self,t)
  if t.voltageBankOp then
    self:setOp(t.voltageBankOp)
  end
end

-- function VoltageBank:onLoadMenu(objects,branches)
--   local controls = {}

--   controls.setHeader = MenuHeader {
--     description = string.format("Output signal: %s.",self.op)
--   }

--   controls.index = Task {
--     description = "index",
--     task = function()
--       self:setOp("index")
--     end
--   }

--   controls.input = Task {
--     description = "input",
--     task = function()
--       self:setOp("input")
--     end
--   }

--   controls.sum = Task {
--     description = "sum",
--     task = function()
--       self:setOp("sum")
--     end
--   }

--   return controls, menu
-- end

local function intMap(min,max)
  local map = app.LinearDialMap(min,max)
  map:setSteps(5,1,0.25,0.25);
  map:setRounding(1)
  return map
end

local indexMap = intMap(1,2)  -- adjust max param for numSlots

local views = {
  expanded = {"trigger","index","bypass"},
  collapsed = {},
}

function VoltageBank2:onLoadViews(objects,branches)
  local controls = {}

  controls.trigger = Gate {
    button = "trig",
    branch = branches.trig,
    description = "Trigger",
    comparator = objects.trig,
  }

  controls.index = GainBias {
    button = "index",
    description = "Bank Slot",
    branch = branches.index,
    gainbias = objects.index,
    range = objects.indexRange,
    biasMap = indexMap,
    biasPrecision = 0,
    gainMap = indexMap,
    initialBias = 1,
  }

  controls.bypass = Gate {
    button = "bypass",
    description = "Pass thru Input",
    branch = branches.bypass,
    comparator = objects.bypass,
  }

  return controls, views
end

return VoltageBank2