digilines/lcd.lua

365 lines
9.2 KiB
Lua
Raw Normal View History

2022-08-13 15:03:12 +02:00
local S = digilines.S
--* parts are currently not possible because you cannot set the pitch of an entity from lua
-- Font: 04.jp.org
-- load characters map
local chars_file = io.open(minetest.get_modpath("digilines").."/characters", "r")
local charmap = {}
if not chars_file then
print("[digilines] E: LCD: character map file not found")
else
while true do
local char = chars_file:read("*l")
if char == nil then
break
end
local img = chars_file:read("*l")
chars_file:read("*l")
charmap[char] = img
end
end
2017-03-01 05:05:53 +01:00
-- CONSTANTS
local LCD_WIDTH = 100
2017-03-01 05:05:53 +01:00
local LCD_PADDING = 8
local LINE_LENGTH = 12
local NUMBER_OF_LINES = 5
local LINE_HEIGHT = 14
local CHAR_WIDTH = 5
assert((CHAR_WIDTH+1) * LINE_LENGTH <= LCD_WIDTH - LCD_PADDING*2, "LCD: Lines set too long!")
assert((LINE_HEIGHT+1) * NUMBER_OF_LINES <= LCD_WIDTH - LCD_PADDING*2, "LCD: Too many lines!")
local split = function(s, pat)
-- adapted from https://stackoverflow.com/a/1647577/4067384
-- simplified for our only usecase
local st, g = 1, s:gmatch("()("..pat..")")
local function getter()
if st then
local segs, seps, sep = st, g()
st = sep and seps + #sep
return s:sub(segs, (seps or 0) - 1)
end
end
return getter
end
2017-03-01 05:05:53 +01:00
local create_lines = function(text)
--[[
Typeset the lines according to these rules (in order of subjective significance):
- words that fit on the screen but would let the current line overflow are placed on a new line instead
- " | " always forces a linebreak
- spaces are included, except when there is a linebreak anyway
- words with more characters than fit on screen are just chopped up, filling the lines as full as possible
- don't bother typesetting more lines than fit on screen
- if we are on the last line that will fit on screen
]]--
2017-03-01 05:05:53 +01:00
local line = ""
local line_num = 1
local tab = {}
local flush_line_and_check_for_return = function()
table.insert(tab, line)
line_num = line_num+1
if line_num > NUMBER_OF_LINES then
return true
end
line = ""
end
for par in split(text, " | ") do
for word in split(par, "%s") do
if string.len(word) <= LINE_LENGTH and line_num < NUMBER_OF_LINES then
local line_len = string.len(line)
if line_len > 0 then
-- remember the space
line_len = line_len + 1
end
if line_len + string.len(word) <= LINE_LENGTH then
if line_len > 0 then
line = line.." "..word
else
line = word
end
else
2021-01-24 10:42:01 +01:00
-- don't add the space since we have a line break
if word ~= " " then
if line_len > 0 then
-- ok, we need the new line
if flush_line_and_check_for_return() then return tab end
end
line = word
end
end
2017-03-01 05:05:53 +01:00
else
-- chop up word to make it fit
local remaining
while true do
remaining = LINE_LENGTH - string.len(line)
if remaining < LINE_LENGTH then
line = line .. " "
remaining = remaining - 1
end
if remaining < string.len(word) then
line = line .. string.sub(word, 1, remaining)
word = string.sub(word, remaining+1)
if flush_line_and_check_for_return() then return tab end
else
-- used up the word
line = line .. word
break
end
end
2017-03-01 05:05:53 +01:00
end
end
-- end of paragraph
if flush_line_and_check_for_return() then return tab end
line = ""
2017-03-01 05:05:53 +01:00
end
return tab
end
local generate_line = function(s, ypos)
local i = 1
local parsed = {}
local width = 0
local chars = 0
while chars < LINE_LENGTH and i <= #s do
2017-03-01 05:05:53 +01:00
local file = nil
if charmap[s:sub(i, i)] ~= nil then
file = charmap[s:sub(i, i)]
i = i + 1
elseif i < #s and charmap[s:sub(i, i + 1)] ~= nil then
file = charmap[s:sub(i, i + 1)]
i = i + 2
else
print("[digilines] W: LCD: unknown symbol in '"..s.."' at "..i)
if charmap[" "] ~= nil then
file = charmap[" "]
end
2017-03-01 05:05:53 +01:00
i = i + 1
end
if file ~= nil then
width = width + CHAR_WIDTH + 1
2017-03-01 05:05:53 +01:00
table.insert(parsed, file)
chars = chars + 1
end
end
width = width - 1
local texture = ""
local xpos = math.floor((LCD_WIDTH - width) / 2)
2017-03-01 05:05:53 +01:00
for ii = 1, #parsed do
texture = texture..":"..xpos..","..ypos.."="..parsed[ii]..".png"
xpos = xpos + CHAR_WIDTH + 1
end
return texture
end
local generate_texture = function(lines)
local texture = "[combine:"..LCD_WIDTH.."x"..LCD_WIDTH
local ypos = math.floor((LCD_WIDTH - LINE_HEIGHT*NUMBER_OF_LINES) / 2)
2017-03-01 05:05:53 +01:00
for i = 1, #lines do
texture = texture..generate_line(lines[i], ypos)
ypos = ypos + LINE_HEIGHT
end
return texture
end
local lcds = {
-- on ceiling
--* [0] = {delta = {x = 0, y = 0.4, z = 0}, pitch = math.pi / -2},
-- on ground
--* [1] = {delta = {x = 0, y =-0.4, z = 0}, pitch = math.pi / 2},
-- sides
-- Note: 0.437 is on the surface but we need some space to avoid
-- z-fighting in distant places (e.g. 30000,10,0)
[2] = {delta = {x = 0.43, y = 0, z = 0}, yaw = math.pi / -2},
[3] = {delta = {x = -0.43, y = 0, z = 0}, yaw = math.pi / 2},
[4] = {delta = {x = 0, y = 0, z = 0.43}, yaw = 0},
[5] = {delta = {x = 0, y = 0, z = -0.43}, yaw = math.pi},
}
local reset_meta = function(pos)
2014-02-13 21:45:31 +01:00
minetest.get_meta(pos):set_string("formspec", "field[channel;Channel;${channel}]")
end
local clearscreen = function(pos)
2014-02-13 21:45:31 +01:00
local objects = minetest.get_objects_inside_radius(pos, 0.5)
for _, o in ipairs(objects) do
2015-08-20 18:28:51 +02:00
local o_entity = o:get_luaentity()
if o_entity and o_entity.name == "digilines_lcd:text" then
o:remove()
end
end
end
local set_texture = function(ent)
local meta = minetest.get_meta(ent.object:get_pos())
local text = meta:get_string("text")
ent.object:set_properties({
textures = {
generate_texture(create_lines(text))
}
})
end
local get_entity = function(pos)
local lcd_entity
local objects = minetest.get_objects_inside_radius(pos, 0.5)
for _, o in ipairs(objects) do
local o_entity = o:get_luaentity()
if o_entity and o_entity.name == "digilines_lcd:text" then
if not lcd_entity then
lcd_entity = o_entity
else
-- Remove extras, if any
o:remove()
end
end
end
return lcd_entity
end
local rotate_text = function(pos, param)
local entity = get_entity(pos)
if not entity then
return
end
local lcd_info = lcds[param or minetest.get_node(pos).param2]
if not lcd_info then
return
end
entity.object:set_pos(vector.add(pos, lcd_info.delta))
entity.object:set_yaw(lcd_info.yaw or 0)
end
2014-02-26 14:17:01 +01:00
local prepare_writing = function(pos)
local entity = get_entity(pos)
if entity then
set_texture(entity)
rotate_text(pos)
end
end
local spawn_entity = function(pos)
if not get_entity(pos) then
minetest.add_entity(pos, "digilines_lcd:text")
rotate_text(pos)
end
end
2017-03-01 11:31:48 +01:00
local on_digiline_receive = function(pos, _, channel, msg)
2014-02-26 14:17:01 +01:00
local meta = minetest.get_meta(pos)
local setchan = meta:get_string("channel")
if setchan ~= channel then return end
meta:set_string("text", msg)
2015-02-14 19:21:44 +01:00
meta:set_string("infotext", msg)
if msg ~= "" then
prepare_writing(pos)
end
end
local lcd_box = {
type = "wallmounted",
wall_top = {-8/16, 7/16, -8/16, 8/16, 8/16, 8/16}
}
minetest.register_alias("digilines_lcd:lcd", "digilines:lcd")
minetest.register_node("digilines:lcd", {
drawtype = "nodebox",
2022-08-13 15:03:12 +02:00
description = S("Digiline LCD"),
inventory_image = "lcd_lcd.png",
wield_image = "lcd_lcd.png",
tiles = {"lcd_anyside.png"},
paramtype = "light",
sunlight_propagates = true,
light_source = 6,
paramtype2 = "wallmounted",
node_box = lcd_box,
selection_box = lcd_box,
groups = {choppy = 3, dig_immediate = 2},
is_ground_content = false,
_mcl_blast_resistance = 1,
_mcl_hardness = 0.8,
after_place_node = function(pos)
2014-02-13 21:45:31 +01:00
local param2 = minetest.get_node(pos).param2
if param2 == 0 or param2 == 1 then
minetest.add_node(pos, {name = "digilines:lcd", param2 = 3})
end
spawn_entity(pos)
prepare_writing(pos)
end,
on_construct = reset_meta,
on_destruct = clearscreen,
on_punch = function(pos, _, puncher, _)
if minetest.is_player(puncher) then
spawn_entity(pos)
end
end,
on_rotate = function(pos, _, _, mode, new_param2)
if mode ~= screwdriver.ROTATE_FACE then
return false
end
rotate_text(pos, new_param2)
end,
2017-03-01 11:31:48 +01:00
on_receive_fields = function(pos, _, fields, sender)
local name = sender:get_player_name()
if minetest.is_protected(pos, name) and not minetest.check_player_privs(name, {protection_bypass=true}) then
return
end
if (fields.channel) then
minetest.get_meta(pos):set_string("channel", fields.channel)
end
end,
digilines = {
receptor = {},
effector = {
action = on_digiline_receive
},
},
})
minetest.register_lbm({
label = "Replace Missing Text Entities",
name = "digilines:replace_text",
nodenames = {"digilines:lcd"},
run_at_every_load = true,
action = spawn_entity,
})
minetest.register_entity(":digilines_lcd:text", {
initial_properties = {
collisionbox = { 0, 0, 0, 0, 0, 0 },
visual = "upright_sprite",
textures = {},
},
on_activate = set_texture,
})
local steel_ingot = "default:steel_ingot"
local glass = "default:glass"
local lightstone = "mesecons_lightstone:lightstone_green_off"
if digilines.mcl then
steel_ingot = "mcl_core:iron_ingot"
glass = "mcl_core:glass"
lightstone = "mesecons_lightstone:lightstone_off"
end
minetest.register_craft({
output = "digilines:lcd 2",
recipe = {
{steel_ingot, "digilines:wire_std_00000000", steel_ingot},
{lightstone, lightstone, lightstone},
{glass, glass, glass}
}
})