Moho Forum

Code: Select all

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

ScriptName = "CT_EXPORT_BONE_POS_2_AE"

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

CT_EXPORT_BONE_POS_2_AE = {}

function CT_EXPORT_BONE_POS_2_AE:Name()
    return "CT_EXPORT_BONE_POS_2_AE"
end

function CT_EXPORT_BONE_POS_2_AE:Version()
    return "0.2"
end

function CT_EXPORT_BONE_POS_2_AE:Description()
    return "Expost select bone position 2 After Effects"
end

function CT_EXPORT_BONE_POS_2_AE:Creator()
    return "Ilya Suvorkin"
end

function CT_EXPORT_BONE_POS_2_AE:UILabel()
    return "Expost Bone position 2 After Effects " .. CT_EXPORT_BONE_POS_2_AE:Version()
end

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




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

function CT_EXPORT_BONE_POS_2_AE:IsEnabled(moho)

    if ( layerCount == 0 ) then
        return
    end
    
   if ( moho.layer:IsBoneType() ~=true) then
    	return
    end

 local skel = moho:Skeleton()
	if (skel == nil) then
		return false
	end
	if (skel:CountBones() < 1) then
		return false
	end
	return true
end

function CT_EXPORT_BONE_POS_2_AE:Run(moho)
    local path

    local endFrame
	local beginFrame

	local m = LM.Matrix:new_local()
	local vec = LM.Vector3:new_local()
	local oldVec = LM.Vector3:new_local()
	local origin = moho.layer:Origin()


   	local origin = LM.Vector2:new_local()
	local tmporigin = LM.Vector2:new_local()
	local tip = LM.Vector2:new_local()
    local oldorigin = LM.Vector2:new_local()
	local oldtip = LM.Vector2:new_local()

	local matrix = LM.Matrix:new_local()

    local bone
    local curbone
    


    if ( layerCount == 0 ) then
        return
    end


    local layer        = moho.layer
    local layerType    = layer:LayerType()

    if ( layer:IsBoneType() ~=true) then
    	return
    end

    local skel = moho:Skeleton()
    local boneCount
    local i

    if ( skel == nil ) then
        return
    end

    path = LM.GUI.SaveFile("Animation Data File");
    if ( path == "" ) then
        return
    end

    CT_EXPORT_BONE_POS_2_AE.file = io.open( path, "w" )
    if ( CT_EXPORT_BONE_POS_2_AE.file == nil ) then
        print( "Could not open file");
        return
    end


    boneCount = skel:CountBones()

    if ( boneCount < 1 ) then
        return
    end


 	
    for i = 0, boneCount-1 do
        local bone = skel:Bone( i )


	   	
		if (bone.fSelected) then
				curbone=bone
				width=moho.document:Width()
				height=moho.document:Height()
				fps=moho.document:Fps()
   				aspect=moho.document:AspectRatio()

				unit= height/2

            	CT_EXPORT_BONE_POS_2_AE.file:write("Adobe After Effects 6.5 Keyframe Data\n\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\tUnits Per Second\t" .. fps .. "\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\tSource Width\t" .. width .."\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\tSource Height\t" .. height .."\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\tSource Pixel Aspect Ratio\t1\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\tComp Pixel Aspect Ratio\t1\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("Position\n")
            	CT_EXPORT_BONE_POS_2_AE.file:write("\tFrame\tX pixels\tY pixels\tZ pixels\n")

	       		beginFrame=1
				endFrame=moho.document:EndFrame()
				for frame = beginFrame, endFrame do

             		moho:SetCurFrame(frame)

		           	moho.layer:GetFullTransform(frame, matrix, moho.document)
		            tip:Set(curbone.fLength,0)  --äëèíà êîñòè!!
		            curbone.fMovedMatrix:Transform(tip)
		            matrix:Transform(tip)
		            
           			CT_EXPORT_BONE_POS_2_AE.file:write("\t"..frame .. "\t" .. unit*(tip.x+aspect) .. "\t".. unit*(1-tip.y) .. "\t0\n")

			 	end

				CT_EXPORT_BONE_POS_2_AE.file:write("\n\nEnd of Keyframe Data\n")
				CT_EXPORT_BONE_POS_2_AE.file:close()
		end
	end
end