dim grid, color
set grid = ActiveProject.ActiveScene.Root.AddGeometry("Grid", "MeshSurface")
set color = grid.Material.OGLMaterial.Specular
Application.LogMessage "OGL Material specular color: " & color.Red & ", " & color.Green & ", " & color.Blue & ", " & color.Alpha