-------------------------------------------
Standard tcl script: flattenmovie.tcl
-------------------------------------------

Makes a simple movie of the flattening process.

As with inflatemovie.tcl, this requires that
patches for individual steps in the flattening
process have first been saved with a non-zero
value in:

  csurf -> Preferences -> Expert Preferences
     -> Flatten tab -> write every x iter

before running (re)-flattening with:

  csurf -> MGHTools -> Flatten Surface Patch

There are options to adjust the initial pose and
scale, the total number of steps to use, and
various other parameters (see documentation
inside script).

To kill a running script, click the purple
"RUNNING" button (or kill tksurfer via window
kill buttons, or purple csurf "QuitSURFA"
button). 
