##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-30/12:15-0400 ##+ # # DrawCube.icn, demonstrate drawing a cube # procedure main() window := open("DrawCube", "gl", "bg=black", "buffer=on", "size=400,400", "dim=3")#, "canvas=hidden") WAttrib(window,"light0=on, ambient blue-green","fg=specular white") # A cube DrawCube(window, 0.0, 0.0, -2.0, 0.6) # save image for the document Refresh(window) WSync(window) WriteImage(window, "../images/DrawCube.png") close(window) end