textures/track_st.png

-- Minetest: builtin/item.lua

local builtin_shared = ...

local function copy_pointed_thing(pointed_thing)
	return {
		type  = pointed_thing.type,
		above = vector.new(pointed_thing.above),
		under = vector.new(pointed_thing.under),
		ref   = pointed_thing.ref,
	}
end

--
-- Item definition helpers
--

function core.inventorycube(img1, img2, img3)
	img2 = img2 or img1
	img3 = img3 or img1
	return "[inventorycube"
			.. "{" .. img1:gsub("%^", "&")
			.. "{" .. img2:gsub("%^", "&")
			.. "{" .. img3:gsub("%^", "&")
end

function core.get_pointed_thing_position(pointed_thing, above)
	if pointed_thing.type == "node" then
		if above then
			-- The position where a node would be placed
			return pointed_thing.above
		end
		-- The position where a node would be dug
		return pointed_thing.under
	elseif pointed_thing.type == "object" then
		return pointed_thing.ref and pointed_thing.ref:get_pos()
	end
end

function core.dir_to_facedir(dir, is6d)
	--account for y if requested
	if is6d and math.abs(dir.y) > math.abs(dir.x) and math.abs(dir.y) > math.abs(dir.z) then

		--from above
		if dir.y < 0 then
			if math.abs(dir.x) > math.abs(dir.z) then
				if dir.x < 0 then
					return 19
				else
					return 13
				end
			else
				if dir.z < 0 then
					return 10
				else
					return 4
				end
			end

		--from below
		else
			if math.abs(dir.x) > math.abs(dir.z) then
				if dir.x < 0 then
					return 15
				else
					return 17
				end
			else
				if dir.z < 0 then
					return 6
				else
					return 8
				end
			end
		end

	--otherwise, place horizontally
	elseif math.abs(dir.x) > math.abs(dir.z) then
		if dir.x < 0 then
			return 3
		else
			return 1
		end
	else
		if dir.z < 0 then
			return 2
		else
			return 0
		end
	end
end

-- Table of possible dirs
local facedir_to_dir = {
	{x= 0, y=0,  z= 1},
	{x= 1, y=0,  z= 0},
	{x= 0, y=0,  z=-1},
	{x=-1, y=0,  z= 0},
	{x= 0, y=-1, z= 0},
	{x= 0, y=1,  z= 0},
}
-- Mapping from facedir value to index in facedir_to_dir.
local facedir_to_dir_map = {
	[0]=1, 2, 3, 4,
	5, 2, 6, 4,
	6, 2, 5, 4,
	1, 5, 3, 6,
	1, 6, 3, 5,
	1, 4, 3, 2,
}
function core.facedir_to_dir(facedir)
	return facedir_to_dir[facedir_to_dir_map[facedir % 32]]
end

function core.dir_to_wallmounted(dir)
	if math.abs(dir.y) > math.max(math.abs(dir.x), math.abs(dir.z)) then
		if dir.y < 0 then
			return 1
		else
			return 0
		end
	elseif math.abs(dir.x) > math.abs(dir.z) then
		if dir.x < 0 then
			return 3
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 20 00 00 00 20 08 06 00 00 00 73 7a 7a	.PNG........IHDR.............szz
0020	f4 00 00 00 06 62 4b 47 44 00 ff 00 ff 00 ff a0 bd a7 93 00 00 00 09 70 48 59 73 00 00 0e c3 00	.....bKGD..............pHYs.....
0040	00 0e c3 01 c7 6f a8 64 00 00 00 07 74 49 4d 45 07 e0 05 08 10 14 2a 3e f7 ab 4e 00 00 01 fa 49	.....o.d....tIME......*>..N....I
0060	44 41 54 58 c3 ed 95 3f 68 53 51 14 c6 7f 2f 79 e1 45 af a2 14 04 3b c8 45 50 70 32 12 41 c9 d6	DATX...?hSQ.../y.E....;.EPp2.A..
0080	c1 51 70 72 71 11 f7 38 15 17 85 50 84 42 83 43 86 48 97 0e 9d 5a 24 5d 2a b4 3a 88 ab 12 44 41	.Qprq..8...P.B.C.H...Z$]*.:...DA
00a0	09 05 85 b6 dc 36 21 6d 43 d3 10 bd 35 2f ff ae c3 b3 4f 27 f3 84 d7 ed 7d f3 b9 87 cb f9 7e e7	.....6!mC...5/....O'....}.....~.
00c0	3b 10 29 52 a4 48 01 55 2e 97 4d 2e 97 33 a3 ea f2 f9 bc 29 95 4a 26 68 5f 3b 48 d1 ca 74 c6 28	;.)R.H.U..M..3.....).J&h_;H..t.(
00e0	a5 10 42 50 cc a6 4c d2 89 23 9c 3f 4f b5 db 07 a0 d9 ee a2 b5 06 60 fe d1 75 f3 e0 d9 47 2b 94	..BP..L..#.?O.........`..u...G+.
0100	0f bc 7a b7 c5 c4 65 d0 5a 73 b0 db 62 b7 d5 e5 ac b0 71 12 31 dc de d0 af 3b 23 bc 76 52 4a 5e	..z...e.Zs..b.....q.1....;#.vRJ^
0120	2c ee 85 37 81 d9 d5 9a 35 71 1f 03 30 b3 a4 ac 7f 5b 20 8c 52 8a c2 f2 b6 15 a4 77 2c 6c 56 8e	,..7....5q..0....[..R......w,lV.
0140	2c 08 95 81 c5 c7 37 8c 94 92 4a a5 c2 dc 64 da 74 dc 01 17 c7 4f 02 50 6f ba 08 c7 c6 ed 0d d8	,.....7...J...d.t....O.Po.......
0160	6b b9 e8 bf b8 b9 fd e4 7d 38 0c 7c 53 0d 6c a5 00 58 5b 6f e0 f6 86 6c 54 bd e1 1d 71 e0 f6 86	k.......}8.\|S.l..X[o...lT...q...
0180	38 89 18 e7 2f 09 a4 94 bc 7e b9 13 de 04 a6 16 36 ad d2 1d 8c 10 82 a7 23 bc cd 5d d5 46 29 c5	8.../....~......6.......#..].F).
01a0	d4 c2 66 f8 0c fc af bf c7 c2 40 31 9b 32 a7 4e d8 fc f8 d9 27 e9 c4 19 1f 73 d8 ac 1f 92 74 e2	..f.......@1.2.N....'....s....t.
01c0	74 dc 01 87 42 84 9f 03 1f d6 ea d8 d7 3c 06 36 aa 4d 00 df f3 da 8e 4d a7 3b f4 f3 e0 f4 98 fe	t...B........<.6.M.....M.;......
01e0	fd 26 44 06 0a cb db 56 e6 9e 97 03 85 91 0c 78 75 b3 ab b5 70 19 90 52 72 1c b5 81 26 30 37 99	.&D....V.......xu...p..Rr...&07.
0200	f6 6f c1 ca 74 c6 b4 f5 c0 df fb 0b e7 bc 3c d8 6f bb 00 34 00 a5 14 c5 6c ca 3c 7c fe 39 1c 06	.o..t.........<.o..4....l.<\|.9..
0220	d6 b7 f6 49 df f4 b6 e0 ed 97 aa bf fb 4e 22 c6 41 eb bb ef 7f 4b f7 b9 72 cb 83 f0 d3 d7 10 6f	...I.........N".A....K..r......o
0240	c1 cc 92 b2 4a 77 03 e6 40 46 1b 29 25 f3 6f ea 16 91 22 45 8a 14 40 bf 00 8d ed ef b3 9d 46 9e	....Jw..@F.)%.o..."E..@.......F.
0260	4a 00 00 00 00 49 45 4e 44 ae 42 60 82	J....IEND.B`.