Moho Forum

Code: Select all

-- **************************************************
-- Provide Moho with the name of this script object
-- **************************************************

ScriptName = "RL_Scale3D_XYZ"

-- **************************************************
-- General information about this script
-- **************************************************

RL_Scale3D_XYZ = {}

function RL_Scale3D_XYZ:Name()
	return "Scale 3D XYZ"
end

function RL_Scale3D_XYZ:Version()
	return "5.0"
end

function RL_Scale3D_XYZ:Description()
	return "Scales a 3D model around his three axis."
end

function RL_Scale3D_XYZ:Creator()
	return "Lost Marble modified by R.e.M"
end

function RL_Scale3D_XYZ:UILabel()
	return("Scale XYZ...")
end

-- **************************************************
-- Recurring values
-- **************************************************

RL_Scale3D_XYZ.xyzscale = 0.5

-- **************************************************
-- Scale 3D XYZ dialog
-- **************************************************

local RL_Scale3D_XYZDialog = {}

function RL_Scale3D_XYZDialog:new(moho)
	local d = LM.GUI.SimpleDialog("XYZ Scalation", RL_Scale3D_XYZDialog)
	local l = d:GetLayout()

	d.moho = moho

	l:PushH()
		l:PushV()
			l:AddChild(LM.GUI.StaticText("Scale XYZ"), LM.GUI.ALIGN_LEFT)
		l:Pop()
		l:PushV()
			d.xyzscale = LM.GUI.TextControl(0, "0.0000", 0, LM.GUI.FIELD_UFLOAT)
			l:AddChild(d.xyzscale)
		l:Pop()
	l:Pop()

	return d
end

function RL_Scale3D_XYZDialog:UpdateWidgets()
	self.xyzscale:SetValue(RL_Scale3D_XYZ.xyzscale)
end

function RL_Scale3D_XYZDialog:OnValidate()
	local b = true
	if (not self:Validate(self.xyzscale, 0.0001, 100)) then
		b = false
	end
	return b
end

function RL_Scale3D_XYZDialog:OnOK()
	RL_Scale3D_XYZ.xyzscale = self.xyzscale:FloatValue()
end

-- **************************************************
-- The guts of this script
-- **************************************************

function RL_Scale3D_XYZ:IsEnabled(moho)
	if (moho.layer:LayerType() ~= MOHO.LT_3D) then
		return false
	end
	if (moho.layer:CurrentAction() ~= "") then
		return false -- creating new objects in the middle of an action can lead to unexpected results
	end
	return true
end

function RL_Scale3D_XYZ:Run(moho)
	local mesh = moho:Mesh3D()
	if (mesh == nil) then
		return
	end

	local dlog = RL_Scale3D_XYZDialog:new(moho)
	if (dlog:DoModal() == LM.GUI.MSG_CANCEL) then
		return
	end

	moho.document:PrepUndo(moho.layer)
	moho.document:SetDirty()

	local vec = LM.Vector3:new_local()

	for i = 0, mesh:CountPoints() - 1 do
		local v = mesh:Point(i)
		mesh:ScaleToRadius(self.xyzscale)
	end

	

	-- Because we modified the points directly, this mesh shouldn't be re-loaded from an external file.
	-- This can be prevented by telling the layer that there is no external file.
	local layer = moho:LayerAs3D(moho.layer)
	layer:SetSourceMesh("")
end