diff --git a/src/ms/TRAnimationExporter.mcr b/src/ms/TRAnimationExporter.mcr deleted file mode 100644 index 720777183..000000000 --- a/src/ms/TRAnimationExporter.mcr +++ /dev/null @@ -1,98 +0,0 @@ --- --- $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 " \n" to:outFile - ) - - -- Writes a single animation frame - fn writeFrame nodes outFile = ( - format " \n" to:outFile - for node in nodes do in coordsys world ( - writeTransform node outFile - ) - format " \n\n" to:outFile - ) - - -- Writes animation to the named file - fn writeAnimation fileName = - ( - outFile = createfile fileName - format "\n\n" to:outFile - format "\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 "\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 - ) -) diff --git a/src/ms/TRModelExporter.mcr b/src/ms/TRModelExporter.mcr deleted file mode 100644 index f9b02e851..000000000 --- a/src/ms/TRModelExporter.mcr +++ /dev/null @@ -1,192 +0,0 @@ --- --- $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 " \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 " \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 " \n" to:outFile - if isProperty mesh #skin then ( - writeSkinBoneWeights mesh.skin face[j] outFile - ) else ( - writePhysiqueBoneWeights mesh face[j] outFile - ) - format " \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 "\n\n" to:outFile - format "\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 "\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 - ) -)