-------------------------------------------
Standard tcl script: explodemovie.tcl
-------------------------------------------

This script re-creates the exploding brain shown
in a talk by Sereno and Dale at SFN in 1992.  The
default parameters are adjusted to explode a
smoothwm surface.

The explosion works by adding a constant outward
force along the perpendicular to each vertex
($mstrength).  Edges are then disconnected when
the stress goes above $stressthresh.  This
creates stress-concentrating fractures.

Running it interactively from the "tcl:" dropdown
in csurf first generates a pop-up to adjust
parameters.  Clicking "RUN SCRIPT" on the pop-up
generates a set of tiff frames (default: 1460) in
the current subject's bitmap directory:

  $SUBJECTS_DIR/$subject/rgb/f%05d.tiff

This is designed to be viewed at 30 fps.
