AfflictionNetworks/nenya
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moved the Max exporters here to live with the model code.

Browse Source 
git-svn-id: svn+ssh://src.earth.threerings.net/nenya/trunk@59 ed5b42cb-e716-0410-a449-f6a68f950b19
This commit is contained in:
Andrzej Kapolka
2006-10-18 00:14:16 +00:00
parent 7bf691a518
commit 41d9f206d5
2 changed files with 290 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ms/TRAnimationExporter.mcr
+98
View File
@@ -0,0 +1,98 @@
--
-- $Id$
--
-- Narya library - tools for developing networked games
-- Copyright (C) 2002-2004 Three Rings Design, Inc., All Rights Reserved
-- http://www.threerings.net/code/narya/
--
-- This library is free software; you can redistribute it and/or modify it
-- under the terms of the GNU Lesser General Public License as published
-- by the Free Software Foundation; either version 2.1 of the License, or
-- (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
-- You should have received a copy of the GNU Lesser General Public
-- License along with this library; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
macroScript TRAnimationExporter category:"File" \
buttonText:"Export Animation as XML..." toolTip:"Export Animation as XML" (
-- Writes a point3-valued attribute to the file
fn writePoint3Attr attr p outFile =
(
format "%=\"%, %, %\"" attr p.x p.y p.z to:outFile
)
-- Writes a quat-valued attribute to the file
fn writeQuatAttr attr q outFile =
(
format "%=\"%, %, %, %\"" attr q.x q.y q.z q.w to:outFile
)
-- Writes a single node transform
fn writeTransform node outFile = (
format " <transform name=\"%\"" node.name to:outFile
xform = node.transform
if node.parent != undefined do (
xform = xform * (inverse node.parent.transform)
)
writePoint3Attr " translation" xform.translationPart outFile
writeQuatAttr " rotation" (inverse xform.rotationPart) outFile
writePoint3Attr " scale" xform.scalePart outFile
format "/>\n" to:outFile
)
-- Writes a single animation frame
fn writeFrame nodes outFile = (
format " <frame>\n" to:outFile
for node in nodes do in coordsys world (
writeTransform node outFile
)
format " </frame>\n\n" to:outFile
)
-- Writes animation to the named file
fn writeAnimation fileName =
(
outFile = createfile fileName
format "<?xml version=\"1.0\" standalone=\"yes\"?>\n\n" to:outFile
format "<animation frameRate=\"%\">\n\n" frameRate to:outFile
objs = objects as array
sels = selection as array
if sels.count > 0 do (
objs = sels
)
for t = animationRange.start to animationRange.end do at time t (
writeFrame objs outFile
)
if sels.count > 0 do (
select sels
)
format "</animation>\n" to:outFile
close outFile
)
--
-- Main entry point
--
-- Get the target filename
persistent global xmlAnimFileName
local fileName
if (xmlAnimFileName == undefined) then (
fileName = maxFilePath + (getFilenameFile maxFileName) + ".mxml"
) else (
fileName = xmlAnimFileName
)
fileName = getSaveFileName caption:"Select File to Export" \
filename:fileName types:"XML Animations (*.MXML)|*.mxml|All|*.*"
if fileName != undefined do (
xmlAnimFileName = fileName
writeAnimation fileName
)
)
src/ms/TRModelExporter.mcr
+192
View File
@@ -0,0 +1,192 @@
--
-- $Id$
--
-- Narya library - tools for developing networked games
-- Copyright (C) 2002-2004 Three Rings Design, Inc., All Rights Reserved
-- http://www.threerings.net/code/narya/
--
-- This library is free software; you can redistribute it and/or modify it
-- under the terms of the GNU Lesser General Public License as published
-- by the Free Software Foundation; either version 2.1 of the License, or
-- (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
-- You should have received a copy of the GNU Lesser General Public
-- License along with this library; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
macroScript TRModelExporter category:"File" \
buttonText:"Export Model as XML..." toolTip:"Export Model as XML" (
-- Writes a point3-valued attribute to the file
fn writePoint3Attr attr p outFile =
(
format "%=\"%, %, %\"" attr p.x p.y p.z to:outFile
)
-- Writes a quat-valued attribute to the file
fn writeQuatAttr attr q outFile =
(
format "%=\"%, %, %, %\"" attr q.x q.y q.z q.w to:outFile
)
-- Writes a skinned vertex's bone weights to the file
fn writeSkinBoneWeights skin vidx outFile =
(
weightCount = skinOps.getVertexWeightCount skin vidx
for i = 1 to weightCount do (
bone = skinOps.getBoneName skin (skinOps.getVertexWeightBoneID \
skin vidx i) 0
weight = skinOps.getVertexWeight skin vidx i
format " <boneWeight bone=\"%\" weight=\"%\"/>\n" bone \
weight to:outFile
)
)
-- Writes a physiqued vertex's bone weights to the file
fn writePhysiqueBoneWeights node vidx outFile =
(
boneCount = physiqueOps.getVertexBoneCount node vidx
for i = 1 to boneCount do (
bone = physiqueOps.getVertexBone node vidx i
weight = physiqueOps.getVertexWeight node vidx i
format " <boneWeight bone=\"%\" weight=\"%\"/>\n" bone.name \
weight to:outFile
)
)
-- Writes a mesh's vertices to the file
fn writeVertices mesh outFile =
(
for i = 1 to mesh.numfaces do (
face = getFace mesh i
normals = meshop.getFaceRNormals mesh i
local tvface
if mesh.numtverts > 0 do (
tvface = getTVFace mesh i
)
for j = 1 to 3 do (
format " <vertex" to:outFile
writePoint3Attr " location" (getVert mesh face[j]) outFile
local normal
if normals[j] != undefined then (
normal = normals[j]
) else (
normal = getNormal mesh face[j]
)
writePoint3Attr " normal" normal outFile
if tvface != undefined do (
tvert = getTVert mesh tvface[j]
format " tcoords=\"%, %\"" tvert[1] tvert[2] to:outFile
)
if isProperty mesh #skin or isProperty mesh #physique then (
format ">\n" to:outFile
if isProperty mesh #skin then (
writeSkinBoneWeights mesh.skin face[j] outFile
) else (
writePhysiqueBoneWeights mesh face[j] outFile
)
format " </vertex>\n" to:outFile
) else (
format "/>\n" to:outFile
)
)
)
)
-- Writes a node to the file
fn writeNode node outFile =
(
local kind
isMesh = false
if isKindOf node Editable_Mesh and not node.boneEnable then (
isMesh = true
if isProperty node #skin or isProperty node #physique then (
kind = "skinMesh"
) else (
kind = "triMesh"
)
) else (
kind = "node"
)
format " <% name=\"%\"" kind node.name to:outFile
xform = node.transform
if node.parent != undefined do (
xform = xform * (inverse node.parent.transform)
format " parent=\"%\"" node.parent.name to:outFile
)
writePoint3Attr " translation" xform.translationPart \
outFile
writeQuatAttr " rotation" (inverse xform.rotationPart) \
outFile
writePoint3Attr " scale" xform.scalePart outFile
if isMesh then in coordsys local (
writePoint3Attr " offsetTranslation" node.objectOffsetPos outFile
writeQuatAttr " offsetRotation" node.objectOffsetRot outFile
writePoint3Attr " offsetScale" node.objectOffsetScale outFile
format " solid=\"%\"" node.backFaceCull to:outFile
if node.material != undefined and
isKindOf node.material.diffuseMap BitmapTexture do (
format " texture=\"%\"" (filenameFromPath \
node.material.diffuseMap.filename) to:outFile
format " transparent=\"%\"" \
(node.material.diffuseMap.bitmap.hasAlpha or \
node.material.opacityMap != undefined) to:outFile
)
format ">\n" to:outFile
if isProperty node #skin do (
setCommandPanelTaskMode mode:#modify
modPanel.setCurrentObject node.skin node:node
)
writeVertices node outFile
format " </%>\n\n" kind to:outFile
) else (
format "/>\n\n" to:outFile
)
)
-- Writes the model to the named file
fn writeModel fileName =
(
outFile = createfile fileName
format "<?xml version=\"1.0\" standalone=\"yes\"?>\n\n" to:outFile
format "<model>\n\n" to:outFile
objs = objects as array
sels = selection as array
if sels.count > 0 do (
objs = sels
)
for node in objs do in coordsys world (
writeNode node outFile
)
if sels.count > 0 do (
select sels
)
format "</model>\n" to:outFile
close outFile
)
--
-- Main entry point
--
-- Get the target filename
persistent global xmlModelFileName
local fileName
if (xmlModelFileName == undefined) then (
fileName = maxFilePath + (getFilenameFile maxFileName) + ".mxml"
) else (
fileName = xmlModelFileName
)
fileName = getSaveFileName caption:"Select File to Export" \
filename:fileName types:"XML Models (*.MXML)|*.mxml|All|*.*"
if fileName != undefined do (
xmlModelFileName = fileName
writeModel fileName
)
)