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 applied material of the cylinder
'   the Group material "MatOnGroup" should be returned, but not "MatOnCyl"
logmessage Cyl & " material : " & Cyl.Material