Moderators: Víctor Paredes, Belgarath, slowtiger
Yeah, I remember. I actually had a closer look at that one and tried a little modding on that very idea, and moved the code into an embedded script and actually got it to work "dynamically", in realtime, on one single selected translated point, with resulting keys on every frame - to show the overall spacing properly.ponysmasher made a point tracker for me once - you select a point and it creates a new empty folder that tracks that point over the animation (so you can attach new parts to already animated things)
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
