Talk:Digiline Jumpdrive controller

Draft of modernized version for comments, before making version 1.2 out of it, any comments?

-- version 1.1.huhhila.1

mem.factor = mem.factor or 1

-- TODO actually use converted coordinates in table
local function c(v)
  return (v + 0)*5/4 + 3/8
end

local function c1(t)
  local r = {}
  for k, v in pairs(t) do
    r[k] = (k == "X" or k == "Y") and c(v) or k == "H" and v*2*15/13*0.35 or v
  end
  return r
end

local function convert(t)
  local r = {}
  for _, v in ipairs(t) do
    table.insert(r, c1(v))
  end
  return r
end

local function draw_touch()
 digiline_send("touch", convert({
  { command = "set", locked = true, real_coordinates = true, width = (10-1)*5/4+3/4+1, height = (8-1)*5/4+3/4+1 },
  { command = "clear" },

  { command = "add", element="button_exit",  name="xplus",   label="X+",  X=0, Y=0, W=4, H=1 },
  { command = "add", element="button_exit",  name="xminus",  label="X-",  X=0, Y=1, W=4, H=1 },
  { command = "add", element="button_exit",  name="yplus",   label="Y+",  X=0, Y=2, W=4, H=1 },
  { command = "add", element="button_exit",  name="yminus",  label="Y-",  X=0, Y=3, W=4, H=1 },
  { command = "add", element="button_exit",  name="zplus",   label="Z+",  X=0, Y=4, W=4, H=1 },
  { command = "add", element="button_exit",  name="zminus",  label="Z-",  X=0, Y=5, W=4, H=1 },

  { command = "add", element="button",  name="factorplus",  label="Factor+",   X=0, Y=6, W=4, H=1 },
  { command = "add", element="button",  name="factorminus",  label="Factor-",  X=0, Y=7, W=4, H=1 },
  { command = "add", element="label",  label="Factor: " .. mem.factor,  X=4, Y=6.5 },

  { command = "add", element="button_exit",  name="sethome",  label="Set home",  X=4, Y=0, W=4, H=1 },
  { command = "add", element="button_exit",  name="gohome",   label="Go home",   X=4, Y=1, W=4, H=1 },

  { command = "add", element="button_exit",  name="lock",  label="Lock",  X=4, Y=5, W=4, H=1 }}))
end

local function update_touch()
  digiline_send("touch", { command = "replace", index = 9,
    element = "label", label = "Factor: " .. mem.factor, X = 5.375, Y = 8.5 })
end

if event.type == "program" then
 draw_touch()
end

if event.type == "digiline" and event.channel == "touch" then
 mem.touch_event = event.msg
 digiline_send("jumpdrive",  {command="get"})
end

if event.type == "digiline" and event.channel == "jumpdrive" and event.msg.target then
 local jump = false
 local increment = ((event.msg.radius*2)+1)*mem.factor
 if mem.touch_event.lock then
  digiline_send("touch", { command = "clear" })

 elseif mem.touch_event.sethome then
  mem.home = event.msg.position

 elseif mem.touch_event.gohome and mem.home then
  digiline_send("jumpdrive", {command="set", {x = mem.home.x, y = mem.home.y, z = mem.home.z}})
  jump = true

 elseif mem.touch_event.yplus then
  digiline_send("jumpdrive", {command="set", key="y", value=event.msg.target.y+increment})
  jump = true

 elseif mem.touch_event.yminus then
  digiline_send("jumpdrive", {command="set", key="y", value=event.msg.target.y-increment})
  jump = true

 elseif mem.touch_event.xplus then
  digiline_send("jumpdrive", {command="set", key="x", value=event.msg.target.x+increment})
  jump = true

 elseif mem.touch_event.xminus then
  digiline_send("jumpdrive", {command="set", key="x", value=event.msg.target.x-increment})
  jump = true

 elseif mem.touch_event.zplus then
  digiline_send("jumpdrive", {command="set", key="z", value=event.msg.target.z+increment})
  jump = true

 elseif mem.touch_event.zminus then
  digiline_send("jumpdrive", {command="set", key="z", value=event.msg.target.z-increment})
  jump = true

 elseif mem.touch_event.factorplus then
  mem.factor = mem.factor + 1
  update_touch()

 elseif mem.touch_event.factorminus then
  mem.factor = mem.factor - 1
  if mem.factor < 1 then
   mem.factor = 1
  end
  update_touch()

 end

 if jump then
  digiline_send("jumpdrive", {command="jump"})
 end
end