'
' This example shows how to add a CustomProperty
' to a Material with Material.AddProperty
'
dim oCone, oMaterial, oMaterialPSet
NewScene ,false
set oCone = ActiveSceneRoot.AddGeometry( "Cone", "MeshSurface" )
set oMaterial = oCone.AddMaterial( "Phong")
' Annotation is a specific CustomProperty that is shipped with Softimage
set oMaterialPSet = oMaterial.AddProperty( "Annotation",,"MaterialAnnotation" )
oMaterialPSet.Parameters("text").Value = "Annotation under a Material"
' You can access any CustomProperty under the Material using Material.Properties
Application.LogMessage "Contents of annotation: " & oCone.Material.Properties("MaterialAnnotation").Text.Value
'Expected Results:
'INFO : "Contents of annotation: Annotation under a Material"