' 
' This example demonstrates how to create a dynamic shader definition 
' with an input struct parameter and then populate it with some
' sub parameters.
'
set app = Application
set oShaderDef = XSIFactory.CreateShaderDef("MyParser", "MyStructDemo", 1, 0)
oShaderDef.AddShaderFamily "mrTexture"
app.LogMessage "Shader definition name: " & oShaderDef.Name
' Set up shader parameter definition options to use with new input parameter
set oShaderInParamDefOptions = XSIFactory.CreateShaderParamDefOptions()
oShaderInParamDefOptions.SetAnimatable False
oShaderInParamDefOptions.SetTexturable True
oShaderInParamDefOptions.SetInspectable True
oShaderInParamDefOptions.SetShortName "Main Struct"
' Add input parameter to definition
set oInputParams = oShaderDef.InputParamDefs
oInputParams.AddParamDef "main", siShaderDataTypeStructure, oShaderInParamDefOptions
' Now print info to see what we have
for each oShaderInParamDef in oShaderDef.InputParamDefs.Definitions 
        app.LogMessage "Input parameter name: " & oShaderInParamDef.DisplayName
        app.LogMessage vbTab & "ClassName: " & app.ClassName(oShaderInParamDef)
        app.LogMessage vbTab & "DataType: " & oShaderInParamDef.DataType
        if oShaderInParamDef.DataType =  siShaderDataTypeStructure then
                set oSubContainer = oShaderInParamDef.SubParamDefs
                oShaderInParamDefOptions.SetShortName "SubColor 1"
                oSubContainer.AddParamDef "sub1", siShaderDataTypeColor4, oShaderInParamDefOptions
                oShaderInParamDefOptions.SetShortName "SubColor 2"
                oSubContainer.AddParamDef "sub2", siShaderDataTypeString, oShaderInParamDefOptions
                oShaderInParamDefOptions.SetShortName "SubColor 3"
                oSubContainer.AddParamDef "sub3", siShaderDataTypeGradient, oShaderInParamDefOptions
                app.LogMessage vbTab & "Number of sub parameter definitions: " & oShaderInParamDef.SubParamDefs.Definitions.Count
                for each oSubParamDef in oShaderInParamDef.SubParamDefs.Definitions
                        app.LogMessage vbTab & "Sub parameter name: " & oSubParamDef.DisplayName
                        app.LogMessage vbTab & vbTab & "ClassName: " & app.ClassName(oSubParamDef)
                        app.LogMessage vbTab & vbTab & "DataType: " & oSubParamDef.DataType
                next
        end if
next
' Expected result:
' INFO : Shader definition name: MyParser.MyStructDemo.1.0
' INFO : Input parameter name: Main Struct
' INFO :        ClassName: ShaderStructParamDef
' INFO :        DataType: 64
' INFO :        Number of sub parameter definitions: 3
' INFO :        Sub parameter name: SubColor 1
' INFO :                ClassName: ShaderStructParamDef
' INFO :                DataType: 10
' INFO :        Sub parameter name: SubColor 2
' INFO :                ClassName: ShaderParamDef
' INFO :                DataType: 11
' INFO :        Sub parameter name: SubColor 3
' INFO :                ClassName: ShaderStructParamDef
' INFO :                DataType: 18