/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
:-)