アルファコンポーネント値をDoubleとして戻したり、設定したりします。
set oSpot = GetValue("Scene_Root").AddLightRig("Spot").Light
set oColor = oSpot.OGLLight.Color
Application.LogMessage "color: " & oColor.Red & ", " & oColor.Green & ", " & oColor.Blue & ", " & oColor.Alpha
oColor.Red = 2
oColor.Green = 2
oColor.Blue = 2
oColor.Alpha = 2
Application.LogMessage "color: " & oColor.Red & ", " & oColor.Green & ", " & oColor.Blue & ", " & oColor.Alpha
|