-- Node texture tests

local S = minetest.get_translator("testnodes")

minetest.register_node("testnodes:6sides", {
	description = S("Six Textures Test Node"),
	tiles = {
		"testnodes_normal1.png",
		"testnodes_normal2.png",
		"testnodes_normal3.png",
		"testnodes_normal4.png",
		"testnodes_normal5.png",
		"testnodes_normal6.png",
	},

	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:anim", {
	description = S("Animated Test Node"),
	tiles = {
		{ name = "testnodes_anim.png",
		animation = {
			type = "vertical_frames",
			aspect_w = 16,
			aspect_h = 16,
			length = 4.0,
		}, },
	},

	groups = { dig_immediate = 2 },
})

-- Node texture transparency test

local alphas = { 64, 128, 191 }

for a=1,#alphas do
	local alpha = alphas[a]

	-- Transparency taken from texture
	minetest.register_node("testnodes:alpha_texture_"..alpha, {
		description = S("Texture Alpha Test Node (@1)", alpha),
		drawtype = "glasslike",
		paramtype = "light",
		tiles = {
			"testnodes_alpha"..alpha..".png",
		},
		use_texture_alpha = "blend",

		groups = { dig_immediate = 3 },
	})

	-- Transparency set via texture modifier
	minetest.register_node("testnodes:alpha_"..alpha, {
		description = S("Alpha Test Node (@1)", alpha),
		drawtype = "glasslike",
		paramtype = "light",
		tiles = {
			"testnodes_alpha.png^[opacity:" .. alpha,
		},
		use_texture_alpha = "blend",

		groups = { dig_immediate = 3 },
	})
end

-- Generate PNG textures

local function mandelbrot(w, h, iterations)
	local r = {}
	for y=0, h-1 do
		for x=0, w-1 do
			local re = (x - w/2) * 4/w
			local im = (y - h/2) * 4/h
			-- zoom in on a nice view
			re = re / 128 - 0.23
			im = im / 128 - 0.82

			local px, py = 0, 0
			local i = 0
			while px*px + py*py <= 4 and i < iterations do
				px, py = px*px - py*py + re, 2 * px * py + im
				i = i + 1
			end
			r[w*y+x+1] = i / iterations
		end
	end
	return r
end

local function gen_checkers(w, h, tile)
	local r = {}
	for y=0, h-1 do
		for x=0, w-1 do
			local hori = math.floor(x / tile) % 2 == 0
			local vert = math.floor(y / tile) % 2 == 0
			r[w*y+x+1] = hori ~= vert and 1 or 0
		end
	end
	return r
end

local fractal = mandelbrot(512, 512, 128)
local frac_emb = mandelbrot(64, 64, 64)
local checker = gen_checkers(512, 512, 32)

local floor = math.floor
local abs = math.abs
local data_emb = {}
local data_mb = {}
local data_ck = {}
for i=1, #frac_emb do
	data_emb[i] = {
		r = floor(abs(frac_emb[i] * 2 - 1) * 255),
		g = floor(abs(1 - frac_emb[i]) * 255),
		b = floor(frac_emb[i] * 255),
		a = frac_emb[i] < 0.95 and 255 or 0,
	}
end
for i=1, #fractal do
	data_mb[i] = {
		r = floor(fractal[i] * 255),
		g = floor(abs(fractal[i] * 2 - 1) * 255),
		b = floor(abs(1 - fractal[i]) * 255),
		a = 255,
	}
	data_ck[i] = checker[i] > 0 and "#F80" or "#000"
end

local textures_path = minetest.get_modpath( minetest.get_current_modname() ) .. "/textures/"
minetest.safe_file_write(
	textures_path .. "testnodes_generated_mb.png",
	minetest.encode_png(512,512,data_mb)
)
minetest.safe_file_write(
	textures_path .. "testnodes_generated_ck.png",
	minetest.encode_png(512,512,data_ck)
)

minetest.register_node("testnodes:generated_png_mb", {
	description = S("Generated Mandelbrot PNG Test Node"),
	tiles = { "testnodes_generated_mb.png" },

	groups = { dig_immediate = 2 },
})
minetest.register_node("testnodes:generated_png_ck", {
	description = S("Generated Checker PNG Test Node"),
	tiles = { "testnodes_generated_ck.png" },

	groups = { dig_immediate = 2 },
})

local png_emb = "[png:" .. minetest.encode_base64(minetest.encode_png(64,64,data_emb))

minetest.register_node("testnodes:generated_png_emb", {
	description = S("Generated In-Band Mandelbrot PNG Test Node"),
	tiles = { png_emb },

	groups = { dig_immediate = 2 },
})
minetest.register_node("testnodes:generated_png_src_emb", {
	description = S("Generated In-Band Source Blit Mandelbrot PNG Test Node"),
	tiles = { png_emb .. "^testnodes_damage_neg.png" },

	groups = { dig_immediate = 2 },
})
minetest.register_node("testnodes:generated_png_dst_emb", {
	description = S("Generated In-Band Dest Blit Mandelbrot PNG Test Node"),
	tiles = { "testnodes_generated_ck.png^" .. png_emb },

	groups = { dig_immediate = 2 },
})

--[[

The following nodes can be used to demonstrate the TGA format support.

Minetest supports TGA types 1, 2, 3 & 10. While adding the support for
TGA type 9 (RLE-compressed, color-mapped) is easy, it is not advisable
to do so, as it is not backwards compatible with any Minetest pre-5.5;
content creators should therefore either use TGA type 1 or 10, or PNG.

TODO: Types 1, 2 & 10 should have two test nodes each (i.e. bottom-top
and top-bottom) for 16bpp (A1R5G5B5), 24bpp (B8G8R8), 32bpp (B8G8R8A8)
colors.

Note: Minetest requires the optional TGA footer for a texture to load.
If a TGA image does not load in Minetest, append eight (8) null bytes,
then the string “TRUEVISION-XFILE.”, then another null byte.

]]--

minetest.register_node("testnodes:tga_type1_24bpp_bt", {
	description = S("TGA Type 1 (color-mapped RGB) 24bpp bottom-top Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type1_24bpp_bt.tga" },
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type1_24bpp_tb", {
	description = S("TGA Type 1 (color-mapped RGB) 24bpp top-bottom Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type1_24bpp_tb.tga" },
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type2_16bpp_bt", {
	description = S("TGA Type 2 (uncompressed RGB) 16bpp bottom-top Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type2_16bpp_bt.tga" },
	use_texture_alpha = "clip",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type2_16bpp_tb", {
	description = S("TGA Type 2 (uncompressed RGB) 16bpp top-bottom Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type2_16bpp_tb.tga" },
	use_texture_alpha = "clip",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type2_32bpp_bt", {
	description = S("TGA Type 2 (uncompressed RGB) 32bpp bottom-top Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type2_32bpp_bt.tga" },
	use_texture_alpha = "blend",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type2_32bpp_tb", {
	description = S("TGA Type 2 (uncompressed RGB) 32bpp top-bottom Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type2_32bpp_tb.tga" },
	use_texture_alpha = "blend",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type3_16bpp_bt", {
	description = S("TGA Type 3 (uncompressed grayscale) 16bpp bottom-top Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type3_16bpp_bt.tga" },
	use_texture_alpha = "blend",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type3_16bpp_tb", {
	description = S("TGA Type 3 (uncompressed grayscale) 16bpp top-bottom Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type3_16bpp_tb.tga" },
	use_texture_alpha = "blend",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type10_32bpp_bt", {
	description = S("TGA Type 10 (RLE-compressed RGB) 32bpp bottom-top Test Node"),
	tiles = { "testnodes_tga_type10_32bpp_bt.tga" },
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	use_texture_alpha = "blend",
	groups = { dig_immediate = 2 },
})

minetest.register_node("testnodes:tga_type10_32bpp_tb", {
	description = S("TGA Type 10 (RLE-compressed RGB) 32bpp top-bottom Test Node"),
	drawtype = "glasslike",
	paramtype = "light",
	sunlight_propagates = true,
	tiles = { "testnodes_tga_type10_32bpp_tb.tga" },
	use_texture_alpha = "blend",
	groups = { dig_immediate = 2 },
})
