/u/cs426/Examples/Tcl+OpenGL/ex4
, Tcl script
filename ex4
:proc Animate {} { global myGLWin ex4:rotate; $myGLWin swapbuffers; after 150 Animate; };The
after
command invokes the procedure again after
150 milliseconds in this example
:-)