mirror of https://github.com/kepler155c/opus
75 lines
1.7 KiB
Lua
75 lines
1.7 KiB
Lua
local Util = require('opus.util')
|
|
|
|
local NFT = { }
|
|
|
|
-- largely copied from http://www.computercraft.info/forums2/index.php?/topic/5029-145-npaintpro/
|
|
|
|
local tColourLookup = { }
|
|
for n = 1, 16 do
|
|
tColourLookup[string.byte("0123456789abcdef", n, n)] = 2 ^ (n - 1)
|
|
end
|
|
|
|
local function getColourOf(hex)
|
|
return tColourLookup[hex:byte()]
|
|
end
|
|
|
|
function NFT.parse(imageText)
|
|
local image = {
|
|
fg = { },
|
|
bg = { },
|
|
text = { },
|
|
}
|
|
|
|
local num = 1
|
|
local lines = Util.split(imageText)
|
|
while #lines[#lines] == 0 do
|
|
table.remove(lines, #lines)
|
|
end
|
|
|
|
for _,sLine in ipairs(lines) do
|
|
table.insert(image.fg, { })
|
|
table.insert(image.bg, { })
|
|
table.insert(image.text, { })
|
|
|
|
--As we're no longer 1-1, we keep track of what index to write to
|
|
local writeIndex = 1
|
|
--Tells us if we've hit a 30 or 31 (BG and FG respectively)- next char specifies the curr colour
|
|
|
|
local tcol, bcol = colors.white,colors.black
|
|
local cx, sx = 1, 0
|
|
while sx < #sLine do
|
|
sx = sx + 1
|
|
if sLine:sub(sx,sx) == "\30" then
|
|
bcol = getColourOf(sLine:sub(sx+1,sx+1))
|
|
sx = sx + 1
|
|
elseif sLine:sub(sx,sx) == "\31" then
|
|
tcol = getColourOf(sLine:sub(sx+1,sx+1))
|
|
sx = sx + 1
|
|
else
|
|
image.bg[num][writeIndex] = bcol
|
|
image.fg[num][writeIndex] = tcol
|
|
image.text[num][writeIndex] = sLine:sub(sx,sx)
|
|
writeIndex = writeIndex + 1
|
|
cx = cx + 1
|
|
end
|
|
end
|
|
image.height = num
|
|
if not image.width or writeIndex - 1 > image.width then
|
|
image.width = writeIndex - 1
|
|
end
|
|
num = num+1
|
|
end
|
|
return image
|
|
end
|
|
|
|
function NFT.load(path)
|
|
|
|
local imageText = Util.readFile(path)
|
|
if not imageText then
|
|
error('Unable to read image file')
|
|
end
|
|
return NFT.parse(imageText)
|
|
end
|
|
|
|
return NFT
|