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