##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:45-0400 ##+ # # colour-sample.icn, a best (bad) guess at a Unicon project colour. # procedure main() &window := open("colour", "g", "size=70,45", "canvas=hidden") colour := "vivid orange" Fg(colour) FillRectangle(5, 5, 60, 35) WSync() WriteImage("../images/colour-sample.png") close(&window) end