##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: November 2016 # Modified: 2016-11-25/17:55-0500 ##+ # # ReadImage.icn, load an image from file into a window (or texture) # procedure main() w := open("ReadImage", "g", "size=327,420", "canvas=hidden") result := ReadImage(w, "../images/uniconart-orange.png") DrawString(w, 5, 405, "Result from ReadImage: " || image(result)) WSync(w) WriteImage(w, "../images/ReadImage.png") close(w) end