##- # Author: Brian Tiffin # Dedicated to the public domain # # Date started: December 2016 # Modified: 2016-12-22/23:11-0500 ##+ # # PaletteColor.icn, demonstrate drawing image strings # procedure main() &window := open("PaletteColor", "g", "size=85,40", "canvas=hidden") # colour palettes are mapped using character data keys write("PaletteColor(\"c1\", \"9\") is ", PaletteColor("c1", "9")) # save image for the document WSync() WriteImage("../images/PaletteColor.png") close(&window) end