##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: October 2016
# Modified: 2016-10-30/02:31-0400
##+
#
# hello-graphics.icn, graphical hello demonstration
#
procedure main()
    if find("graphics", !&features) then stop("no graphics, sorry")
    
    w := open("hello-graphics", "g", "font=12x24", "rows=1",
              "columns=22", "canvas=hidden") |
         stop("no graphics window")

    writes(w, " Hello, graphic world ")

    WSync(w)
    WriteImage(w, "../images/hello-graphics.png")
    close(w)
end