' 
' 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