##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:45-0400 ##+ # # Color.icn, demonstrate colour references and settings # procedure main() window := open("Color example", "g", "size=200,110", "canvas=hidden") write(window, Color(window, 1)) | write(window, "no mutable colours") Color(window, 1, "vivid orange") write(window, Color(window, 1)) | { write(window, "still no colour map") write(window) write(window, "but don't despair") write(window, "colour maps have been superseded") write(window, "by display hardware that has") write(window, "all the colours, all the time") } WSync(window) WriteImage(window, "../images/Color.png") close(window) end