easygrain.lua

-- easygrain
--
-- a simplified glut
-- for traveling with nothing
-- not even a grid
--
-- KEY 1: Alt-key
-- KEY 2: Start/Stop
-- KEY 3: Retrigger
--        Main    Alt
-- ENC 1: Speed Jitter
-- ENC 2: Size  Density
-- ENC 3: Pitch Spread

engine.name = 'EasyGlut'
local VOICES = 1
voiceGate = 0
shiftMode = 0
grainPosition = 0

arcMode = 0


REFRESH_RATE = 0.03


key = function(n,z)
  if n==2 then hold = z==1 and true or false
  elseif n==3 and z==1 then mode = mode==1 and 2 or 1 end
  redraw()
end

a = arc.connect()

a.delta = function(n,d)
  if n == 1 then
    if d > 2 then arcMode = 1
    elseif d < -2 then arcMode = 0 end
  end
  
  if arcMode == 0 then
    if n == 2 then
      params:delta("1speed",d/2)
    elseif n == 3 then
      params:delta("1size",d/3) 
    elseif n == 4 then
      params:delta("1pitch",d/20) 
    end
  elseif arcMode == 1 then
    if n == 2 then
      params:delta("1jitter",d/3)
    elseif n == 3 then
      params:delta("1density",d/3) 
    elseif n == 4 then
      params:delta("1spread",d/3) 
    end
  end
  
  
end

arc_redraw = function()
  a:all(0)
  
  if arcMode == 0 then
    a:segment(1, -3, 0, 15)
    
    local speed = params:get("1speed") / 200
    if speed > 0 then
      a:segment(2,0.5,0.5+speed,15)
    else
      a:segment(2,speed-0.5,-0.5,15)
    end
  
    local size = params:get("1size") / 100
    a:segment(3, -2.5, -2.5 + size, 15)
    
    local pitch = params:get("1pitch") / 20
    if pitch > 0 then
      a:segment(4,0.5,0.5+pitch,15)
    else
      a:segment(4,pitch-0.5,-0.5,15)
    end
  elseif arcMode == 1 then
    a:segment(1, 0, 3, 15)
    local jitter = params:get("1jitter") / 100
    local density = params:get("1density") / 100
    local spread = params:get("1spread") / 20
    
    a:segment(2, -2.5, -2.5 + jitter, 15)
    a:segment(3, -2.5, -2.5 + density, 15)
    a:segment(4, -2.5, -2.5 + spread, 15)
  end
  
  a:refresh()
end

re = metro.init()
re.time = REFRESH_RATE
re.event = function()
  arc_redraw()
end
re:start()


function init()
  
  local phase_poll = poll.set('phase_1', function(pos) grainPosition = pos end)
  phase_poll.time = 0.05
  phase_poll:start()
  
  local sep = ": "

  params:add_taper("reverb_mix", "*"..sep.."mix", 0, 100, 50, 0, "%")
  params:set_action("reverb_mix", function(value) engine.reverb_mix(value / 100) end)

  params:add_taper("reverb_room", "*"..sep.."room", 0, 100, 50, 0, "%")
  params:set_action("reverb_room", function(value) engine.reverb_room(value / 100) end)

  params:add_taper("reverb_damp", "*"..sep.."damp", 0, 100, 50, 0, "%")
  params:set_action("reverb_damp", function(value) engine.reverb_damp(value / 100) end)

  for v = 1, VOICES do
    params:add_separator()

    params:add_file(v.."sample", v..sep.."sample")
    params:set_action(v.."sample", function(file) engine.read(v, file) end)

    params:add_taper(v.."volume", v..sep.."volume", -60, 20, 0, 0, "dB")
    params:set_action(v.."volume", function(value) engine.volume(v, math.pow(10, value / 20)) end)

    params:add_taper(v.."speed", v..sep.."speed", -400, 400, 100, 0, "%")
    params:set_action(v.."speed", function(value) engine.speed(v, value / 100) end)

    params:add_taper(v.."jitter", v..sep.."jitter", 0, 500, 0, 5, "ms")
    params:set_action(v.."jitter", function(value) engine.jitter(v, value / 1000) end)

    params:add_taper(v.."size", v..sep.."size", 1, 500, 100, 5, "ms")
    params:set_action(v.."size", function(value) engine.size(v, value / 1000) end)

    params:add_taper(v.."density", v..sep.."density", 0, 512, 20, 6, "hz")
    params:set_action(v.."density", function(value) engine.density(v, value) end)

    params:add_taper(v.."pitch", v..sep.."pitch", -48, 48, 0, 0, "st")
    params:set_action(v.."pitch", function(value) engine.pitch(v, math.pow(0.5, -value / 12)) end)

    params:add_taper(v.."spread", v..sep.."spread", 0, 100, 0, 0, "%")
    params:set_action(v.."spread", function(value) engine.spread(v, value / 100) end)

    params:add_taper(v.."fade", v..sep.."att / dec", 1, 9000, 1000, 3, "ms")
    params:set_action(v.."fade", function(value) engine.envscale(v, value / 1000) end)
  end

  params:bang()
  
  counter = metro.init(count, 0.01, -1)
  counter:start()
end

function count()
  redraw()
end

local function reset_voice()
  engine.seek(1, 0)
end

local function start_voice()
  reset_voice()
  engine.gate(1, 1)
  voiceGate = 1
end

local function stop_voice()
  voiceGate = 0
  engine.gate(1, 0)
end



function enc(n, d)
  if n == 1 then
    if shiftMode == 0 then
      params:delta("1speed", d)
    else
      params:delta("1jitter", d)
    end
  elseif n == 2 then
    if shiftMode == 0 then
      params:delta("1size", d)
    else
      params:delta("1density", d)
    end
  elseif n == 3 then
    if shiftMode == 0 then
      params:delta("1pitch", d)
    else
      params:delta("1spread", d)
    end
  end
end

function key(n, z)
  if n == 1 then
    shiftMode = z
  elseif n == 2 then
    if z == 1 then
      if voiceGate == 0 then start_voice() else stop_voice() end
    end
  elseif n == 3 then
    if z == 1 then 
      reset_voice() 
    end
  end
end

function printRound(num, numDecimalPlaces)
  local mult = 10^(numDecimalPlaces or 0)
  return math.floor(num * mult + 0.5) / mult
end

function redraw()
  -- do return end
  screen.clear()
  screen.level(15)

  rectHeight = 10
  rectPadding = 10

  screen.rect(rectPadding, rectHeight, 100, 10)
  screen.stroke()
  
  if voiceGate == 1 then
    screen.rect(rectPadding, rectHeight, 100*grainPosition, 10)
    screen.fill()
  end
  
  if shiftMode == 0 then
    screen.move(4, 40)
    screen.text(printRound(params:get("1speed"), 1))
    screen.move(0, 50)
    screen.text("Speed")
    
    screen.move(60, 40)
    screen.text(printRound(params:get("1size"), 1))
    screen.move(60, 50)
    screen.text("Size")
    
    screen.move(96, 40)
    screen.text(printRound(params:get("1pitch"), 1))
    screen.move(95, 50)
    screen.text("Pitch")
  else
    screen.move(6, 40)
    screen.text(printRound(params:get("1jitter"), 1))
    screen.move(0, 50)
    screen.text("Jitter")
    
    screen.move(60, 40)
    screen.text(printRound(params:get("1density"), 1))
    screen.move(53, 50)
    screen.text("Density")
    
    screen.move(97, 40)
    screen.text(printRound(params:get("1spread"), 1))
    screen.move(90, 50)
    screen.text("Spread")
  end

  screen.update()
end