mirror of
https://github.com/minetest-mods/digilines.git
synced 2024-11-16 07:10:23 +01:00
340 lines
8.7 KiB
Lua
340 lines
8.7 KiB
Lua
--* 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 = {}
|
|
local max_chars = 12
|
|
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
|
|
|
|
-- CONSTANTS
|
|
local LCD_WIDTH = 100
|
|
local LCD_PADDING = 8
|
|
|
|
local LINE_LENGTH = 12
|
|
local NUMBER_OF_LINES = 5
|
|
|
|
local LINE_HEIGHT = 14
|
|
local CHAR_WIDTH = 5
|
|
|
|
local split = function(s, pat)
|
|
-- adapted from https://stackoverflow.com/a/1647577/4067384
|
|
pat = pat or '%s+'
|
|
local st, g = 1, string.gmatch(s, "()("..pat..")")
|
|
local function getter(segs, seps, sep, cap1, ...)
|
|
st = sep and seps + #sep
|
|
return string.sub(s, segs, (seps or 0) - 1), cap1 or sep, ...
|
|
end
|
|
return function() if st then return getter(st, g()) end end
|
|
end
|
|
|
|
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
|
|
]]--
|
|
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
|
|
if word == " " then
|
|
-- don't add the space since we have a line break
|
|
else
|
|
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
|
|
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, math.min(remaining, string.len(word)))
|
|
word = string.sub(word, remaining+1, string.len(word))
|
|
if flush_line_and_check_for_return() then return tab end
|
|
else
|
|
-- used up the word
|
|
line = line .. word
|
|
break
|
|
end
|
|
end
|
|
end
|
|
end
|
|
-- end of paragraph
|
|
if flush_line_and_check_for_return() then return tab end
|
|
line = ""
|
|
end
|
|
return tab
|
|
end
|
|
|
|
local generate_line = function(s, ypos)
|
|
local i = 1
|
|
local parsed = {}
|
|
local width = 0
|
|
local chars = 0
|
|
while chars < max_chars and i <= #s do
|
|
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
|
|
i = i + 1
|
|
end
|
|
if file ~= nil then
|
|
width = width + CHAR_WIDTH
|
|
table.insert(parsed, file)
|
|
chars = chars + 1
|
|
end
|
|
end
|
|
width = width - 1
|
|
|
|
local texture = ""
|
|
local xpos = math.floor((LCD_WIDTH - 2 * LCD_PADDING - width) / 2)
|
|
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 = 16
|
|
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
|
|
[2] = {delta = {x = 0.437, y = 0, z = 0}, yaw = math.pi / -2},
|
|
[3] = {delta = {x = -0.437, y = 0, z = 0}, yaw = math.pi / 2},
|
|
[4] = {delta = {x = 0, y = 0, z = 0.437}, yaw = 0},
|
|
[5] = {delta = {x = 0, y = 0, z = -0.437}, yaw = math.pi},
|
|
}
|
|
|
|
local reset_meta = function(pos)
|
|
minetest.get_meta(pos):set_string("formspec", "field[channel;Channel;${channel}]")
|
|
end
|
|
|
|
local clearscreen = function(pos)
|
|
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
|
|
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
|
|
|
|
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
|
|
|
|
local on_digiline_receive = function(pos, _, channel, msg)
|
|
local meta = minetest.get_meta(pos)
|
|
local setchan = meta:get_string("channel")
|
|
if setchan ~= channel then return end
|
|
|
|
meta:set_string("text", msg)
|
|
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",
|
|
description = "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},
|
|
after_place_node = function(pos)
|
|
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, node, puncher, pointed_thing)
|
|
if minetest.is_player(puncher) then
|
|
spawn_entity(pos)
|
|
end
|
|
end,
|
|
on_rotate = function(pos, node, user, mode, new_param2)
|
|
if mode ~= screwdriver.ROTATE_FACE then
|
|
return false
|
|
end
|
|
rotate_text(pos, new_param2)
|
|
end,
|
|
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
|
|
minetest.record_protection_violation(pos, name)
|
|
return
|
|
end
|
|
if (fields.channel) then
|
|
minetest.get_meta(pos):set_string("channel", fields.channel)
|
|
end
|
|
end,
|
|
digiline = {
|
|
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", {
|
|
collisionbox = { 0, 0, 0, 0, 0, 0 },
|
|
visual = "upright_sprite",
|
|
textures = {},
|
|
on_activate = set_texture,
|
|
})
|
|
|
|
minetest.register_craft({
|
|
output = "digilines:lcd 2",
|
|
recipe = {
|
|
{"default:steel_ingot", "digilines:wire_std_00000000", "default:steel_ingot"},
|
|
{"mesecons_lightstone:lightstone_green_off","mesecons_lightstone:lightstone_green_off","mesecons_lightstone:lightstone_green_off"},
|
|
{"default:glass","default:glass","default:glass"}
|
|
}
|
|
})
|