##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-30/12:19-0400 ##+ # # DrawPoint-3D.icn, demonstrate drawing points in 3D # link ximage procedure main() &window := open("DrawPoint-3D","gl", "bg=white", "fg=orange", "buffer=on", "size=400,200") #, "canvas=hidden") # Some 3D points every x := 0 to 0.3 by 0.05 do every y := 0.1 to 0.3 by 0.1 do every z := -2.0 to -1.8 by 0.005 do DrawPoint(x,y,z) # save image for the document Refresh() WSync() WriteImage("../images/DrawPoint-3D.png") close(&window) end