##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:45-0400 ##+ # # ColorValue.icn, demonstrate colour name to value # procedure main() window := open("ColorValue example", "g", "size=240,80", "canvas=hidden") write(window, right("vivid orange is ", 20), ColorValue(window, "vivid orange")) | write(window, "invalid colour name") write(window, right("1,2,3 is ", 20), ColorValue(window, "1,2,3")) | write(window, "invalid colour encoding") write(window, right("#aaaabbbbcccc is ", 20), ColorValue(window, "#aaaabbbbcccc")) | write(window, "invalid colour hex encoding") writes(window, right("made up colour is ", 20)) write(window, ColorValue(window, "made up colour")) | write(window, "invalid colour name") WSync(window) WriteImage(window, "../images/ColorValue.png") close(window) end