' 
' This example demonstrates how to apply a lens shader to a 
' camera and then iterate over the new shader's parameters
'
NewScene , false
CreateShaderFromPreset "$XSI_DSPRESETS\Shaders\Lens\Fisheye.Preset", "Camera.camera"
SIConnectShaderToCnxPoint "Camera.camera.Fisheye", "Camera.camera.lensshader", False
set oCam = ActiveSceneRoot.FindChild("Camera")
for each oShader in oCam.Shaders
        LogMessage "name of shader: " & oShader.Name
        LogMessage "shader parameters: "
        for each oParam in oShader.Parameters
                LogMessage vbTab & oParam.Name
        next
next
' INFO : name of shader: Fisheye
' INFO : shader parameters: 
' INFO :        Name
' INFO :        bypass
' INFO :        distortion
' INFO :        scale_x
' INFO :        scale_y
' INFO :        scale_uniform