Moho Forum

Code: Select all

function LayerScript(moho)

-- thinking about making an automatically and dynamically updating arc and spacing tracker...
-- this is a little mod of ponysmasher's original code 
-- At this moment it's only reacting to translation of ONE point at a time.
-- .....making it an embedded layer script so that it, in time, will react to ALL tools


    local layer = moho.layer
	local curLayer = layer

	if (layer:LayerType() ~= MOHO.LT_VECTOR) or ( layer:IsGroupType() ) then
		print "not vectorlayer. break!"
		return
	end

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

	local Interpolation = 0
	local val1 = 0
	local val2 = 0
	local xTable={}
	local yTable={}
	local pv=LM.Vector2:new_local()
	local lv=LM.Vector3:new_local()
	local startFrame = moho.document:StartFrame()
	local endFrame = moho.document:EndFrame()
	local thePoint = nil
	local theGroupLayer = nil

	-----------------------------------------------------Get the point we're looking for
	for i = 0, mesh:CountPoints() - 1 do
			local pt = mesh:Point(i)
			if (pt.fSelected) then
			thePoint=mesh:Point(i)
				break
			end
	end

	if (thePoint == nil) then
		--LM.GUI.Alert(LM.GUI.ALERT_INFO, "No point selected.", nil, nil, "OK", nil, nil)
		print "error. no point selected"
		return
	end

	---------------------------------------------------- check if tracklayer exists, if not create a new one
	if moho.document:LayerByName("Tracked motion") ~= nil then
	local iLayer = nil
		for i = 0, moho.document:CountLayers()-1 do
				iLayer = moho.document:Layer(i)
				if (moho.document:Layer(i).Name(iLayer) == ("Tracked motion")) then
					--print "Tracked motion layer found"
					theGroupLayer = iLayer
					break
				else
					--continue
				end
		end
	end

	if moho.document:LayerByName("Tracked motion") == nil then
				theGroupLayer = (moho:CreateNewLayer(MOHO.LT_GROUP)) -- The group layer that contains everything
				theGroupLayer:SetName("Tracked motion")
				--print "Tracked motion layer created"
	end


	---------------------------------------------------- get translate positions from selected point, transfer to
													  -- layer position in "Tracked motion"-layer

	local ch = thePoint.fAnimPos                        -- PROBLEM; only gets the pointanimated position, not the real screen position !!!
														-- does not work with bone action for instance...
		for frame = 0, ch:Duration() do

		--	if (ch:HasKey(frame)) then       -- use this to find the KEYED frames only !   -- >   keyframes should be marked in different color, of course...

				if (ch.GetKeyInterpMode ~= nil) then
					Interpolation, val1, val2 = ch:GetKeyInterp(frame, Interpolation,val1, val2);
				end
				if theGroupLayer ~= nil then
					lv=theGroupLayer.fTranslation:GetValue(frame)

					pv = thePoint.fAnimPos:GetValue(frame)
					lv.x = pv.x
					lv.y = pv.y
					theGroupLayer.fTranslation:SetValue(frame, lv)
					theGroupLayer.fTranslation:SetKeyInterp(frame, Interpolation, val1, val2)
				end

		--	end

		end

	moho:SetSelLayer(curlayer)
	moho:UpdateUI()
end