Moho Animation Forum

Code: Select all

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

ScriptName = "FA_ReversePoints"

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

FA_ReversePoints = {}

function FA_ReversePoints:Name()
	return "Reverse Points"
end

function FA_ReversePoints:Version()
	return "5.0"
end

function FA_ReversePoints:Description()
	return "Reverse the order of selected points (by curves)"
end

function FA_ReversePoints:Creator()
	return "Fazek"
end

function FA_ReversePoints:UILabel()
	return("Reverse Points")
end

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

function FA_ReversePoints:IsEnabled(moho)
	if (moho:CountSelectedPoints() > 1) then
		return true
	end
	return false
end

function FA_ReversePoints:Run(moho)
	local mesh = moho:Mesh()
	if (mesh == nil) then
		return
	end

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

	for i = 0, mesh:CountCurves() - 1 do
		local cve= mesh:Curve(i)
		local tab= {}
		local even= true

		for j = 0, cve:CountPoints() - 1 do
			local pt= cve:Point(j)

			if (pt.fSelected) then
				table.insert(tab,pt)
				even= not even
			end
		end
		local n= table.getn(tab)

		if (n > 1) then

			if (cve.fClosed) then
				table.insert(tab,tab[1])
				even= not even
				n= n + 1
			end
			local mx,my
			local mirrorX= tab[1].fTempPos.x
			local mirrorY= tab[1].fTempPos.y

			if (even) then
				mx= (tab[n / 2].fTempPos.x + tab[(n + 2) / 2].fTempPos.x) / 2 - mirrorX
				my= (tab[n / 2].fTempPos.y + tab[(n + 2) / 2].fTempPos.y) / 2 - mirrorY
			else
				mx= tab[(n + 1) / 2].fTempPos.x - mirrorX
				my= tab[(n + 1) / 2].fTempPos.y - mirrorY
			end
			local q= (mx * mx) + (my * my)

			for j = 0, cve:CountPoints() - 1 do
				local pt= cve:Point(j)

				if (pt.fSelected) then
					local pt2= tab[n]
					local ax= pt2.fTempPos.x - mirrorX
					local ay= pt2.fTempPos.y - mirrorY

					if (q > 0) then
						local x= ((ay * mx) - (ax * my)) / q
						local y= ((ax * mx) + (ay * my)) / q
						ax= (mx * y) + (my * x)
						ay= (my * y) - (mx * x)
					end
					pt.fPos.x= mirrorX + ax
					pt.fPos.y= mirrorY + ay
					n= n - 1
				end
			end
		end
	end
	moho:AddPointKeyframe(moho.frame)
	moho:NewKeyframe(CHANNEL_POINT)
end