##- # Author: Brian Tiffin # Dedicated to the public domain # # Date started: January 2017 # Modified: 2017-01-09/02:53-0500 ##+ # # WFlush, demonstrate windowing buffer flush # procedure main() w := open("WFlush", "g", "size=40,40", "canvas=hidden") Fg(w, "vivid orange") DrawCircle(w, 20, 20, 18) WFlush(w) Fg(w, "blue") DrawCircle(w, 20, 20, 9, 0.0, &pi) WFlush(w) # save image for the document WriteImage(w, "../images/WFlush.png") close(w) end