/*

	This example illustrates how to get the active primitive object from an 

	X3DObject object and how to detect if the object supports primitives.

*/

var cone = Application.ActiveSceneRoot.AddGeometry( "Cone", "MeshSurface" );

TestPrimitive( cone ) ;

mynull = Application.ActiveSceneRoot.AddNull( "MyNull" )

TestPrimitive( mynull ) ;

TestPrimitive( Application.ActiveSceneRoot ) ;

function TestPrimitive( in_obj )

{

	if ( in_obj.ActivePrimitive != null )

	{

		Application.LogMessage( "\n\t" +

				"Name: " + in_obj.Name + "\n\t" +

				"Class: " + Application.ClassName(in_obj) + "\n\t" +

				"Type: " + in_obj.Type + "\n\t" +

				"Fullname: " + in_obj.FullName + "\n\t" +

				"Parent: " + in_obj.Parent.Name ) ;

	}

	else

	{

		Application.LogMessage( in_obj + " does not have a primitive" ) ;

	}

}

// Expected results:

//INFO : Sphere object's name: sphere

//INFO : 

//	Name: cone

//	Class: X3DObject

//	Type: polymsh

//	Fullname: cone

//	Parent: Scene_Root

//INFO : 

//	Name: MyNull

//	Class: Null

//	Type: null

//	Fullname: MyNull

//	Parent: Scene_Root

//INFO : Scene_Root does not have a primitive

#

#	This example illustrates how to get the active primitive object from an 

#	X3DObject object and how to detect if the object supports primitives.

#

cone = Application.ActiveSceneRoot.AddGeometry( "Cone", "MeshSurface" )

if cone.ActivePrimitive :

	Application.LogMessage( "\n\tName: " + cone.Name + "\n\tClass: " +

	Application.ClassName(cone) + "\n\tType: " + cone.Type + "\n\tFullname: " +

	cone.FullName + "\n\tParent: " + cone.Parent.Name )

if not Application.ActiveSceneRoot.ActivePrimitive :

	Application.LogMessage( "The SceneRoot does not have a primitive." )

# Expected results:

#INFO : 

#	Name: cone

#	Class: X3DObject

#	Type: polymsh

#	Fullname: cone

#	Parent: Scene_Root

#INFO : The SceneRoot does not have a primitive.

'

'	This example illustrates how to get the active primitive object from an 

'	X3DObject object and how to detect if the object supports primitives.

'

NewScene , false

set cone = Application.ActiveSceneRoot.AddGeometry( "Cone", "MeshSurface" )

if TypeName(cone.ActivePrimitive) <> "Nothing" then

	Application.LogMessage vbTab & "Name: " & vbTab & cone.Name, siComment 

	Application.LogMessage vbTab & "Class: " & vbTab & TypeName(cone), siComment 

	Application.LogMessage vbTab & "Type: " & vbTab & cone.Type, siComment 

	Application.LogMessage vbTab & "FullName: " & vbTab & cone.FullName, siComment 

	Application.LogMessage vbTab & "Parent: " & vbTab & cone.Parent.Name, siComment 

end if

if TypeName(Application.ActiveSceneRoot.ActivePrimitive) = "Nothing" then

	Application.LogMessage "The SceneRoot does not have a primitive.", siComment 

end if

' Expected results:

' 	Name: 	cone

' 	Class: 	X3DObject

' 	Type: 	polymsh

' 	Fullname: 	cone

' 	Parent: 	Scene_Root

' The SceneRoot does not have a primitive.