aboutsummaryrefslogtreecommitdiff
path: root/signs/common.lua
blob: 7ae420c4d16d94d2107dc42fd977f8536cf7a4b7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
local font = {}
signs.font_height = 10

-- Get png width, suposing png width is less than 256 (it is the case for all font textures)
local function get_png_width(filename)
	local file=assert(io.open(filename,"rb"))
	-- All font png are smaller than 256x256 --> read only last byte
	file:seek("set",19)
	local w = file:read(1)
	file:close()
	return w:byte()
end

-- Computes line width for a given font height and text
function signs.get_line_width(text)
	local char
	local width = 0

	for p=1,#text
	do
		char = text:sub(p,p):byte()
		if font[char] then
			width = width + font[char].width
		end
	end

	return width
end

--- Builds texture part for a text line
-- @param text Text to be rendered
-- @param x Starting x position in texture
-- @param width Width of the texture (extra text is not rendered)
-- @param y Vertical position of the line in texture
-- @return Texture string
function signs.make_line_texture(text, x, width, y)
	local char

	local texture = ""

	for p=1,#text
	do
		char = text:sub(p,p):byte()
		if font[char] then
			-- Add image only if it is visible (at least partly)
			if x + font[char].width >= 0 and x <= width then
				texture = texture..string.format(":%d,%d=%s", x, y, font[char].filename)
			end
			x = x + font[char].width
		end
	end
	return texture
end

local function split_lines(text, maxlines)
	local splits = text:split("\n")
	if maxlines then
		local lines = {}
		for num = 1,maxlines do
			lines[num] = splits[num]
		end
		return lines
	else
		return splits
	end
end

function signs.on_display_update(pos, objref)
	local meta = minetest.get_meta(pos)
	local text = meta:get_string("display_text")

	local ndef = minetest.registered_nodes[minetest.get_node(pos).name]
	if ndef and ndef.sign_model then
		local model = signs.sign_models[ndef.sign_model]
		local lines = split_lines(text, model.maxlines)

		local texturew = model.width/model.xscale
		local textureh = model.height/model.yscale

		local texture = ""

		local y
		if model.valing == "top" then
			y = signs.font_height / 2
		else		
			y = (textureh - signs.font_height * #lines) / 2 + 1 
		end

		for _, line in pairs(lines) do
			texture = texture..signs.make_line_texture(line, 
				(texturew - signs.get_line_width(line)) / 2, 
				texturew, y)
			y = y + signs.font_height
		end

		local texture = string.format("[combine:%dx%d", texturew, textureh)..texture
		if model.color then texture = texture.."^[colorize:"..model.color end

		objref:set_properties({ textures={texture}, visual_size = {x=model.width, y=model.height}})
	end
end

function signs.set_formspec(pos)
	local meta = minetest.get_meta(pos)
	local ndef = minetest.registered_nodes[minetest.get_node(pos).name]
	if ndef and ndef.sign_model then
		local model = signs.sign_models[ndef.sign_model]
		local formspec

		if model.maxlines == 1 then
			formspec = "size[6,3]"..
				"field[0.5,0.7;5.5,1;display_text;Displayed text;${display_text}]"..
				"button_exit[2,2;2,1;ok;Write]"
		else
			local extralabel = ""
			if model.maxlines then
				extralabel = " (first "..model.maxlines.." lines only)"
			end

			formspec = "size[6,4]"..
				"textarea[0.5,0.7;5.5,2;display_text;Displayed text"..extralabel..";${display_text}]"..
				"button_exit[2,3;2,1;ok;Write]"
		end

		meta:set_string("formspec", formspec)
	end
end

function signs.on_receive_fields(pos, formname, fields, player)
	if not minetest.is_protected(pos, player:get_player_name()) then
		local meta = minetest.get_meta(pos)
		if fields and fields.ok then
			meta:set_string("display_text", fields.display_text)
			meta:set_string("infotext", "\""..fields.display_text.."\"")
			display_lib.update_entities(pos)
		end
	end
end

-- On place callback for direction signs 
-- (chooses which sign according to look direction)
function signs.on_place_direction(itemstack, placer, pointed_thing)
	local above = pointed_thing.above
	local under = pointed_thing.under
	local wdir = minetest.dir_to_wallmounted(
				{x = under.x - above.x,
				 y = under.y - above.y,
				 z = under.z - above.z})
	
	local dir = placer:get_look_dir()

	if wdir == 0 or wdir == 1 then
		wdir = minetest.dir_to_wallmounted({x=dir.x, y=0, z=dir.z})
	end

	local name = itemstack:get_name()

	-- Only for direction signs (ending with _right)
	if name:sub(-string.len("_right")) == "_right" then
		name = name:sub(1, -string.len("_right"))

		local test = {0, dir.z, -dir.z, -dir.x, dir.x}
		if test[wdir] > 0 then
			itemstack:set_name(name.."left")
		end
		itemstack = minetest.item_place(itemstack, placer, pointed_thing, wdir)
		itemstack:set_name(name.."right")

		return itemstack
	else
		return minetest.item_place(itemstack, placer, pointed_thing, wdir)
	end
end

-- On_rotate (screwdriver) callback for direction signs
function signs.on_rotate_direction(pos, node, user, mode, new_param2)
	if mode == screwdriver.ROTATE_AXIS then 
		local name
		if node.name:sub(-string.len("_right")) == "_right" then
			name = node.name:sub(1, -string.len("_right")).."left"
		end
		if node.name:sub(-string.len("_left")) == "_left" then
			name = node.name:sub(1, -string.len("_left")).."right"
		end

		if name then
			minetest.swap_node(pos, {name = name, param1 = node.param1, param2 = node.param2})
		end
		return false
	else
		return display_lib.on_rotate(pos, node, user, mode, new_param2)
	end
end

-- Populate fonts table
local w, filename
for charnum=32,126 do
	filename = string.format("signs_%02x.png", charnum)
	w = get_png_width(signs.path.."/textures/"..filename)
	font[charnum] = {filename=filename, width=w}
end

-- Generic callback for show_formspec displayed formspecs
minetest.register_on_player_receive_fields(function(player, formname, fields)
	local found, _, mod, node_name, pos = formname:find("([%w_]+):([%w_]+)@(.+)")

	if found then
		if mod ~= 'signs' then return end

		local ndef = minetest.registered_nodes[mod..":"..node_name]

		if ndef and ndef.on_receive_fields then
			ndef.on_receive_fields(minetest.string_to_pos(pos), formname, fields, player)
		end
	end
end)