opus/sys/apis/ui/glasses.lua

local class = require('class')
local UI = require('ui')
local Event = require('event')
local Peripheral = require('peripheral')

--[[-- Glasses device --]]--
local Glasses = class()
function Glasses:init(args)

  local defaults = {
    backgroundColor = colors.black,
    textColor = colors.white,
    textScale = .5,
    backgroundOpacity = .5,
    multiplier = 2.6665,
--    multiplier = 2.333,
  }
  defaults.width, defaults.height = term.getSize()

  UI:setProperties(defaults, args)
  UI:setProperties(self, defaults)

  self.bridge = Peripheral.get({
    type = 'openperipheral_bridge',
    method = 'addBox',
  })
  self.bridge.clear()

  self.setBackgroundColor = function(...) end
  self.setTextColor = function(...) end

  self.t = { }
  for i = 1, self.height do
    self.t[i] = {
      text = string.rep(' ', self.width+1),
      --text = self.bridge.addText(0, 40+i*4, string.rep(' ', self.width+1), 0xffffff),
      bg = { },
      textFields = { },
    }
  end
end

function Glasses:setBackgroundBox(boxes, ax, bx, y, bgColor)
  local colors = {
    [ colors.black ] = 0x000000,
    [ colors.brown ] = 0x7F664C,
    [ colors.blue  ] = 0x253192,
    [ colors.red   ] = 0xFF0000,
    [ colors.gray  ] = 0x272727,
    [ colors.lime  ] = 0x426A0D,
    [ colors.green ] = 0x2D5628,
    [ colors.white ] = 0xFFFFFF
  }

  local function overlap(box, ax, bx)
    if bx < box.ax or ax > box.bx then
      return false
    end
    return true
  end

  for _,box in pairs(boxes) do
    if overlap(box, ax, bx) then 
      if box.bgColor == bgColor then
        ax = math.min(ax, box.ax)
        bx = math.max(bx, box.bx)
        box.ax = box.bx + 1
      elseif ax == box.ax then
        box.ax = bx + 1
      elseif ax > box.ax then
        if bx < box.bx then
          table.insert(boxes, { -- split
            ax = bx + 1,
            bx = box.bx,
            bgColor = box.bgColor
          })
          box.bx = ax - 1
          break
        else
          box.ax = box.bx + 1
        end
      elseif ax < box.ax then
        if bx > box.bx then
          box.ax = box.bx + 1 -- delete
        else
          box.ax = bx + 1
        end
      end
    end
  end
  if bgColor ~= colors.black then
    table.insert(boxes, {
      ax = ax,
      bx = bx,
      bgColor = bgColor
    })
  end

  local deleted
  repeat
    deleted = false
    for k,box in pairs(boxes) do
      if box.ax > box.bx then
        if box.box then
          box.box.delete()
        end
        table.remove(boxes, k)
        deleted = true
        break
      end
      if not box.box then
        box.box = self.bridge.addBox(
          math.floor(self.x + (box.ax - 1) * self.multiplier),
          self.y + y * 4,
          math.ceil((box.bx - box.ax + 1) * self.multiplier),
          4,
          colors[bgColor],
          self.backgroundOpacity)
      else
        box.box.setX(self.x + math.floor((box.ax - 1) * self.multiplier))
        box.box.setWidth(math.ceil((box.bx - box.ax + 1) * self.multiplier))
      end
    end
  until not deleted
end

function Glasses:write(x, y, text, bg)

  if x < 1 then
    error(' less ', 6)
  end
  if y <= #self.t then
    local line = self.t[y]
    local str = line.text
    str = str:sub(1, x-1) .. text .. str:sub(x + #text)
    self.t[y].text = str

    for _,tf in pairs(line.textFields) do
      tf.delete()
    end
    line.textFields = { }

    local function split(st)
      local words = { }
      local offset = 0
      while true do
        local b,e,w = st:find('(%S+)')
        if not b then
          break
        end
        table.insert(words, {
          offset = b + offset - 1,
          text = w,
        })
        offset = offset + e
        st = st:sub(e + 1)
      end
      return words
    end

    local words = split(str)
    for _,word in pairs(words) do
      local tf = self.bridge.addText(self.x + word.offset * self.multiplier,
                                     self.y+y*4, '', 0xffffff)
      tf.setScale(self.textScale)
      tf.setZ(1)
      tf.setText(word.text)
      table.insert(line.textFields, tf)
    end

    self:setBackgroundBox(line.bg, x, x + #text - 1, y, bg)
  end
end

function Glasses:clear(bg)
  for _,line in pairs(self.t) do
    for _,tf in pairs(line.textFields) do
      tf.delete()
    end
    line.textFields = { }
    line.text = string.rep(' ', self.width+1)
--    self.t[i].text.setText('')
  end
end

function Glasses:reset()
  self:clear()
  self.bridge.clear()
  self.bridge.sync()
end

function Glasses:sync()
  self.bridge.sync()
end

return Glasses