v4.0
オブジェクトに実装されている各Propertyオブジェクトを含むPropertyCollectionを戻します。Shader の下に実装できるプロパティのリストについては、Shader.AddPropertyを参照してください。
'
' 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"
|