##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October, 2016 # Modified: 2017-01-09/02:53-0500 ##+ # # WSync.icn, demonstrate window buffer sync # procedure main() w := open("WSync", "g", "size=40,40", "canvas=hidden") Fg(w, "vivid orange") DrawCircle(w, 20, 20, 18) WSync() Fg(w, "blue") DrawCircle(w, 20, 20, 9, 0.0, &pi) # sync windowing system and discard all pending events WSync(w, "yes") # save image for the document WriteImage(w, "../images/WSync.png") close(w) end