Moho Forum

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

ScriptName = "LM_Rotate3D_XYZ"

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

LM_Rotate3D_XYZ = {}

function LM_Rotate3D_XYZ:Name()
return "Rotate 3D XYZ"
end

function LM_Rotate3D_XYZ:Version()
return "5.0"
end

function LM_Rotate3D_XYZ:Description()
return "Rotates a 3D model around the X, Y or Z axis."
end

function LM_Rotate3D_XYZ:Creator()
return "Lost Marble & R.e.M"
end

function LM_Rotate3D_XYZ:UILabel()
return("Rotate XYZ...")
end

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

LM_Rotate3D_XYZ.xangle = 0
LM_Rotate3D_XYZ.yangle = 0
LM_Rotate3D_XYZ.zangle = 0

-- **************************************************
-- Rotate 3D XYZ dialog
-- **************************************************

local LM_Rotate3D_XYZDialog = {}

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

d.moho = moho

l:PushH()
l:PushV()
l:AddChild(LM.GUI.StaticText("X Angle"), LM.GUI.ALIGN_LEFT)
l:AddChild(LM.GUI.StaticText("Y Angle"), LM.GUI.ALIGN_LEFT)
l:AddChild(LM.GUI.StaticText("Z Angle"), LM.GUI.ALIGN_LEFT)
l:Pop()
l:PushV()
d.xangle = LM.GUI.TextControl(0, "0.0000", 0, LM.GUI.FIELD_FLOAT)
l:AddChild(d.xangle)
d.yangle = LM.GUI.TextControl(0, "0.0000", 0, LM.GUI.FIELD_FLOAT)
l:AddChild(d.yangle)
d.zangle = LM.GUI.TextControl(0, "0.0000", 0, LM.GUI.FIELD_FLOAT)
l:AddChild(d.zangle)
l:Pop()
l:Pop()

return d
end

function LM_Rotate3D_XYZDialog:UpdateWidgets()
self.xangle:SetValue(LM_Rotate3D_XYZ.xangle)
self.yangle:SetValue(LM_Rotate3D_XYZ.yangle)
self.zangle:SetValue(LM_Rotate3D_XYZ.zangle)
end

function LM_Rotate3D_XYZDialog:OnValidate()
local b = true
if (not self:Validate(self.xangle, -360, 360)) then
b = false
end
if (not self:Validate(self.yangle, -360, 360)) then
b = false
end
if (not self:Validate(self.zangle, -360, 360)) then
b = false
end
return b
end

function LM_Rotate3D_XYZDialog:OnOK()
LM_Rotate3D_XYZ.xangle = self.xangle:FloatValue()
LM_Rotate3D_XYZ.yangle = self.yangle:FloatValue()
LM_Rotate3D_XYZ.zangle = self.zangle:FloatValue()
end

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

function LM_Rotate3D_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 LM_Rotate3D_XYZ:Run(moho)
local mesh = moho:Mesh3D()
if (mesh == nil) then
return
end

local dlog = LM_Rotate3D_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)
v:Rotate(LM.X_AXIS, math.rad(self.xangle))
v:Rotate(LM.Y_AXIS, math.rad(self.yangle))
v:Rotate(LM.Z_AXIS, math.rad(self.zangle))
mesh:SetPoint(i, v)
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

Ramón López wrote:I'd like (very much) that the window could REMAIN OPENED while make the changes, but I don't know how do it (of course) and I don't know if this could be possible...