##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: November 2016 # Modified: 2016-11-10/21:40-0500 ##+ # # FillPolygon.icn, demonstrate drawing filled polygons # procedure main() &window := open("FillPolygon", "g", "size=45,30", "canvas=hidden") # a polygon using the procedural apply operator Fg("vivid orange") points := [5,5, 17,17, 5,17, 5,5] FillPolygon!points # save image for the document WSync() WriteImage("../images/FillPolygon.png") close(&window) end