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