[VBScript]
Set mycol = Server.CreateObject("ImageGlue7.XColor")
mycol.String = "red"
Response.Write("<b>Red decomposes
into</b><br>")
Response.Write("Red = " & mycol.Red & "<br>")
Response.Write("Green = " & mycol.Green & "<br>")
Response.Write("Blue = " & mycol.Blue & "<br>")
mycol.String = "green"
Response.Write("<b>Green decomposes
into</b><br>")
Response.Write("Red = " & mycol.Red & "<br>")
Response.Write("Green = " & mycol.Green & "<br>")
Response.Write("Blue = " & mycol.Blue &
"<br>")
The above produces the following output.
Red decomposes into
Red = 86.83058
Green = 3.434437
Blue = 2.601103
Green decomposes into
Red = 0
Green = 39.48376
Blue = 6.936275
|