##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:38-0400 ##+ # # Bg.icn, demonstrate background colour settings # procedure main() window := open("Bg example", "g", "size=110,75", "canvas=hidden") write(window, Bg(window)) Bg(window, "vivid orange") write(window, Bg(window)) Bg(window, "10000,20000,30000") write(window, Bg(window)) Bg(window, "transparent green") write(window, Bg(window)) if c := NewColor(window, "40000,50000,60000") then { Bg(window, c) write(window, Bg(window)) } else { Bg(window, "white") write(window, "no mutable colours") } WSync(window) WriteImage(window, "../images/Bg.png") FreeColor(\c) close(window) end