Teardown.lua

---------------------------------------------------------------------------------------------------------------------------
-- XmlNode
---------------------------------------------------------------------------------------------------------------------------

local function XmlNode(class: string)
	local node = Instance.new("Configuration")
	node.Name = class
	
	return function (attributes)
		if next(attributes) then
			for key, value in pairs(attributes) do
				if typeof(value) == "Instance" then
					value.Parent = node
				else
					node:SetAttribute(key, value)
				end
			end
		end
		
		return node
	end
end

---------------------------------------------------------------------------------------------------------------------------
-- XmlWriter
---------------------------------------------------------------------------------------------------------------------------

local XmlWriter = {}
XmlWriter.__index = XmlWriter

function XmlWriter.new()
	local writer = { Buffer = "" }
	return setmetatable(writer, XmlWriter)
end

function XmlWriter:__tostring()
	return self.Buffer
end

function XmlWriter:Write(str: string, ...)
	if select('#', ...) > 0 then
		str = str:format(...)
	end
	
	self.Buffer ..= str
end

function XmlWriter:NextLine()
	self:Write("\r\n")
end

function XmlWriter:WriteLine(str: string, ...)
	self:Write(str, ...)
	self:NextLine()
end

function XmlWriter:WriteAttribute(key: string, value: any)
	local valueType = typeof(value)
	self:Write(' %s="', key)
	
	if valueType == "Color3" then
		local r, g, b = value.R, value.G, value.B
		self:Write("%.4f %.4f %.4f", r, g, b)
	elseif valueType == "Vector3" then
		local x, y, z = value.X, value.Y, value.Z
		self:Write("%.2f %.2f %.2f", x, y, z)
	else
		local str = tostring(value)
		self:Write(str)
	end
	
	self:Write('"')	
end

function XmlWriter:WriteNode(node: Instance, stack: number?)
	local attributes = node:GetAttributes()
	local children = node:GetChildren()
	local stack = stack or 0
	
	for i = 1, stack do
		self:Write('\t')
	end
	
	self:Write('<')
	self:Write(node.Name)
	
	if next(attributes) then
		for key, value in pairs(attributes) do
			self:WriteAttribute(key, value)
		end
	end

	if next(children) then
		self:Write('>')
		self:NextLine()

		for i, child in ipairs(children) do
			self:WriteNode(child, stack + 1)
		end

		self:Write("</%s>", node.Name)
	else
		self:Write("/>")
	end

	self:NextLine()
end

---------------------------------------------------------------------------------------------------------------------------
-- Generate main.xml
---------------------------------------------------------------------------------------------------------------------------

local VOXEL_SIZE = 10
local MAP_SCALE = 0.5

local scene = XmlNode "scene"
{
	version = "0.6.0";
	shadowVolume = Vector3.new(200, 50, 200);
	
	XmlNode "environment" { template = "sunset"  };
	XmlNode "script"      { file = "main.lua"    };
	XmlNode "script"      { file = "sandbox.lua" };
}

for _,part in pairs(workspace:GetDescendants()) do
	if not part:IsA("Part") then
		continue
	end

	local cf = part.CFrame
	local size = part.Size

	local rot = part.Rotation
	local pos = cf * CFrame.new(-size / 2)
	
	pos = pos.Position * MAP_SCALE
	size = (size * VOXEL_SIZE) * MAP_SCALE
	
	local node = XmlNode "voxbox"
	{
		pos = pos;
		rot = rot;
		size = size;
		
		color = part.Color;
		material = "plaster";
		tags = "nocull";
	}
	
	node.Parent = scene
end

local main = XmlWriter.new()
main:WriteNode(scene)

print(main)

---------------------------------------------------------------------------------------------------------------------------