このマテリアルのディフューズColorを戻します。
dim grid, color
set grid = ActiveProject.ActiveScene.Root.AddGeometry("Grid", "MeshSurface")
set color = grid.Material.OGLMaterial.Diffuse
Application.LogMessage "OGL Material diffuse color: " & color.Red & ", " & color.Green & ", " & color.Blue & ", " & color.Alpha
|