-------------------------------------------
Standard tcl script: inflatemovie.tcl
-------------------------------------------

This script can make three different types of
movies of the inflation process.  This script
requires that surfaces for individual steps in
the inflation process have first been saved with
a non-zero value in:

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

before (re)-running one of:

  csurf -> MGHTools -> Smooth(Curv)/Inflate(Sulc)
  csurf -> SubjectTools -> Smooth(Curv)/Inflate(Sulc) (hi-res)

Writing a surface every iteration produces a
series of surfaces like:

  $subject/surf/rh.inflated0000
  $subject/surf/rh.inflated0001
  $subject/surf/rh.inflated0002
  ...

Adjust the value of "skip" in the popup (from
default=0) if some iterations have been skipped.
For example, if a surface is written every 10
iterations, set the value of "skip" to 9.

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).

The three movie loop types are:

 (1) simple -- one frame per inflate step

 (2) frontbak -- dual inflate/deflate loop

   rotate 360
   stop and inflate
   rotate 360
   stop and deflate
   rotate 180
   stop and inflate
   rotate 360
   stop and deflate
   rotate 180        # i.e., back to begin -> loop

 (3) rotpump -- slow rot w/faster inflate/deflate

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