'VBScript example showing how the Material Property is a singleton 
set oRoot = application.activeproject.activescene.root
set oGroup = oRoot.addgroup()
set oMaterial = oGroup.AddMaterial("Phong")
if oMaterial.Singleton then
	logmessage "Only one material is allowed per object"
else
	logmessage "Multiple materials are allowed on an object"
end if
'Output of this script:
'INFO : "Only one material is allowed per object"

'VBScript example showing Singleton and Branch values properties of an object
newscene ,false
set oSphere = ActiveSceneRoot.AddGeometry( "Sphere","MeshSurface")
'There are already default properties on any X3DObject, and we can also 
'add another
oSphere.AddProperty "CustomProperty",, "MyCustomParam"
logmessage "Properties of " & oSphere
for each oProp in oSphere.Properties
	logmessage vbTab & oProp.Name & vbLf & _
		vbTab & vbTab & "Singleton: " & oProp.Singleton & vbLf & _
		vbTab & vbTab & "Branch: " & oProp.Branch
next
'Output of this script:
'INFO : "Property info on sphere"
'INFO : "	Kinematics
'		Singleton: False
'		Branch: False"
'INFO : "	Visibility
'		Singleton: True
'		Branch: False"
'INFO : "	Ambient Lighting
'		Singleton: True
'		Branch: True"
'INFO : "	Scene_Material
'		Singleton: True
'		Branch: True"
'INFO : "	Geometry Approximation
'		Singleton: True
'		Branch: True"
'INFO : "	Display
'		Singleton: True
'		Branch: True"
'INFO : "	MyCustomParam
'		Singleton: False
'		Branch: False"