'
' This example illustrates how to enumerate all parameters under a material and
' any connected shaders.
'
if Selection.Count <> 0 then
	set oObject = Selection(0)
else
	set oRoot = Application.ActiveProject.ActiveScene.Root
	set oObject = oRoot.AddGeometry("Cylinder", "MeshSurface")
	ApplyShader "Material\Constant", oObject
end if
set oMaterial = oObject.Material
' Log material parameters
Application.LogMessage "Material: " & oMaterial.FullName
For each oParam in oMaterial.Parameters
	Application.LogMessage oParam.FullName
Next
' Log shader parameters
For each oShader in oMaterial.Shaders
	Application.LogMessage "Shader: " & oShader.FullName
	For each oParam in oShader.Parameters
		Application.LogMessage oParam.FullName
	Next
Next