Shader.Properties
v4.0
Returns a PropertyCollection containing each Property object installed on the object. See Shader.AddProperty for a list of properties that can be installed on a Shader.
// get accessor PropertyCollection rtn = Shader.Properties; |
'
' This VBScript example demonstrates how to add CustomProperties
' under a Shader.
'
dim oCone, oMaterial, oPhongShader, oPhongPSet, oPhongProperties
NewScene ,false
set oCone = ActiveSceneRoot.AddGeometry( "Cone", "MeshSurface" )
set oMaterial = oCone.AddMaterial( "Phong" )
set oPhongShader = oMaterial.Shaders(0)
set oPhongPSet = oPhongShader.AddProperty( "CustomProperty", ,"ShaderNested" )
oPhongPSet.AddParameter3 "Bar", siInt4
set oPhongPSet = oPhongShader.AddProperty( "CustomProperty", ,"AnotherPSet" )
set oPhongProperties = oPhongShader.Properties
LogMessage "There are " & oPhongProperties.Count & " Properties under " & oPhongShader.FullName
for each oProperty in oPhongProperties
LogMessage oProperty.Name
next
'INFO : "There are 2 Properties under cone.Material.Phong"
'INFO : "ShaderNested"
'INFO : "AnotherPSet"
|