' Apply a Material on a cylinder
set root = Application.Activeproject.ActiveScene.Root
set Cyl = root.AddGeometry("Cylinder","MeshSurface")
Cyl.AddMaterial "Phong",,"PhongInNode"
set mat1 = Cyl.Material
mat1.Parameters("name").Value = "MatOnCyl"
mat1.Shaders("PhongInNode").Parameters("diffuse").blue = 0.453
' Create a group containing the Cylinder, apply a material on it.
set aGroup = root.AddGroup( Cyl )
aGroup.AddMaterial "Phong"
set mat2 = aGroup.Material
mat2.Parameters("name").Value = "MatOnGroup"
mat2.Shaders("Phong").Parameters("diffuse").red = 0.031
' Display the Local properties of the cylinder
'   "MatOnCyl" should be returned, but not the Group material "MatOnGroup"
set CylPropColl = Cyl.LocalProperties
logmessage "Local Properties for : " & Cyl
for each aCylProp in CylPropColl
logmessage " > Branch : " & aCylProp.branch & " - " & aCylProp
next