##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October, 2016 # Modified: 2016-12-22/23:01-0500 ##+ # # MultMatrix.icn, demonstrate matrix transforms # Curerntly a work in progress # link fullimag procedure main() window := open("MultMatrix", "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) Refresh(window) MatrixMode(window, "projection") PushMatrix(window) MultMatrix(window, [[0,0,0,1], [0,0,1,0], [0,1,0,0], [1,0,0,0]]) write(fullimage(PopMatrix(window))) # save image for the document Refresh(window) WSync(window) WriteImage(window, "../images/MultMatrix.png") close(window) end