'

' This example shows how it is possible to create shape animations from the object model.

' Two techniques are used to create the same animation on two polygons

'

dim oGrid1, oGrid2

' Technique one is similar to the process used when interactively 

' saving shape keys - we change the shape of the object and then save a

' shape key

' Create a polygon

set oGrid1 = CreatePrim( "Grid", "MeshSurface" )

SetValue oGrid1 & ".polymsh.geom.subdivu", 1

SetValue oGrid1 & ".polymsh.geom.subdivv", 1

Scale oGrid1, 0.25, 0.25, 0.25, siAbsolute, siParent, siObj, siXYZ

Translate  oGrid1, -2, 0, 0, siRelative, siParent, siObj, siXYZ	

' Our animation will start with the initial shape at frame 1 and

' morph to the second shape until frame 30

dim frameRate, frame1Seconds, frame30Seconds

frameRate = GetValue( "PlayControl.Rate" )	

frame1Seconds = 1 / frameRate

frame30Seconds = 30 / frameRate

' Save the current shape as the reference

' This remembers the locations of each vertex.  This information will

' be all zeros because we haven't moved any vertices and use siShapeLocalReferenceMode

call oGrid1.ActivePrimitive.Geometry.SaveShapeKey( frame1Seconds, -1.0, _

	siShapeLocalReferenceMode, siShapeMixedWeightMode )

' Move some of the points

Translate oGrid1 & ".pnt[0]" , 0, 0, -1, siRelative, siGlobal, siObj, siXYZ

Translate oGrid1 & ".pnt[2]" , 0, 0, 1, siRelative, siGlobal, siObj, siXYZ

Translate oGrid1 & ".pnt[3]" , 0, 0, -1, siRelative, siGlobal, siObj, siXYZ

' Take a second snap shot of the object

call oGrid1.ActivePrimitive.Geometry.SaveShapeKey( frame30Seconds, -1.0, _

	siShapeLocalReferenceMode, siShapeMixedWeightMode )

' Technique two is direct.  We describe the actual positions

' of the vertices for each shape.

set oGrid2 = CreatePrim( "Grid", "MeshSurface" )

SetValue oGrid2 & ".polymsh.geom.subdivu", 1

SetValue oGrid2 & ".polymsh.geom.subdivv", 1

Scale oGrid2, 0.25, 0.25, 0.25, siAbsolute, siParent, siObj, siXYZ

Translate oGrid2, +2, 0, 0, siRelative, siParent, siObj, siXYZ	

' We only specify the vertices that actually move.  In the case of 

' a large object this could save a lot of memory

call oGrid2.ActivePrimitive.Geometry.SaveShapeKey( frame1Seconds, -1.0, _

	siShapeLocalReferenceMode, siShapeMixedWeightMode, ,_

	Array( 0,2,3 ), Array( -4,0,-4,  4,0,-4,  4,0,4) )

call oGrid2.ActivePrimitive.Geometry.SaveShapeKey( frame30Seconds, -1.0, _

	siShapeLocalReferenceMode, siShapeMixedWeightMode, ,_

	Array( 0,2,3 ), Array( -4,0,-8,  4,0,0,  4,0,0) )

' 

' Three cones are created with identical animation

' although they use different Reference Modes to record the shape 

' 

set root = Application.ActiveProject.ActiveScene.Root

set obj = root.AddGeometry( "Cone", "MeshSurface" )

ApplyOp "bend", obj

obj.posz.Value = -3

set geometry = obj.ActivePrimitive.Geometry

' Move the point to 1,1,0 in local mode

set clip = geometry.SaveShapeKey( 1, 1, siShapeLocalReferenceMode, _

	siShapeInstanceOnlyMode, "MyShapeKey", Array(1), Array(1.,1.,0) )

set obj = root.AddGeometry( "Cone", "MeshSurface" )

ApplyOp "bend", obj

set geometry = obj.ActivePrimitive.Geometry

' Move the point to 1,1,0 in absolute mode

set clip = geometry.SaveShapeKey( 1, 1, siShapeAbsoluteReferenceMode, _

	siShapeInstanceOnlyMode, "MyShapeKey", Array(1), Array(1.,1.,0) )

set obj = root.AddGeometry( "Cone", "MeshSurface" )

ApplyOp "bend", obj

obj.posz.value = 3

set geometry = obj.ActivePrimitive.Geometry

' Move the point to 1,1,0 in object mode

set clip = geometry.SaveShapeKey( 1, 1, siShapeObjectReferenceMode, _

	siShapeInstanceOnlyMode, "MyShapeKey", Array(1), Array(1.,1.,0) )

' 

' This example demonstrates how you access the shape information for a particular shape key by looking 

' at the cluster properties which store this data

' 

option explicit

' Set up a little scene

dim oCircle

set oCircle = CreatePrim( "Sphere", "MeshSurface" )

' Move the top and bottom point of the sphere outwards

oCircle.ActivePrimitive.Geometry.SaveShapeKey 0.5, 3.0, _

	siShapeAbsoluteReferenceMode, siShapeInstanceOnlyMode, ,_

	Array( 1, 0 ), Array( 0,6,0,  0,-6,0 )

' Move two different points - this creates a new, independent cluster

' We can use a different reference mode for this, but we still specify the

' point positions in Absolute terms.

oCircle.ActivePrimitive.Geometry.SaveShapeKey 0.8, 1.0, _

	siShapeLocalReferenceMode, siShapeInstanceOnlyMode,, _

	Array( 5, 33 ), Array( -2,0,0, 2,0,0 )

ShowShapeInformation( oCircle )

sub ShowShapeInformation( in_obj )

	dim oClusters, oCluster, oProperties, oProperty, cntFoundShapes

	on error resume next

	set oClusters = in_obj.ShapeAnimatedClusters

	if ( err <> 0 ) then

		Application.LogMessage "Please select a 3D Object"

		exit sub

	end if

	on error goto 0

	Application.LogMessage "Dump of shape key data on object " & in_obj.Fullname

	cntFoundShapes = 0

	' Go through the various clusters on the object

	' (In practice only the Point clusters will have shape keys)

	for each oCluster in oClusters

		' Cluster indices are not the same as the indices on the

		' geometry, but we can easily determine the relationship with

		' this array:		

		dim oClusterElementsCollection, aElements

		set oClusterElementsCollection = oCluster.Elements

		aElements = oClusterElementsCollection.Array  

		' Only search for the shape keys, which have type "clskey"		

		set oProperties = oCluster.LocalProperties.filter( "clskey" )

		for each oProperty in oProperties

			' Found a shape key					

			dim i, XYZArray

			cntFoundShapes = cntFoundShapes + 1

			if InstrRev( oProperty, ".ResultClusterKey" ) <> 0 then

				' There may also be an internal cluster property 

				' called "ResultClusterKey" which stores the 

				' result of blending the various shapes at the 

				' current time						

				Application.LogMessage "Blended shape at this time: " & oProperty

			else

				Application.LogMessage "Shape key: " & oProperty

			end if		

			' The reference mode is available from the KeyType parameter

			dim ReferenceType

			ReferenceType =	oProperty.Parameters("KeyType").Value

			if ( ReferenceType = 0 ) then

				Logmessage "        Uses: Absolute Reference Mode"

			elseif ( ReferenceType = 1 ) then

				Logmessage "        Uses: Local Reference Mode"			

			elseif ( ReferenceType = 2 ) then

				Logmessage "        Uses: Object Reference Mode"

			end if

			' The contents of the cluster can be found in this safearray	

			XYZArray = oProperty.Elements.Array

			For i=0 to UBound(oProperty.Elements.Array,2)

				' Print out the x,y,z values

				LogMessage "        pnt["& aElements( i ) & "] has position (" _ 

					& Round(XYZArray(0,i),3) & "," & Round(XYZArray(1,i),3) & ","_

					& Round(XYZArray(2,i),3) & ")"

			Next		

		next

	next	

	if ( cntFoundShapes = 0 ) then

		LogMessage "There are no shapes on this object"

	end if

end sub