Changeset 2875 for trunk

Timestamp:

Mar 22, 2012 5:17:27 PM (12 years ago)

Author:

ldelgass

Message:

Don't use memset on this pointer -- will blow up if virtual methods are added.
Also formatting cleanups.

Location:

trunk/packages/vizservers/nanovis

Files:

• FlowCmd.cpp (modified) (113 diffs)
• FlowCmd.h (modified) (6 diffs)

trunk/packages/vizservers/nanovis/FlowCmd.cpp

@@ -65 +65 @@
 Rappture::SwitchSpec FlowCmd::_switches[] = {
     {Rappture::SWITCH_BOOLEAN, "-arrows", "boolean",
-        offsetof(FlowValues, showArrows), 0},
+     offsetof(FlowValues, showArrows), 0},
     {Rappture::SWITCH_CUSTOM, "-axis", "axis",
-        offsetof(FlowValues, slicePos.axis), 0, 0, &axisSwitch},
+     offsetof(FlowValues, slicePos.axis), 0, 0, &axisSwitch},
     {Rappture::SWITCH_FLOAT, "-diffuse", "value",
-        offsetof(FlowValues, diffuse), 0},
+     offsetof(FlowValues, diffuse), 0},
     {Rappture::SWITCH_BOOLEAN, "-hide", "boolean",
-        offsetof(FlowValues, isHidden), 0},
+     offsetof(FlowValues, isHidden), 0},
     {Rappture::SWITCH_FLOAT, "-opacity", "value",
-        offsetof(FlowValues, opacity), 0},
+     offsetof(FlowValues, opacity), 0},
     {Rappture::SWITCH_BOOLEAN, "-outline", "boolean",
-        offsetof(FlowValues, showOutline), 0},
+     offsetof(FlowValues, showOutline), 0},
     {Rappture::SWITCH_CUSTOM, "-position", "number",
-        offsetof(FlowValues, slicePos), 0, 0, &positionSwitch},
+     offsetof(FlowValues, slicePos), 0, 0, &positionSwitch},
     {Rappture::SWITCH_BOOLEAN, "-slice", "boolean",
-        offsetof(FlowValues, sliceVisible), 0},
+     offsetof(FlowValues, sliceVisible), 0},
     {Rappture::SWITCH_FLOAT, "-specular", "value",
-        offsetof(FlowValues, specular), 0},
+     offsetof(FlowValues, specular), 0},
     {Rappture::SWITCH_CUSTOM, "-transferfunction", "name",
-        offsetof(FlowValues, tfPtr), 0, 0, &transferFunctionSwitch},
+     offsetof(FlowValues, tfPtr), 0, 0, &transferFunctionSwitch},
     {Rappture::SWITCH_BOOLEAN, "-volume", "boolean",
-        offsetof(FlowValues, showVolume), 0},
+     offsetof(FlowValues, showVolume), 0},
     {Rappture::SWITCH_END}
 };
@@ -91 +91 @@
 Rappture::SwitchSpec FlowParticles::_switches[] = {
     {Rappture::SWITCH_CUSTOM, "-axis", "string",
-        offsetof(FlowParticlesValues, position.axis), 0, 0, &axisSwitch},
+     offsetof(FlowParticlesValues, position.axis), 0, 0, &axisSwitch},
     {Rappture::SWITCH_CUSTOM, "-color", "{r g b a}",
-        offsetof(FlowParticlesValues, color), 0, 0,  &colorSwitch},
+     offsetof(FlowParticlesValues, color), 0, 0,  &colorSwitch},
     {Rappture::SWITCH_BOOLEAN, "-hide", "boolean",
-        offsetof(FlowParticlesValues, isHidden), 0},
+     offsetof(FlowParticlesValues, isHidden), 0},
     {Rappture::SWITCH_CUSTOM, "-position", "number",
-        offsetof(FlowParticlesValues, position), 0, 0, &positionSwitch},
+     offsetof(FlowParticlesValues, position), 0, 0, &positionSwitch},
     {Rappture::SWITCH_FLOAT, "-size", "float",
-        offsetof(FlowParticlesValues, particleSize), 0},
+     offsetof(FlowParticlesValues, particleSize), 0},
     {Rappture::SWITCH_END}
 };
@@ -105 +105 @@
 Rappture::SwitchSpec FlowBox::_switches[] = {
     {Rappture::SWITCH_CUSTOM, "-color", "{r g b a}",
-        offsetof(FlowBoxValues, color), 0, 0,  &colorSwitch},
+     offsetof(FlowBoxValues, color), 0, 0,  &colorSwitch},
     {Rappture::SWITCH_CUSTOM, "-corner1", "{x y z}",
-        offsetof(FlowBoxValues, corner1), 0, 0, &pointSwitch},
+     offsetof(FlowBoxValues, corner1), 0, 0, &pointSwitch},
     {Rappture::SWITCH_CUSTOM, "-corner2", "{x y z}",
-        offsetof(FlowBoxValues, corner2), 0, 0, &pointSwitch},
+     offsetof(FlowBoxValues, corner2), 0, 0, &pointSwitch},
     {Rappture::SWITCH_BOOLEAN, "-hide", "boolean",
-        offsetof(FlowBoxValues, isHidden), 0},
+     offsetof(FlowBoxValues, isHidden), 0},
     {Rappture::SWITCH_FLOAT, "-linewidth", "number",
-        offsetof(FlowBoxValues, lineWidth), 0},
+     offsetof(FlowBoxValues, lineWidth), 0},
     {Rappture::SWITCH_END}
 };
 
-
 static Tcl_ObjCmdProc FlowInstObjCmd;
 static Tcl_CmdDeleteProc FlowInstDeleteProc;
 
-
-FlowParticles::FlowParticles(const char *name, Tcl_HashEntry *hPtr) 
-{
-    memset(this, 0, sizeof(FlowParticles));
-    _name = name;
-    _hashPtr = hPtr;
+FlowParticles::FlowParticles(const char *name, Tcl_HashEntry *hPtr) :
+    _name(name),
+    _hashPtr(hPtr),
+    _rendererPtr(new NvParticleRenderer(NMESH, NMESH))
+{
+    _sv.position.value = 0.0f;
+    _sv.position.flags = RELPOS;
+    _sv.position.axis = 0; // X_AXIS
+    _sv.color.r = _sv.color.g = _sv.color.b = _sv.color.a = 1.0f;
     _sv.isHidden = false;
-    _sv.position.axis = 0;              /* X_AXIS */
-    _sv.position.value = 0.0f;  
-    _sv.position.flags = RELPOS;
-    _sv.color.r = _sv.color.b = _sv.color.g = _sv.color.a = 1.0f;
-    _rendererPtr = new NvParticleRenderer(NMESH, NMESH);
-}
-
-FlowParticles::~FlowParticles(void) 
+    _sv.particleSize = 1.2;
+}
+
+FlowParticles::~FlowParticles() 
 {
     if (_rendererPtr != NULL) {
-        delete _rendererPtr;
+        delete _rendererPtr;
     }
     if (_hashPtr != NULL) {
-        Tcl_DeleteHashEntry(_hashPtr);
+        Tcl_DeleteHashEntry(_hashPtr);
     }
     Rappture::FreeSwitches(_switches, &_sv, 0);
@@ -147 +145 @@
 
 void
-FlowParticles::Render(void) 
+FlowParticles::Render() 
 {
     TRACE("rendering particles %s\n", _name);
@@ -153 +151 @@
     TRACE("rendering particles %s position=%g\n", _name, _sv.position.value);
     TRACE("rendering particles %s position=%g\n", _name, 
-           FlowCmd::GetRelativePosition(&_sv.position));
+          FlowCmd::GetRelativePosition(&_sv.position));
 
     _rendererPtr->setPos(FlowCmd::GetRelativePosition(&_sv.position));
@@ -162 +160 @@
 
 void 
-FlowParticles::Configure(void) 
+FlowParticles::Configure() 
 {
     _rendererPtr->setPos(FlowCmd::GetRelativePosition(&_sv.position));
     _rendererPtr->setColor(Vector4(_sv.color.r, _sv.color.g, _sv.color.b, 
-                _sv.color.a));
+                                   _sv.color.a));
     _rendererPtr->particleSize(_sv.particleSize);
     _rendererPtr->setAxis(_sv.position.axis);
@@ -177 +175 @@
     _hashPtr = hPtr;
     _sv.isHidden = false;
-    _sv.corner1.x = 0.0f;       
-    _sv.corner1.y = 0.0f;       
-    _sv.corner1.z = 0.0f;       
-    _sv.corner2.x = 1.0f;       
-    _sv.corner2.y = 1.0f;       
-    _sv.corner2.z = 1.0f;       
+    _sv.corner1.x = 0.0f;
+    _sv.corner1.y = 0.0f;
+    _sv.corner1.z = 0.0f;
+    _sv.corner2.x = 1.0f;
+    _sv.corner2.y = 1.0f;
+    _sv.corner2.z = 1.0f;
     _sv.lineWidth = 1.2f;
     _sv.color.r = _sv.color.b = _sv.color.g = _sv.color.a = 1.0f;
-
 }
 
@@ -199 +196 @@
     glDisable(GL_TEXTURE_2D);
     glEnable(GL_BLEND);
-    
+
     glPushMatrix();
     Vector3 origin = volPtr->location();
@@ -208 +205 @@
     sy = volPtr->height / (double)volPtr->width;
     if (volPtr->depth > 0.0) {
-        sz = volPtr->depth  / (double)volPtr->width;
+        sz = volPtr->depth  / (double)volPtr->width;
     }
     glScaled(sx, sy, sz);
@@ -218 +215 @@
 
     TRACE("box is %g,%g %g,%g %g,%g\n", 
-          _sv.corner1.x, _sv.corner2.x,
-          _sv.corner1.y, _sv.corner2.y,
-           _sv.corner1.z, _sv.corner2.z);
+          _sv.corner1.x, _sv.corner2.x,
+          _sv.corner1.y, _sv.corner2.y,
+          _sv.corner1.z, _sv.corner2.z);
     TRACE("world is %g,%g %g,%g %g,%g\n", 
-           min.x, max.x, min.y, max.y, min.z, max.z);
+          min.x, max.x, min.y, max.y, min.z, max.z);
 
     float x0, y0, z0, x1, y1, z1;
@@ -228 +225 @@
     x1 = y1 = z1 = 0.0f;
     if (max.y  > min.y) {
-        y0 = (_sv.corner1.y - min.y) / (max.y - min.y);
-        y1 = (_sv.corner2.y - min.y) / (max.y - min.y);
+        y0 = (_sv.corner1.y - min.y) / (max.y - min.y);
+        y1 = (_sv.corner2.y - min.y) / (max.y - min.y);
     }
     if (max.z > min.z) {
-        z0 = (_sv.corner1.z - min.z) / (max.z - min.z);
-        z1 = (_sv.corner2.z - min.z) / (max.z - min.z);
+        z0 = (_sv.corner1.z - min.z) / (max.z - min.z);
+        z1 = (_sv.corner2.z - min.z) / (max.z - min.z);
     }
     if (max.x > min.x) {
-        x0 = (_sv.corner1.x - min.x) / (max.x - min.x);
-        x1 = (_sv.corner2.x - min.x) / (max.x - min.x);
+        x0 = (_sv.corner1.x - min.x) / (max.x - min.x);
+        x1 = (_sv.corner2.x - min.x) / (max.x - min.x);
     }
     TRACE("rendering box %g,%g %g,%g %g,%g\n", x0, x1, y0, y1, z0, z1);
@@ -244 +241 @@
     glBegin(GL_LINE_LOOP); 
     {
-        glVertex3d(x0, y0, z0);
-        glVertex3d(x1, y0, z0);
-        glVertex3d(x1, y1, z0);
-        glVertex3d(x0, y1, z0);
+        glVertex3d(x0, y0, z0);
+        glVertex3d(x1, y0, z0);
+        glVertex3d(x1, y1, z0);
+        glVertex3d(x0, y1, z0);
     }
     glEnd();
     glBegin(GL_LINE_LOOP);
     {
-        glVertex3d(x0, y0, z1);
-        glVertex3d(x1, y0, z1);
-        glVertex3d(x1, y1, z1);
-        glVertex3d(x0, y1, z1);
+        glVertex3d(x0, y0, z1);
+        glVertex3d(x1, y0, z1);
+        glVertex3d(x1, y1, z1);
+        glVertex3d(x0, y1, z1);
     }
     glEnd();
@@ -261 +258 @@
     glBegin(GL_LINE_LOOP);
     {
-        glVertex3d(x0, y0, z0);
-        glVertex3d(x0, y0, z1);
-        glVertex3d(x0, y1, z1);
-        glVertex3d(x0, y1, z0);
+        glVertex3d(x0, y0, z0);
+        glVertex3d(x0, y0, z1);
+        glVertex3d(x0, y1, z1);
+        glVertex3d(x0, y1, z0);
     }
     glEnd();
@@ -270 +267 @@
     glBegin(GL_LINE_LOOP);
     {
-        glVertex3d(x1, y0, z0);
-        glVertex3d(x1, y0, z1);
-        glVertex3d(x1, y1, z1);
-        glVertex3d(x1, y1, z0);
+        glVertex3d(x1, y0, z0);
+        glVertex3d(x1, y0, z1);
+        glVertex3d(x1, y1, z1);
+        glVertex3d(x1, y1, z0);
     }
     glEnd();
@@ -287 +284 @@
 }
 
-
-FlowCmd::FlowCmd(Tcl_Interp *interp, const char *name, Tcl_HashEntry *hPtr)
-{
-    memset(this, 0, sizeof(FlowCmd));
-    _name = name;
-    _interp = interp;
-    _hashPtr = hPtr;
-    _dataPtr = NULL;
+FlowCmd::FlowCmd(Tcl_Interp *interp, const char *name, Tcl_HashEntry *hPtr) :
+    _interp(interp),
+    _hashPtr(hPtr),
+    _name(name),
+    _dataPtr(NULL),
+    _volPtr(NULL),
+    _fieldPtr(NULL)
+{
+    memset(&_sv, 0, sizeof(FlowValues));
     _sv.sliceVisible = 1;
     _sv.tfPtr = NanoVis::get_transfunc("default");
-    _volPtr = NULL;
-    _cmdToken = Tcl_CreateObjCommand(interp, (char *)_name, 
-        (Tcl_ObjCmdProc *)FlowInstObjCmd, this, FlowInstDeleteProc);
+
     Tcl_InitHashTable(&_particlesTable, TCL_STRING_KEYS);
     Tcl_InitHashTable(&_boxTable, TCL_STRING_KEYS);
-}
-
-FlowCmd::~FlowCmd(void)
+
+    _cmdToken = Tcl_CreateObjCommand(_interp, (char *)_name, 
+                                     (Tcl_ObjCmdProc *)FlowInstObjCmd,
+                                     this, FlowInstDeleteProc);
+}
+
+FlowCmd::~FlowCmd()
 {
     Rappture::FreeSwitches(_switches, &_sv, 0);
     if (_hashPtr != NULL) {
-        Tcl_DeleteHashEntry(_hashPtr);
+        Tcl_DeleteHashEntry(_hashPtr);
     }
     if (_fieldPtr != NULL) {
-        delete _fieldPtr;
+        delete _fieldPtr;
     }
     if (_dataPtr != NULL) {
-        delete _dataPtr;
-    }
-     if (_volPtr != NULL) {
-         NanoVis::remove_volume(_volPtr);
-         _volPtr = NULL;
+        delete _dataPtr;
+    }
+    if (_volPtr != NULL) {
+        NanoVis::remove_volume(_volPtr);
+        _volPtr = NULL;
     }
 
@@ -324 +324 @@
     FlowBoxIterator boxIter;
     for (boxPtr = FirstBox(&boxIter); boxPtr != NULL; 
-         boxPtr = NextBox(&boxIter)) {
-        boxPtr->disconnect();
-        delete boxPtr;
-    }   
+         boxPtr = NextBox(&boxIter)) {
+        boxPtr->disconnect();
+        delete boxPtr;
+    }
     FlowParticles *particlesPtr;
     FlowParticlesIterator partIter;
     for (particlesPtr = FirstParticles(&partIter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&partIter)) {
-        particlesPtr->disconnect();
-        delete particlesPtr;
-    }   
+         particlesPtr = NextParticles(&partIter)) {
+        particlesPtr->disconnect();
+        delete particlesPtr;
+    }
     Tcl_DeleteHashTable(&_particlesTable);
     Tcl_DeleteHashTable(&_boxTable);
@@ -340 +340 @@
 
 void
-FlowCmd::ResetParticles(void)
+FlowCmd::ResetParticles()
 {
     FlowParticlesIterator iter;
     FlowParticles *particlesPtr;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&iter)) {
-        particlesPtr->Reset();
+         particlesPtr = NextParticles(&iter)) {
+        particlesPtr->Reset();
     }
 }
 
 void
-FlowCmd::Advect(void)
+FlowCmd::Advect()
 {
     NvVectorField *fieldPtr;
@@ -359 +359 @@
     FlowParticles *particlesPtr;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&iter)) {
-        if (particlesPtr->visible()) {
-            particlesPtr->Advect();
-        }
+         particlesPtr = NextParticles(&iter)) {
+        if (particlesPtr->visible()) {
+            particlesPtr->Advect();
+        }
     }
 }
 
 void
-FlowCmd::Render(void)
+FlowCmd::Render()
 {
     _fieldPtr->active(true);
@@ -374 +374 @@
     FlowParticles *particlesPtr;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL; 
-         particlesPtr = NextParticles(&iter)) {
-        if (particlesPtr->visible()) {
-            particlesPtr->Render();
-        }
+         particlesPtr = NextParticles(&iter)) {
+        if (particlesPtr->visible()) {
+            particlesPtr->Render();
+        }
     }
     TRACE("in Render before boxes %s\n", _name);
@@ -391 +391 @@
     hPtr = Tcl_CreateHashEntry(&_particlesTable, particlesName, &isNew);
     if (!isNew) {
-        Tcl_AppendResult(interp, "particle injection plane \"",
-                         particlesName, "\" already exists.", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "particle injection plane \"",
+                         particlesName, "\" already exists.", (char *)NULL);
+        return TCL_ERROR;
     }
     particlesName = Tcl_GetHashKey(&_particlesTable, hPtr);
@@ -399 +399 @@
     particlesPtr = new FlowParticles(particlesName, hPtr);
     if (particlesPtr == NULL) {
-        Tcl_AppendResult(interp, "can't allocate particle injection plane",
-                (char *)NULL);
-        Tcl_DeleteHashEntry(hPtr);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "can't allocate particle injection plane",
+                         (char *)NULL);
+        Tcl_DeleteHashEntry(hPtr);
+        return TCL_ERROR;
     }
     Tcl_SetHashValue(hPtr, particlesPtr);
@@ -410 +410 @@
 int
 FlowCmd::GetParticles(Tcl_Interp *interp, Tcl_Obj *objPtr, 
-                      FlowParticles **particlesPtrPtr)
+                      FlowParticles **particlesPtrPtr)
 {
     Tcl_HashEntry *hPtr;
     hPtr = Tcl_FindHashEntry(&_particlesTable, Tcl_GetString(objPtr));
     if (hPtr == NULL) {
-        if (interp != NULL) {
-            Tcl_AppendResult(interp, "can't find a particle injection plane \"",
-                         Tcl_GetString(objPtr), "\"", (char *)NULL);
-        }
-        return TCL_ERROR;
+        if (interp != NULL) {
+            Tcl_AppendResult(interp, "can't find a particle injection plane \"",
+                             Tcl_GetString(objPtr), "\"", (char *)NULL);
+        }
+        return TCL_ERROR;
     }
     *particlesPtrPtr = (FlowParticles *)Tcl_GetHashValue(hPtr);
@@ -429 +429 @@
 {
     iterPtr->hashPtr = Tcl_FirstHashEntry(&_particlesTable, 
-        &iterPtr->hashSearch);
+                                          &iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowParticles *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -440 +440 @@
 {
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     iterPtr->hashPtr = Tcl_NextHashEntry(&iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowParticles *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -456 +456 @@
     hPtr = Tcl_CreateHashEntry(&_boxTable, Tcl_GetString(objPtr), &isNew);
     if (!isNew) {
-        Tcl_AppendResult(interp, "box \"", Tcl_GetString(objPtr),
-                "\" already exists in flow \"", name(), "\"", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "box \"", Tcl_GetString(objPtr),
+                         "\" already exists in flow \"", name(), "\"", (char *)NULL);
+        return TCL_ERROR;
     }
     const char *boxName;
@@ -465 +465 @@
     boxPtr = new FlowBox(boxName, hPtr);
     if (boxPtr == NULL) {
-        Tcl_AppendResult(interp, "can't allocate box \"", boxName, "\"",
-                         (char *)NULL);
-        Tcl_DeleteHashEntry(hPtr);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "can't allocate box \"", boxName, "\"",
+                         (char *)NULL);
+        Tcl_DeleteHashEntry(hPtr);
+        return TCL_ERROR;
     }
     Tcl_SetHashValue(hPtr, boxPtr);
@@ -480 +480 @@
     hPtr = Tcl_FindHashEntry(&_boxTable, Tcl_GetString(objPtr));
     if (hPtr == NULL) {
-        if (interp != NULL) {
-            Tcl_AppendResult(interp, "can't find a box \"", 
-                Tcl_GetString(objPtr), "\" in flow \"", name(), "\"", 
-                (char *)NULL);
-        }
-        return TCL_ERROR;
+        if (interp != NULL) {
+            Tcl_AppendResult(interp, "can't find a box \"", 
+                             Tcl_GetString(objPtr), "\" in flow \"", name(), "\"", 
+                             (char *)NULL);
+        }
+        return TCL_ERROR;
     }
     *boxPtrPtr = (FlowBox *)Tcl_GetHashValue(hPtr);
@@ -496 +496 @@
     iterPtr->hashPtr = Tcl_FirstHashEntry(&_boxTable, &iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowBox *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -505 +505 @@
 {
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     iterPtr->hashPtr = Tcl_NextHashEntry(&iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowBox *)Tcl_GetHashValue(iterPtr->hashPtr);
 }
 
-
 void
-FlowCmd::InitializeParticles(void)
+FlowCmd::InitializeParticles()
 {
     FlowParticles *particlesPtr;
     FlowParticlesIterator iter;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&iter)) {
-        particlesPtr->Initialize();
-    }   
+         particlesPtr = NextParticles(&iter)) {
+        particlesPtr->Initialize();
+    }
 }
 
@@ -530 +529 @@
 {
     if (_volPtr != NULL) {
-        TRACE("from ScaleVectorField volId=%s\n", _volPtr->name());
-        NanoVis::remove_volume(_volPtr);
-        _volPtr = NULL;
+        TRACE("from ScaleVectorField volId=%s\n", _volPtr->name());
+        NanoVis::remove_volume(_volPtr);
+        _volPtr = NULL;
     }
     float *vdata;
     vdata = GetScaledVector();
     if (vdata == NULL) {
-        return false;
+        return false;
     }
     Volume *volPtr;
@@ -543 +542 @@
     delete [] vdata;
     if (volPtr == NULL) {
-        return false;
+        return false;
     }
     _volPtr = volPtr;
@@ -549 +548 @@
     // Remove the associated vector field.
     if (_fieldPtr != NULL) {
-        delete _fieldPtr;
+        delete _fieldPtr;
     }
     _fieldPtr = new NvVectorField();
     if (_fieldPtr == NULL) {
-        return false;
+        return false;
     }
 
@@ -580 +579 @@
                            1.0f / _volPtr->aspect_ratio_depth,
                            _volPtr->wAxis.max());
-        SetCurrentPosition();
-        SetAxis();
-        SetActive();
+        SetCurrentPosition();
+        SetAxis();
+        SetActive();
     }
 
@@ -594 +593 @@
                         //,volPtr->wAxis.max()
                         );
-        TRACE("Arrows enabled set to %d\n", _sv.showArrows);
-        NanoVis::velocityArrowsSlice->axis(_sv.slicePos.axis);
-        NanoVis::velocityArrowsSlice->slicePos(_sv.slicePos.value);
-        NanoVis::velocityArrowsSlice->enabled(_sv.showArrows);
+        TRACE("Arrows enabled set to %d\n", _sv.showArrows);
+        NanoVis::velocityArrowsSlice->axis(_sv.slicePos.axis);
+        NanoVis::velocityArrowsSlice->slicePos(_sv.slicePos.value);
+        NanoVis::velocityArrowsSlice->enabled(_sv.showArrows);
     }
     FlowParticles *particlesPtr;
     FlowParticlesIterator partIter;
     for (particlesPtr = FirstParticles(&partIter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&partIter)) {
-        particlesPtr->SetVectorField(_volPtr);
-    }   
+         particlesPtr = NextParticles(&partIter)) {
+        particlesPtr->SetVectorField(_volPtr);
+    }
     return true;
 }
 
 void
-FlowCmd::RenderBoxes(void)
+FlowCmd::RenderBoxes()
 {
     FlowBoxIterator iter;
     FlowBox *boxPtr;
     for (boxPtr = FirstBox(&iter); boxPtr != NULL; boxPtr = NextBox(&iter)) {
-        TRACE("found box %s\n", boxPtr->name());
-        if (boxPtr->visible()) {
-            boxPtr->Render(_volPtr);
-        }
+        TRACE("found box %s\n", boxPtr->name());
+        if (boxPtr->visible()) {
+            boxPtr->Render(_volPtr);
+        }
     }
 }
 
 float *
-FlowCmd::GetScaledVector(void)
+FlowCmd::GetScaledVector()
 {
     assert(_dataPtr->nComponents() == 3);
@@ -628 +627 @@
     float *data = new float[n];
     if (data == NULL) {
-        return NULL;
+        return NULL;
     }
     memset(data, 0, sizeof(float) * n);
@@ -634 +633 @@
     const float *values = _dataPtr->values();
     for (size_t iz=0; iz < _dataPtr->zNum(); iz++) {
-        for (size_t iy=0; iy < _dataPtr->yNum(); iy++) {
-            for (size_t ix=0; ix < _dataPtr->xNum(); ix++) {
-                double vx, vy, vz, vm;
-                vx = values[0];
-                vy = values[1];
-                vz = values[2];
-                vm = sqrt(vx*vx + vy*vy + vz*vz);
-                destPtr[0] = vm / NanoVis::magMax; 
-                destPtr[1] = vx /(2.0*NanoVis::magMax) + 0.5; 
-                destPtr[2] = vy /(2.0*NanoVis::magMax) + 0.5; 
-                destPtr[3] = vz /(2.0*NanoVis::magMax) + 0.5; 
-                values += 3;
-                destPtr += 4;
-            }
-        }
+        for (size_t iy=0; iy < _dataPtr->yNum(); iy++) {
+            for (size_t ix=0; ix < _dataPtr->xNum(); ix++) {
+                double vx, vy, vz, vm;
+                vx = values[0];
+                vy = values[1];
+                vz = values[2];
+                vm = sqrt(vx*vx + vy*vy + vz*vz);
+                destPtr[0] = vm / NanoVis::magMax; 
+                destPtr[1] = vx /(2.0*NanoVis::magMax) + 0.5; 
+                destPtr[2] = vy /(2.0*NanoVis::magMax) + 0.5; 
+                destPtr[3] = vz /(2.0*NanoVis::magMax) + 0.5; 
+                values += 3;
+                destPtr += 4;
+            }
+        }
     }
     return data;
@@ -659 +658 @@
 
     volPtr = NanoVis::load_volume(_name, _dataPtr->xNum(), _dataPtr->yNum(), 
-                                  _dataPtr->zNum(), 4, data, 
-                                  NanoVis::magMin, NanoVis::magMax, 0);
+                                  _dataPtr->zNum(), 4, data, 
+                                  NanoVis::magMin, NanoVis::magMax, 0);
     volPtr->xAxis.SetRange(_dataPtr->xMin(), _dataPtr->xMax());
     volPtr->yAxis.SetRange(_dataPtr->yMin(), _dataPtr->yMax());
@@ -669 +668 @@
     Vector3 physicalMax(NanoVis::xMax, NanoVis::yMax, NanoVis::zMax);
     TRACE("min=%g %g %g max=%g %g %g mag=%g %g\n", 
-            NanoVis::xMin, NanoVis::yMin, NanoVis::zMin,
-            NanoVis::xMax, NanoVis::yMax, NanoVis::zMax,
-           NanoVis::magMin, NanoVis::magMax);
+          NanoVis::xMin, NanoVis::yMin, NanoVis::zMin,
+          NanoVis::xMax, NanoVis::yMax, NanoVis::zMax,
+          NanoVis::magMin, NanoVis::magMax);
     volPtr->setPhysicalBBox(physicalMin, physicalMax);
     //volPtr->set_n_slice(256 - _volIndex);
@@ -700 +699 @@
 }
 
-
 static int
 FlowDataFileOp(ClientData clientData, Tcl_Interp *interp, int objc,
-               Tcl_Obj *const *objv)
+               Tcl_Obj *const *objv)
 {
     Rappture::Outcome result;
@@ -716 +714 @@
     }
     if ((nComponents < 1) || (nComponents > 4)) {
-        Tcl_AppendResult(interp, "bad # of components \"", 
-                         Tcl_GetString(objv[4]), "\"", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad # of components \"", 
+                         Tcl_GetString(objv[4]), "\"", (char *)NULL);
+        return TCL_ERROR;
     }
     Rappture::Buffer buf;
     if (!buf.load(result, fileName)) {
-        Tcl_AppendResult(interp, "can't load data from \"", fileName, "\": ",
-                         result.remark(), (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "can't load data from \"", fileName, "\": ",
+                         result.remark(), (char *)NULL);
+        return TCL_ERROR;
     }
 
@@ -733 +731 @@
     char *bytes = (char *)buf.bytes();
     if ((length > 4) && (strncmp(bytes, "<DX>", 4) == 0)) {
-        if (!dataPtr->ImportDx(result, nComponents, length-4, bytes+4)) {
-            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
-            delete dataPtr;
-            return TCL_ERROR;
-        }
+        if (!dataPtr->ImportDx(result, nComponents, length-4, bytes+4)) {
+            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
+            delete dataPtr;
+            return TCL_ERROR;
+        }
     } else if ((length > 10) && (strncmp(bytes, "unirect3d ", 10) == 0)) {
-        if (dataPtr->ParseBuffer(interp, buf) != TCL_OK) {
-            delete dataPtr;
-            return TCL_ERROR;
-        }
+        if (dataPtr->ParseBuffer(interp, buf) != TCL_OK) {
+            delete dataPtr;
+            return TCL_ERROR;
+        }
     } else if ((length > 10) && (strncmp(bytes, "unirect2d ", 10) == 0)) {
-        Rappture::Unirect2d *u2dPtr;
-        u2dPtr = new Rappture::Unirect2d(nComponents);
-        if (u2dPtr->ParseBuffer(interp, buf) != TCL_OK) {
-            delete u2dPtr;
-            return TCL_ERROR;
-        }
-        dataPtr->Convert(u2dPtr);
-        delete u2dPtr;
+        Rappture::Unirect2d *u2dPtr;
+        u2dPtr = new Rappture::Unirect2d(nComponents);
+        if (u2dPtr->ParseBuffer(interp, buf) != TCL_OK) {
+            delete u2dPtr;
+            return TCL_ERROR;
+        }
+        dataPtr->Convert(u2dPtr);
+        delete u2dPtr;
     } else {
-        TRACE("header is %.14s\n", buf.bytes());
-        if (!dataPtr->ImportDx(result, nComponents, length, bytes)) {
-            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
-            delete dataPtr;
-            return TCL_ERROR;
-        }
+        TRACE("header is %.14s\n", buf.bytes());
+        if (!dataPtr->ImportDx(result, nComponents, length, bytes)) {
+            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
+            delete dataPtr;
+            return TCL_ERROR;
+        }
     }
     if (dataPtr->nValues() == 0) {
-        delete dataPtr;
-        Tcl_AppendResult(interp, "no data found in \"", fileName, "\"",
-                         (char *)NULL);
-        return TCL_ERROR;
+        delete dataPtr;
+        Tcl_AppendResult(interp, "no data found in \"", fileName, "\"",
+                         (char *)NULL);
+        return TCL_ERROR;
     }
     flowPtr->data(dataPtr);
@@ -771 +769 @@
 }
 
-/*
+/**
  * $flow data follows nbytes nComponents
  */
 static int
 FlowDataFollowsOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                    Tcl_Obj *const *objv)
+                  Tcl_Obj *const *objv)
 {
     Rappture::Outcome result;
@@ -784 +782 @@
     int nBytes;
     if (Tcl_GetIntFromObj(interp, objv[3], &nBytes) != TCL_OK) {
-        ERROR("Bad nBytes \"%s\"\n", Tcl_GetString(objv[3]));
+        ERROR("Bad nBytes \"%s\"\n", Tcl_GetString(objv[3]));
         return TCL_ERROR;
     }
     if (nBytes <= 0) {
-        Tcl_AppendResult(interp, "bad # bytes request \"", 
-                Tcl_GetString(objv[3]), "\" for \"data follows\"", (char *)NULL);
-        ERROR("Bad nbytes %d\n", nBytes);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad # bytes request \"", 
+                         Tcl_GetString(objv[3]), "\" for \"data follows\"", (char *)NULL);
+        ERROR("Bad nbytes %d\n", nBytes);
+        return TCL_ERROR;
     }
     int nComponents;
     if (Tcl_GetIntFromObj(interp, objv[4], &nComponents) != TCL_OK) {
-        ERROR("Bad # of components \"%s\"\n", Tcl_GetString(objv[4]));
+        ERROR("Bad # of components \"%s\"\n", Tcl_GetString(objv[4]));
         return TCL_ERROR;
     }
     if (nComponents <= 0) {
-        Tcl_AppendResult(interp, "bad # of components request \"", 
-                Tcl_GetString(objv[4]), "\" for \"data follows\"", (char *)NULL);
-        ERROR("Bad # of components %d\n", nComponents);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad # of components request \"", 
+                         Tcl_GetString(objv[4]), "\" for \"data follows\"", (char *)NULL);
+        ERROR("Bad # of components %d\n", nComponents);
+        return TCL_ERROR;
     }
     Rappture::Buffer buf;
@@ -816 +814 @@
     char *bytes = (char *)buf.bytes();
     if ((length > 4) && (strncmp(bytes, "<DX>", 4) == 0)) {
-        if (!dataPtr->ImportDx(result, nComponents, length - 4, bytes + 4)) {
-            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
-            delete dataPtr;
-            return TCL_ERROR;
-        }
+        if (!dataPtr->ImportDx(result, nComponents, length - 4, bytes + 4)) {
+            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
+            delete dataPtr;
+            return TCL_ERROR;
+        }
     } else if ((length > 10) && (strncmp(bytes, "unirect3d ", 10) == 0)) {
-        if (dataPtr->ParseBuffer(interp, buf) != TCL_OK) {
-            delete dataPtr;
-            return TCL_ERROR;
-        }
+        if (dataPtr->ParseBuffer(interp, buf) != TCL_OK) {
+            delete dataPtr;
+            return TCL_ERROR;
+        }
     } else if ((length > 10) && (strncmp(bytes, "unirect2d ", 10) == 0)) {
-        Rappture::Unirect2d *u2dPtr;
-        u2dPtr = new Rappture::Unirect2d(nComponents);
-        if (u2dPtr->ParseBuffer(interp, buf) != TCL_OK) {
-            delete u2dPtr;
-            return TCL_ERROR;
-        }
-        dataPtr->Convert(u2dPtr);
-        delete u2dPtr;
+        Rappture::Unirect2d *u2dPtr;
+        u2dPtr = new Rappture::Unirect2d(nComponents);
+        if (u2dPtr->ParseBuffer(interp, buf) != TCL_OK) {
+            delete u2dPtr;
+            return TCL_ERROR;
+        }
+        dataPtr->Convert(u2dPtr);
+        delete u2dPtr;
     } else {
-        TRACE("header is %.14s\n", buf.bytes());
-        if (!dataPtr->ImportDx(result, nComponents, length, bytes)) {
-            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
-            delete dataPtr;
-            return TCL_ERROR;
-        }
+        TRACE("header is %.14s\n", buf.bytes());
+        if (!dataPtr->ImportDx(result, nComponents, length, bytes)) {
+            Tcl_AppendResult(interp, result.remark(), (char *)NULL);
+            delete dataPtr;
+            return TCL_ERROR;
+        }
     }
     if (dataPtr->nValues() == 0) {
-        delete dataPtr;
-        Tcl_AppendResult(interp, "no data found in stream", (char *)NULL);
-        return TCL_ERROR;
+        delete dataPtr;
+        Tcl_AppendResult(interp, "no data found in stream", (char *)NULL);
+        return TCL_ERROR;
     }
     flowPtr->data(dataPtr);
     {
         char info[1024];
-        ssize_t nWritten;
-        size_t length;
+        ssize_t nWritten;
+        size_t length;
 
         length = sprintf(info, "nv>data tag %s min %g max %g\n",
-                flowPtr->name(), dataPtr->magMin(), dataPtr->magMax());
+                         flowPtr->name(), dataPtr->magMin(), dataPtr->magMax());
         nWritten  = write(1, info, length);
-        assert(nWritten == (ssize_t)strlen(info));
+        assert(nWritten == (ssize_t)strlen(info));
     }
     NanoVis::EventuallyRedraw(NanoVis::MAP_FLOWS);
@@ -871 +869 @@
 static int
 FlowDataOp(ClientData clientData, Tcl_Interp *interp, int objc,
-           Tcl_Obj *const *objv)
+           Tcl_Obj *const *objv)
 {
     Tcl_ObjCmdProc *proc;
@@ -887 +885 @@
 {
     if (posPtr->flags == RELPOS) {
-        return posPtr->value;
+        return posPtr->value;
     }
     switch (posPtr->axis) {
     case AXIS_X:  
-        return (posPtr->value - NanoVis::xMin) / 
-            (NanoVis::xMax - NanoVis::xMin); 
+        return (posPtr->value - NanoVis::xMin) / 
+            (NanoVis::xMax - NanoVis::xMin); 
     case AXIS_Y:  
-        return (posPtr->value - NanoVis::yMin) / 
-            (NanoVis::yMax - NanoVis::yMin); 
+        return (posPtr->value - NanoVis::yMin) / 
+            (NanoVis::yMax - NanoVis::yMin); 
     case AXIS_Z:  
-        return (posPtr->value - NanoVis::zMin) / 
-            (NanoVis::zMax - NanoVis::zMin); 
+        return (posPtr->value - NanoVis::zMin) / 
+            (NanoVis::zMax - NanoVis::zMin); 
     }
     return 0.0;
@@ -904 +902 @@
 
 float
-FlowCmd::GetRelativePosition(void) 
+FlowCmd::GetRelativePosition() 
 {
     return FlowCmd::GetRelativePosition(&_sv.slicePos);
@@ -912 +910 @@
 
 void
-NanoVis::InitFlows(void) 
+NanoVis::InitFlows() 
 {
     Tcl_InitHashTable(&flowTable, TCL_STRING_KEYS);
@@ -922 +920 @@
     iterPtr->hashPtr = Tcl_FirstHashEntry(&flowTable, &iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowCmd *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -931 +929 @@
 {
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     iterPtr->hashPtr = Tcl_NextHashEntry(&iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowCmd *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -946 +944 @@
     hPtr = Tcl_FindHashEntry(&flowTable, Tcl_GetString(objPtr));
     if (hPtr == NULL) {
-        if (interp != NULL) {
-            Tcl_AppendResult(interp, "can't find a flow \"", 
-                             Tcl_GetString(objPtr), "\"", (char *)NULL);
-        }
-        return TCL_ERROR;
+        if (interp != NULL) {
+            Tcl_AppendResult(interp, "can't find a flow \"", 
+                             Tcl_GetString(objPtr), "\"", (char *)NULL);
+        }
+        return TCL_ERROR;
     }
     *flowPtrPtr = (FlowCmd *)Tcl_GetHashValue(hPtr);
@@ -965 +963 @@
     hPtr = Tcl_CreateHashEntry(&flowTable, name, &isNew);
     if (!isNew) {
-        Tcl_AppendResult(interp, "flow \"", name, "\" already exists.",
-                         (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "flow \"", name, "\" already exists.",
+                         (char *)NULL);
+        return TCL_ERROR;
     }
     Tcl_CmdInfo cmdInfo;
     if (Tcl_GetCommandInfo(interp, name, &cmdInfo)) {
-        Tcl_AppendResult(interp, "an another command \"", name, 
-                         "\" already exists.", (char *)NULL);
-        return TCL_ERROR;
-    }   
+        Tcl_AppendResult(interp, "an another command \"", name, 
+                         "\" already exists.", (char *)NULL);
+        return TCL_ERROR;
+    }
     FlowCmd *flowPtr;
     name = Tcl_GetHashKey(&flowTable, hPtr);
     flowPtr = new FlowCmd(interp, name, hPtr);
     if (flowPtr == NULL) {
-        Tcl_AppendResult(interp, "can't allocate a flow object \"", name, 
-                         "\"", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "can't allocate a flow object \"", name, 
+                         "\"", (char *)NULL);
+        return TCL_ERROR;
     }
     Tcl_SetHashValue(hPtr, flowPtr);
@@ -993 +991 @@
     FlowIterator iter;
     for (flowPtr = FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NextFlow(&iter)) {
-        flowPtr->disconnect();          /* Don't disrupt the hash walk */
-        Tcl_DeleteCommand(interp, flowPtr->name());
+         flowPtr = NextFlow(&iter)) {
+        flowPtr->disconnect();                /* Don't disrupt the hash walk */
+        Tcl_DeleteCommand(interp, flowPtr->name());
     }
     Tcl_DeleteHashTable(&flowTable);
@@ -1001 +999 @@
 
 bool
-NanoVis::MapFlows(void)
+NanoVis::MapFlows()
 {
     flags &= ~MAP_FLOWS;
@@ -1007 +1005 @@
 
     /* 
-     * Step 1.  Get the overall min and max magnitudes of all the 
-     *          flow vectors.
+     * Step 1. Get the overall min and max magnitudes of all the 
+     *         flow vectors.
      */
     magMin = DBL_MAX, magMax = -DBL_MAX;
@@ -1015 +1013 @@
     FlowIterator iter;
     for (flowPtr = FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NextFlow(&iter)) {
-        double min, max;
-        if (!flowPtr->isDataLoaded()) {
-            continue;
-        }
-        Rappture::Unirect3d *dataPtr;
-        dataPtr = flowPtr->data();
-        min = dataPtr->magMin();
-        max = dataPtr->magMax();
-        if (min < magMin) {
-            magMin = min;
-        } 
-        if (max > magMax) {
-            magMax = max;
-        }
-        if (dataPtr->xMin() < xMin) {
-            xMin = dataPtr->xMin();
-        }
-        if (dataPtr->yMin() < yMin) {
-            yMin = dataPtr->yMin();
-        }
-        if (dataPtr->zMin() < zMin) {
-            zMin = dataPtr->zMin();
-        }
-        if (dataPtr->xMax() > xMax) {
-            xMax = dataPtr->xMax();
-        }
-        if (dataPtr->yMax() > yMax) {
-            yMax = dataPtr->yMax();
-        }
-        if (dataPtr->zMax() > zMax) {
-            zMax = dataPtr->zMax();
-        }
+         flowPtr = NextFlow(&iter)) {
+        double min, max;
+        if (!flowPtr->isDataLoaded()) {
+            continue;
+        }
+        Rappture::Unirect3d *dataPtr;
+        dataPtr = flowPtr->data();
+        min = dataPtr->magMin();
+        max = dataPtr->magMax();
+        if (min < magMin) {
+            magMin = min;
+        } 
+        if (max > magMax) {
+            magMax = max;
+        }
+        if (dataPtr->xMin() < xMin) {
+            xMin = dataPtr->xMin();
+        }
+        if (dataPtr->yMin() < yMin) {
+            yMin = dataPtr->yMin();
+        }
+        if (dataPtr->zMin() < zMin) {
+            zMin = dataPtr->zMin();
+        }
+        if (dataPtr->xMax() > xMax) {
+            xMax = dataPtr->xMax();
+        }
+        if (dataPtr->yMax() > yMax) {
+            yMax = dataPtr->yMax();
+        }
+        if (dataPtr->zMax() > zMax) {
+            zMax = dataPtr->zMax();
+        }
     }
     TRACE("MapFlows magMin=%g magMax=%g\n", NanoVis::magMin, NanoVis::magMax);
 
     /* 
-     * Step 2.  Generate the vector field from each data set. 
+     * Step 2. Generate the vector field from each data set. 
      */
     for (flowPtr = FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NextFlow(&iter)) {
-        if (!flowPtr->isDataLoaded()) {
-            continue;                   // Flow exists, but no data has
-                                        // been loaded yet.
-        }
-        if (flowPtr->visible()) {
-            flowPtr->InitializeParticles();
-        }
-        if (!flowPtr->ScaleVectorField()) {
-            return false;
-        }
-        // FIXME: This doesn't work when there is more than one flow.
-        licRenderer->set_offset(flowPtr->GetRelativePosition());
+         flowPtr = NextFlow(&iter)) {
+        if (!flowPtr->isDataLoaded()) {
+            continue; // Flow exists, but no data has been loaded yet.
+        }
+        if (flowPtr->visible()) {
+            flowPtr->InitializeParticles();
+        }
+        if (!flowPtr->ScaleVectorField()) {
+            return false;
+        }
+        // FIXME: This doesn't work when there is more than one flow.
+        licRenderer->set_offset(flowPtr->GetRelativePosition());
         NanoVis::velocityArrowsSlice->slicePos(flowPtr->GetRelativePosition());
         
@@ -1076 +1073 @@
 
 void
-NanoVis::RenderFlows(void)
+NanoVis::RenderFlows()
 {
     FlowCmd *flowPtr;
     FlowIterator iter;
     for (flowPtr = FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NextFlow(&iter)) {
-        if ((flowPtr->isDataLoaded()) && (flowPtr->visible())) {
-            flowPtr->Render();
-        }
+         flowPtr = NextFlow(&iter)) {
+        if ((flowPtr->isDataLoaded()) && (flowPtr->visible())) {
+            flowPtr->Render();
+        }
     }
     flags &= ~REDRAW_PENDING;
@@ -1090 +1087 @@
 
 void
-NanoVis::ResetFlows(void)
+NanoVis::ResetFlows()
 {
     FlowCmd *flowPtr;
@@ -1096 +1093 @@
 
     if (licRenderer->active()) {
-        NanoVis::licRenderer->reset();
+        NanoVis::licRenderer->reset();
     }
     for (flowPtr = FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NextFlow(&iter)) {
-        if ((flowPtr->isDataLoaded()) && (flowPtr->visible())) {
-            flowPtr->ResetParticles();
-        }
+         flowPtr = NextFlow(&iter)) {
+        if ((flowPtr->isDataLoaded()) && (flowPtr->visible())) {
+            flowPtr->ResetParticles();
+        }
     }
 }    
 
 void
-NanoVis::AdvectFlows(void)
+NanoVis::AdvectFlows()
 {
     FlowCmd *flowPtr;
     FlowIterator iter;
     for (flowPtr = FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NextFlow(&iter)) {
-        if ((flowPtr->isDataLoaded()) && (flowPtr->visible())) {
-            flowPtr->Advect();
-        }
+         flowPtr = NextFlow(&iter)) {
+        if ((flowPtr->isDataLoaded()) && (flowPtr->visible())) {
+            flowPtr->Advect();
+        }
     }
 }    
 
-/*
- *---------------------------------------------------------------------------
+/**
+ * \brief Convert a Tcl_Obj representing the label of a child node into its
+ * integer node id.
  *
- * AxisSwitchProc --
+ * \param clientData Flag indicating if the node is considered before or 
+ * after the insertion position.
+ * \param interp Interpreter to send results back to
+ * \param switchName Not used
+ * \param objPtr String representation
+ * \param record Structure record
+ * \param offset Not used
+ * \param flags Not used
  *
- *      Convert a Tcl_Obj representing the label of a child node into its
- *      integer node id.
- *
- * Results:
- *      The return value is a standard Tcl result.
- *
- *---------------------------------------------------------------------------
+ * \return The return value is a standard Tcl result.
  */
-/*ARGSUSED*/
-static int
-AxisSwitchProc(
-    ClientData clientData,      /* Flag indicating if the node is considered
-                                 * before or after the insertion position. */
-    Tcl_Interp *interp,         /* Interpreter to send results back to */
-    const char *switchName,     /* Not used. */
-    Tcl_Obj *objPtr,            /* String representation */
-    char *record,               /* Structure record */
-    int offset,                 /* Not used. */
-    int flags)                  /* Not used. */
+static int
+AxisSwitchProc(ClientData clientData, Tcl_Interp *interp,
+               const char *switchName, Tcl_Obj *objPtr,
+               char *record, int offset, int flags)
 {
     const char *string = Tcl_GetString(objPtr);
     if (string[1] == '\0') {
-        FlowCmd::SliceAxis *axisPtr = (FlowCmd::SliceAxis *)(record + offset);
+        FlowCmd::SliceAxis *axisPtr = (FlowCmd::SliceAxis *)(record + offset);
         char c;
         c = tolower((unsigned char)string[0]);
@@ -1166 +1158 @@
 }
 
-/*
- *---------------------------------------------------------------------------
+/**
+ * \brief Convert a Tcl_Obj representing the label of a list of four color 
+ * components in to a RGBA color value.
  *
- * ColorSwitchProc --
- *
- *      Convert a Tcl_Obj representing the label of a list of four color 
- *      components in to a RGBA color value.
- *
- * Results:
- *      The return value is a standard Tcl result.
- *
- *---------------------------------------------------------------------------
+ * \param clientData Flag indicating if the node is considered before or 
+ * after the insertion position.
+ * \param interp Interpreter to send results back to
+ * \param switchName Not used
+ * \param objPtr String representation
+ * \param record Structure record
+ * \param offset Not used
+ * \param flags Not used
+ * 
+ * \return The return value is a standard Tcl result.
  */
-/*ARGSUSED*/
-static int
-ColorSwitchProc(
-    ClientData clientData,      /* Flag indicating if the node is considered
-                                 * before or after the insertion position. */
-    Tcl_Interp *interp,         /* Interpreter to send results back to */
-    const char *switchName,     /* Not used. */
-    Tcl_Obj *objPtr,            /* String representation */
-    char *record,               /* Structure record */
-    int offset,                 /* Not used. */
-    int flags)                  /* Not used. */
+static int
+ColorSwitchProc(ClientData clientData, Tcl_Interp *interp,
+                const char *switchName, Tcl_Obj *objPtr,
+                char *record, int offset, int flags)
 {
     Tcl_Obj **objv;
@@ -1196 +1183 @@
 
     if (Tcl_ListObjGetElements(interp, objPtr, &objc, &objv) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if ((objc < 3) || (objc > 4)) {
-        Tcl_AppendResult(interp, "wrong # of elements in color definition",
-                         (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "wrong # of elements in color definition",
+                         (char *)NULL);
+        return TCL_ERROR;
     }
     float values[4];
@@ -1207 +1194 @@
     values[3] = 1.0f;
     for (i = 0; i < objc; i++) {
-        float value;
-
-        if (GetFloatFromObj(interp, objv[i], &value) != TCL_OK) {
-            return TCL_ERROR;
-        }
-        if ((value < 0.0) || (value > 1.0)) {
-            Tcl_AppendResult(interp, "bad component value in \"",
-                Tcl_GetString(objPtr), "\": color values must be [0..1]",
-                (char *)NULL);
-            return TCL_ERROR;
-        }
-        values[i] = value;
-    }       
+        float value;
+
+        if (GetFloatFromObj(interp, objv[i], &value) != TCL_OK) {
+            return TCL_ERROR;
+        }
+        if ((value < 0.0) || (value > 1.0)) {
+            Tcl_AppendResult(interp, "bad component value in \"",
+                             Tcl_GetString(objPtr), "\": color values must be [0..1]",
+                             (char *)NULL);
+            return TCL_ERROR;
+        }
+        values[i] = value;
+    }
     colorPtr->r = values[0];
     colorPtr->g = values[1];
@@ -1227 +1214 @@
 }
 
-/*
- *---------------------------------------------------------------------------
+/**
+ * \brief Convert a Tcl_Obj representing the a 3-D coordinate into a point.
  *
- * PointSwitchProc --
+ * \param clientData Flag indicating if the node is considered before or 
+ * after the insertion position.
+ * \param interp Interpreter to send results back to
+ * \param switchName Not used
+ * \param objPtr String representation
+ * \param record Structure record
+ * \param offset Not used
+ * \param flags Not used
  *
- *      Convert a Tcl_Obj representing the a 3-D coordinate into
- *      a point.
- *
- * Results:
- *      The return value is a standard Tcl result.
- *
- *---------------------------------------------------------------------------
+ * \return The return value is a standard Tcl result.
  */
-/*ARGSUSED*/
-static int
-PointSwitchProc(
-    ClientData clientData,      /* Flag indicating if the node is considered
-                                 * before or after the insertion position. */
-    Tcl_Interp *interp,         /* Interpreter to send results back to */
-    const char *switchName,     /* Not used. */
-    Tcl_Obj *objPtr,            /* String representation */
-    char *record,               /* Structure record */
-    int offset,                 /* Not used. */
-    int flags)                  /* Not used. */
+static int
+PointSwitchProc(ClientData clientData, Tcl_Interp *interp,
+                const char *switchName, Tcl_Obj *objPtr,
+                char *record, int offset, int flags)
 {
     FlowPoint *pointPtr = (FlowPoint *)(record + offset);
@@ -1257 +1238 @@
 
     if (Tcl_ListObjGetElements(interp, objPtr, &objc, &objv) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (objc != 3) {
-        Tcl_AppendResult(interp, "wrong # of elements for box coordinates: "
-                         " should be \"x y z\"", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "wrong # of elements for box coordinates: "
+                         " should be \"x y z\"", (char *)NULL);
+        return TCL_ERROR;
     }
     float values[3];
     int i;
     for (i = 0; i < objc; i++) {
-        float value;
-
-        if (GetFloatFromObj(interp, objv[i], &value) != TCL_OK) {
-            return TCL_ERROR;
-        }
-        values[i] = value;
-    }       
+        float value;
+
+        if (GetFloatFromObj(interp, objv[i], &value) != TCL_OK) {
+            return TCL_ERROR;
+        }
+        values[i] = value;
+    }
     pointPtr->x = values[0];
     pointPtr->y = values[1];
@@ -1280 +1261 @@
 }
 
-/*
- *---------------------------------------------------------------------------
+/**
+ * \brief Convert a Tcl_Obj representing the a 3-D coordinate into a point.
  *
- * PositionSwitchProc --
+ * \param clientData Flag indicating if the node is considered before or 
+ * after the insertion position.
+ * \param interp Interpreter to send results back to
+ * \param switchName Not used
+ * \param objPtr String representation
+ * \param record Structure record
+ * \param offset Not used
+ * \param flags Not used
  *
- *      Convert a Tcl_Obj representing the a 3-D coordinate into
- *      a point.
- *
- * Results:
- *      The return value is a standard Tcl result.
- *
- *---------------------------------------------------------------------------
+ * \return The return value is a standard Tcl result.
  */
-/*ARGSUSED*/
-static int
-PositionSwitchProc(
-    ClientData clientData,      /* Flag indicating if the node is considered
-                                 * before or after the insertion position. */
-    Tcl_Interp *interp,         /* Interpreter to send results back to */
-    const char *switchName,     /* Not used. */
-    Tcl_Obj *objPtr,            /* String representation */
-    char *record,               /* Structure record */
-    int offset,                 /* Not used. */
-    int flags)                  /* Not used. */
+static int
+PositionSwitchProc(ClientData clientData, Tcl_Interp *interp,
+                   const char *switchName, Tcl_Obj *objPtr,
+                   char *record, int offset, int flags)
 {
     FlowPosition *posPtr = (FlowPosition *)(record + offset);
@@ -1312 +1287 @@
     p = strrchr((char *)string, '%');
     if (p == NULL) {
-        float value;
-
-        if (GetFloatFromObj(interp, objPtr, &value) != TCL_OK) {
-            return TCL_ERROR;
-        }
-        posPtr->value = value;
-        posPtr->flags = ABSPOS;
+        float value;
+
+        if (GetFloatFromObj(interp, objPtr, &value) != TCL_OK) {
+            return TCL_ERROR;
+        }
+        posPtr->value = value;
+        posPtr->flags = ABSPOS;
     } else {
-        double value;
-
-        *p = '\0';
-        if (Tcl_GetDouble(interp, string, &value) != TCL_OK) {
-            return TCL_ERROR;
-        }
-        posPtr->value = (float)value * 0.01;
-        posPtr->flags = RELPOS;
-    }
-    return TCL_OK;
-}
-
-/*
- *---------------------------------------------------------------------------
+        double value;
+
+        *p = '\0';
+        if (Tcl_GetDouble(interp, string, &value) != TCL_OK) {
+            return TCL_ERROR;
+        }
+        posPtr->value = (float)value * 0.01;
+        posPtr->flags = RELPOS;
+    }
+    return TCL_OK;
+}
+
+/**
+ * \brief Convert a Tcl_Obj representing the transfer function into a
+ *  TransferFunction pointer.  
  *
- * TransferFunctionSwitchProc --
+ * The transfer function must have been previously defined.
  *
- *      Convert a Tcl_Obj representing the transfer function into a
- *      TransferFunction pointer.  The transfer function must have been
- *      previously defined.
+ * \param clientData Flag indicating if the node is considered before or 
+ * after the insertion position.
+ * \param interp Interpreter to send results back to
+ * \param switchName Not used
+ * \param objPtr String representation
+ * \param record Structure record
+ * \param offset Not used
+ * \param flags Not used
  *
- * Results:
- *      The return value is a standard Tcl result.
- *
- *---------------------------------------------------------------------------
+ * \return The return value is a standard Tcl result.
  */
-/*ARGSUSED*/
-static int
-TransferFunctionSwitchProc(
-    ClientData clientData,      /* Flag indicating if the node is considered
-                                 * before or after the insertion position. */
-    Tcl_Interp *interp,         /* Interpreter to send results back to */
-    const char *switchName,     /* Not used. */
-    Tcl_Obj *objPtr,            /* String representation */
-    char *record,               /* Structure record */
-    int offset,                 /* Not used. */
-    int flags)                  /* Not used. */
+static int
+TransferFunctionSwitchProc(ClientData clientData, Tcl_Interp *interp,
+                           const char *switchName, Tcl_Obj *objPtr,
+                           char *record, int offset, int flags)
 {
     TransferFunction **funcPtrPtr = (TransferFunction **)(record + offset);
@@ -1372 +1343 @@
 static int
 FlowConfigureOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                Tcl_Obj *const *objv)
+                Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
 
     if (flowPtr->ParseSwitches(interp, objc - 2, objv + 2) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     NanoVis::EventuallyRedraw(NanoVis::MAP_FLOWS);
@@ -1385 +1356 @@
 static int
 FlowParticlesAddOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                   Tcl_Obj *const *objv)
+                   Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
 
     if (flowPtr->CreateParticles(interp, objv[3]) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     FlowParticles *particlesPtr;
     if (flowPtr->GetParticles(interp, objv[3], &particlesPtr) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (particlesPtr->ParseSwitches(interp, objc - 4, objv + 4) != TCL_OK) {
-        delete particlesPtr;
-        return TCL_ERROR;
+        delete particlesPtr;
+        return TCL_ERROR;
     }
     particlesPtr->Configure();
@@ -1408 +1379 @@
 static int
 FlowParticlesConfigureOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                         Tcl_Obj *const *objv)
+                         Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1414 +1385 @@
     FlowParticles *particlesPtr;
     if (flowPtr->GetParticles(interp, objv[3], &particlesPtr) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (particlesPtr->ParseSwitches(interp, objc - 4, objv + 4) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     particlesPtr->Configure();
@@ -1426 +1397 @@
 static int
 FlowParticlesDeleteOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                      Tcl_Obj *const *objv)
+                      Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
     int i;
     for (i = 3; i < objc; i++) {
-        FlowParticles *particlesPtr;
-
-        if (flowPtr->GetParticles(NULL, objv[i], &particlesPtr) == TCL_OK) {
-            delete particlesPtr;
-        }
+        FlowParticles *particlesPtr;
+
+        if (flowPtr->GetParticles(NULL, objv[i], &particlesPtr) == TCL_OK) {
+            delete particlesPtr;
+        }
     }
     NanoVis::EventuallyRedraw();
@@ -1443 +1414 @@
 static int
 FlowParticlesNamesOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                     Tcl_Obj *const *objv)
+                     Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1451 +1422 @@
     FlowParticles *particlesPtr;
     for (particlesPtr = flowPtr->FirstParticles(&iter); particlesPtr != NULL; 
-         particlesPtr = flowPtr->NextParticles(&iter)) {
-        Tcl_Obj *objPtr;
-
-        objPtr = Tcl_NewStringObj(particlesPtr->name(), -1);
-        Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
+         particlesPtr = flowPtr->NextParticles(&iter)) {
+        Tcl_Obj *objPtr;
+
+        objPtr = Tcl_NewStringObj(particlesPtr->name(), -1);
+        Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
     }
     Tcl_SetObjResult(interp, listObjPtr);
@@ -1461 +1432 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowParticlesObjCmd --
- *
- *      This procedure is invoked to process commands on behalf of the flow
- *      object.
- *
- * Results:
- *      A standard Tcl result.
- *
- * Side effects:
- *      See the user documentation.
- *
- * $flow particles oper $name 
- *---------------------------------------------------------------------------
- */
 static Rappture::CmdSpec flowParticlesOps[] = {
     {"add",        1, FlowParticlesAddOp,        4, 0, "name ?switches?",},
     {"configure",  1, FlowParticlesConfigureOp,  4, 0, "name ?switches?",},
-    {"delete",     1, FlowParticlesDeleteOp,     4, 0, "?name...?"},
+    {"delete",     1, FlowParticlesDeleteOp,     4, 0, "?name...?"},
     {"names",      1, FlowParticlesNamesOp,      3, 4, "?pattern?"},
 };
@@ -1487 +1441 @@
 static int nFlowParticlesOps = NumCmdSpecs(flowParticlesOps);
 
+/**
+ * \brief This procedure is invoked to process commands on behalf of the flow
+ * object.
+ * 
+ * Side effects: See the user documentation.
+ * 
+ * $flow particles oper $name 
+ *
+ * \return A standard Tcl result.
+ */
 static int
 FlowParticlesOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-               Tcl_Obj *const *objv)
+                Tcl_Obj *const *objv)
 {
     Tcl_ObjCmdProc *proc;
     proc = Rappture::GetOpFromObj(interp, nFlowParticlesOps, flowParticlesOps, 
-        Rappture::CMDSPEC_ARG2, objc, objv, 0);
+                                  Rappture::CMDSPEC_ARG2, objc, objv, 0);
     if (proc == NULL) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1507 +1471 @@
 static int
 FlowBoxAddOp(ClientData clientData, Tcl_Interp *interp, int objc,
-               Tcl_Obj *const *objv)
+             Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
 
     if (flowPtr->CreateBox(interp, objv[3]) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     FlowBox *boxPtr;
     if (flowPtr->GetBox(interp, objv[3], &boxPtr) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (boxPtr->ParseSwitches(interp, objc - 4, objv + 4) != TCL_OK) {
-        delete boxPtr;
-        return TCL_ERROR;
+        delete boxPtr;
+        return TCL_ERROR;
     }
     NanoVis::EventuallyRedraw();
@@ -1529 +1493 @@
 static int
 FlowBoxDeleteOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                   Tcl_Obj *const *objv)
+                Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
     int i;
     for (i = 3; i < objc; i++) {
-        FlowBox *boxPtr;
-
-        if (flowPtr->GetBox(NULL, objv[i], &boxPtr) == TCL_OK) {
-            delete boxPtr;
-        }
+        FlowBox *boxPtr;
+
+        if (flowPtr->GetBox(NULL, objv[i], &boxPtr) == TCL_OK) {
+            delete boxPtr;
+        }
     }
     NanoVis::EventuallyRedraw();
@@ -1546 +1510 @@
 static int
 FlowBoxNamesOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+               Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1554 +1518 @@
     FlowBox *boxPtr;
     for (boxPtr = flowPtr->FirstBox(&iter); boxPtr != NULL; 
-         boxPtr = flowPtr->NextBox(&iter)) {
-        Tcl_Obj *objPtr;
-
-        objPtr = Tcl_NewStringObj(boxPtr->name(), -1);
-        Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
+         boxPtr = flowPtr->NextBox(&iter)) {
+        Tcl_Obj *objPtr;
+
+        objPtr = Tcl_NewStringObj(boxPtr->name(), -1);
+        Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
     }
     Tcl_SetObjResult(interp, listObjPtr);
@@ -1566 +1530 @@
 static int
 FlowBoxConfigureOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                        Tcl_Obj *const *objv)
+                   Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1572 +1536 @@
     FlowBox *boxPtr;
     if (flowPtr->GetBox(interp, objv[3], &boxPtr) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (boxPtr->ParseSwitches(interp, objc - 4, objv + 4) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     NanoVis::EventuallyRedraw();
@@ -1581 +1545 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowBoxOp--
- *
- *      This procedure is invoked to process commands on behalf of the flow
- *      object.
- *
- * Results:
- *      A standard Tcl result.
- *
- * Side effects:
- *      See the user documentation.
- *
- *---------------------------------------------------------------------------
- */
 static Rappture::CmdSpec flowBoxOps[] = {
     {"add",        1, FlowBoxAddOp,        4, 0, "name ?switches?",},
     {"configure",  1, FlowBoxConfigureOp,  4, 0, "name ?switches?",},
-    {"delete",     1, FlowBoxDeleteOp,     3, 0, "?name...?"},
+    {"delete",     1, FlowBoxDeleteOp,     3, 0, "?name...?"},
     {"names",      1, FlowBoxNamesOp,      3, 0, "?pattern?"},
 };
@@ -1606 +1554 @@
 static int nFlowBoxOps = NumCmdSpecs(flowBoxOps);
 
+/**
+ * \brief This procedure is invoked to process commands on behalf of the flow
+ *         object.
+ *
+ * Side effects:  See the user documentation.
+ *
+ * \return A standard Tcl result.
+ */
 static int
 FlowBoxOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-               Tcl_Obj *const *objv)
+          Tcl_Obj *const *objv)
 {
     Tcl_ObjCmdProc *proc;
     proc = Rappture::GetOpFromObj(interp, nFlowBoxOps, flowBoxOps, 
-        Rappture::CMDSPEC_ARG2, objc, objv, 0);
+                                  Rappture::CMDSPEC_ARG2, objc, objv, 0);
     if (proc == NULL) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1625 +1581 @@
 
 /*
- * ----------------------------------------------------------------------
  * CLIENT COMMAND:
  *   $flow legend <width> <height>
@@ -1633 +1588 @@
  * to one, drawn in the given transfer function.  The resulting image
  * is returned in the size <width> x <height>.
- * ----------------------------------------------------------------------
  */
 static int
 FlowLegendOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-          Tcl_Obj *const *objv)
+             Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1646 +1600 @@
     if (tf == NULL) {
         Tcl_AppendResult(interp, "unknown transfer function \"", string, "\"",
-                             (char*)NULL);
+                         (char*)NULL);
         return TCL_ERROR;
     }
@@ -1663 +1617 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowInstObjCmd --
- *
- *      This procedure is invoked to process commands on behalf of the flow
- *      object.
- *
- * Results:
- *      A standard Tcl result.
- *
- * Side effects:
- *      See the user documentation.
- *
- *---------------------------------------------------------------------------
- */
 static Rappture::CmdSpec flowInstOps[] = {
     {"box",         1, FlowBoxOp,        2, 0, "oper ?args?"},
     {"configure",   1, FlowConfigureOp,  2, 0, "?switches?"},
-    {"data",        1, FlowDataOp,       2, 0, "oper ?args?"},
+    {"data",        1, FlowDataOp,       2, 0, "oper ?args?"},
     {"legend",      1, FlowLegendOp,     4, 4, "w h"},
     {"particles",   1, FlowParticlesOp,  2, 0, "oper ?args?"}
@@ -1688 +1626 @@
 static int nFlowInstOps = NumCmdSpecs(flowInstOps);
 
+/**
+ * \brief This procedure is invoked to process commands on behalf of the flow
+ * object.
+ *
+ * Side effects: See the user documentation.
+ *
+ * \return A standard Tcl result.
+ */
 static int
 FlowInstObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, 
-               Tcl_Obj *const *objv)
+               Tcl_Obj *const *objv)
 {
     Tcl_ObjCmdProc *proc;
     proc = Rappture::GetOpFromObj(interp, nFlowInstOps, flowInstOps, 
-        Rappture::CMDSPEC_ARG1, objc, objv, 0);
+                                  Rappture::CMDSPEC_ARG1, objc, objv, 0);
     if (proc == NULL) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     assert(CheckGL(AT));
@@ -1707 +1653 @@
 }
 
-/*
- *---------------------------------------------------------------------------
+/**
+ * \brief Deletes the command associated with the tree.
  *
- * FlowInstDeleteProc --
- *
- *      Deletes the command associated with the tree.  This is called only
- *      when the command associated with the tree is destroyed.
- *
- * Results:
- *      None.
- *
- *---------------------------------------------------------------------------
+ * This is called only when the command associated with the tree is destroyed.
  */
 static void
@@ -1727 +1665 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowAddOp --
- *
- *---------------------------------------------------------------------------
- */
-/*ARGSUSED*/
 static int
 FlowAddOp(ClientData clientData, Tcl_Interp *interp, int objc,
-          Tcl_Obj *const *objv)
+          Tcl_Obj *const *objv)
 {
     if (NanoVis::CreateFlow(interp, objv[2]) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     FlowCmd *flowPtr;
     if (NanoVis::GetFlow(interp, objv[2], &flowPtr) != TCL_OK) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     if (flowPtr->ParseSwitches(interp, objc - 3, objv + 3) != TCL_OK) {
-        Tcl_DeleteCommand(interp, flowPtr->name());
-        return TCL_ERROR;
+        Tcl_DeleteCommand(interp, flowPtr->name());
+        return TCL_ERROR;
     }
     Tcl_SetObjResult(interp, objv[2]);
@@ -1755 +1685 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowDeleteOp --
- *
- *---------------------------------------------------------------------------
- */
-/*ARGSUSED*/
 static int
 FlowDeleteOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+             Tcl_Obj *const *objv)
 {
     int i;
 
     for (i = 2; i < objc; i++) {
-        FlowCmd *flowPtr;
-
-        if (NanoVis::GetFlow(interp, objv[i], &flowPtr) != TCL_OK) {
-            return TCL_ERROR;
-        }
-        Tcl_DeleteCommand(interp, flowPtr->name());
+        FlowCmd *flowPtr;
+
+        if (NanoVis::GetFlow(interp, objv[i], &flowPtr) != TCL_OK) {
+            return TCL_ERROR;
+        }
+        Tcl_DeleteCommand(interp, flowPtr->name());
     }
     NanoVis::EventuallyRedraw(NanoVis::MAP_FLOWS);
@@ -1781 +1703 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowExistsOp --
- *
- *---------------------------------------------------------------------------
- */
-/*ARGSUSED*/
 static int
 FlowExistsOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+             Tcl_Obj *const *objv)
 {
     bool value;
@@ -1798 +1712 @@
     value = false;
     if (NanoVis::GetFlow(NULL, objv[2], &flowPtr) == TCL_OK) {
-        value = true;
+        value = true;
     }
     Tcl_SetBooleanObj(Tcl_GetObjResult(interp), (int)value);
@@ -1804 +1718 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowGotoOp --
- *
- *      flow goto number
- *
- *---------------------------------------------------------------------------
+/**
+ * \brief flow goto number
  */
 static int
 FlowGotoOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+           Tcl_Obj *const *objv)
 {
     int nSteps;
@@ -1822 +1730 @@
     }
     if ((nSteps < 0) || (nSteps > SHRT_MAX)) {
-        Tcl_AppendResult(interp, "flow goto: bad # of steps \"",
-                         Tcl_GetString(objv[2]), "\"", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "flow goto: bad # of steps \"",
+                         Tcl_GetString(objv[2]), "\"", (char *)NULL);
+        return TCL_ERROR;
     }
     NanoVis::ResetFlows();
     if (NanoVis::flags & NanoVis::MAP_FLOWS) {
-        NanoVis::MapFlows();
+        NanoVis::MapFlows();
     }
     int i;
     NanoVis::AdvectFlows();
     for (i = 0; i < nSteps; i++) {
-        if (NanoVis::licRenderer->active()) {
-            NanoVis::licRenderer->convolve();
-        }
-        NanoVis::AdvectFlows();
+        if (NanoVis::licRenderer->active()) {
+            NanoVis::licRenderer->convolve();
+        }
+        NanoVis::AdvectFlows();
     }
     NanoVis::EventuallyRedraw();
@@ -1842 +1750 @@
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowNamesOp --
- *
- *---------------------------------------------------------------------------
- */
-/*ARGSUSED*/
 static int
 FlowNamesOp(ClientData clientData, Tcl_Interp *interp, int objc,
-            Tcl_Obj *const *objv)
+            Tcl_Obj *const *objv)
 {
     Tcl_Obj *listObjPtr;
@@ -1859 +1759 @@
     FlowIterator iter;
     for (flowPtr = NanoVis::FirstFlow(&iter); flowPtr != NULL; 
-         flowPtr = NanoVis::NextFlow(&iter)) {
-        Tcl_Obj *objPtr;
-
-        objPtr = Tcl_NewStringObj(flowPtr->name(), -1);
-        Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
+         flowPtr = NanoVis::NextFlow(&iter)) {
+        Tcl_Obj *objPtr;
+
+        objPtr = Tcl_NewStringObj(flowPtr->name(), -1);
+        Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
     }
     Tcl_SetObjResult(interp, listObjPtr);
@@ -1871 +1771 @@
 static int
 FlowNextOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+           Tcl_Obj *const *objv)
 {
     assert(NanoVis::licRenderer != NULL);
     if (NanoVis::flags & NanoVis::MAP_FLOWS) {
-        NanoVis::MapFlows();
+        NanoVis::MapFlows();
     }
     NanoVis::EventuallyRedraw();
@@ -1885 +1785 @@
 static int
 FlowResetOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+            Tcl_Obj *const *objv)
 {
     NanoVis::ResetFlows();
@@ -1893 +1793 @@
 #ifdef HAVE_FFMPEG
 
-/*
- *---------------------------------------------------------------------------
+/**
+ * \brief Convert a Tcl_Obj representing the video format into its
+ * integer id.
  *
- * VideoFormatSwitchProc --
+ * \param clientData Not used
+ * \param interp Interpreter to send results back to
+ * \param switchName Not used
+ * \param objPtr String representation
+ * \param record Structure record
+ * \param offset Not used
+ * \param flags Not used
  *
- *      Convert a Tcl_Obj representing the video format into its
- *      integer id.
- *
- * Results:
- *      The return value is a standard Tcl result.
- *
- *---------------------------------------------------------------------------
+ * \return The return value is a standard Tcl result.
  */
-/*ARGSUSED*/
-static int
-VideoFormatSwitchProc(
-    ClientData clientData,      /* Not used. */
-    Tcl_Interp *interp,         /* Interpreter to send results back to */
-    const char *switchName,     /* Not used. */
-    Tcl_Obj *objPtr,            /* String representation */
-    char *record,               /* Structure record */
-    int offset,                 /* Not used. */
-    int flags)                  /* Not used. */
+static int
+VideoFormatSwitchProc(ClientData clientData, Tcl_Interp *interp,
+                      const char *switchName, Tcl_Obj *objPtr,
+                      char *record, int offset, int flags)
 {
     Rappture::AVTranslate::VideoFormats *formatPtr = 
-        (Rappture::AVTranslate::VideoFormats *)(record + offset);
+        (Rappture::AVTranslate::VideoFormats *)(record + offset);
     const char *string;
     char c; 
@@ -1925 +1820 @@
     c = string[0];
     if ((c == 'm') && (strcmp(string, "mpeg") == 0)) {
-        *formatPtr =  Rappture::AVTranslate::MPEG1;
+        *formatPtr =  Rappture::AVTranslate::MPEG1;
     } else if ((c == 't') && (strcmp(string, "theora") == 0)) {
-        *formatPtr = Rappture::AVTranslate::THEORA;
+        *formatPtr = Rappture::AVTranslate::THEORA;
     } else if ((c == 'm') && (strcmp(string, "mov") == 0)) {
-        *formatPtr = Rappture::AVTranslate::QUICKTIME;
+        *formatPtr = Rappture::AVTranslate::QUICKTIME;
     } else {
-        Tcl_AppendResult(interp, "bad video format \"", string,
-                     "\": should be mpeg, theora, or mov", (char*)NULL);
+        Tcl_AppendResult(interp, "bad video format \"", string,
+                         "\": should be mpeg, theora, or mov", (char*)NULL);
     }
     return TCL_ERROR;
@@ -1938 +1833 @@
 
 struct FlowVideoValues {
-    float frameRate;                    /* Frame rate */
-    int bitRate;                        /* Video bitrate */
-    int width, height;                  /* Dimensions of video frame. */
+    float frameRate;         /**< Frame rate */
+    int bitRate;             /**< Video bitrate */
+    int width, height;       /**< Dimensions of video frame. */
     int nFrames;
     Rappture::AVTranslate::VideoFormats format;
@@ -1952 +1847 @@
 Rappture::SwitchSpec FlowCmd::videoSwitches[] = {
     {Rappture::SWITCH_INT, "-bitrate", "value",
-        offsetof(FlowVideoValues, bitRate), 0},
+     offsetof(FlowVideoValues, bitRate), 0},
     {Rappture::SWITCH_CUSTOM, "-format", "string",
-        offsetof(FlowVideoValues, format), 0, 0, &videoFormatSwitch},
+     offsetof(FlowVideoValues, format), 0, 0, &videoFormatSwitch},
     {Rappture::SWITCH_FLOAT, "-framerate", "value",
-        offsetof(FlowVideoValues, frameRate), 0},
+     offsetof(FlowVideoValues, frameRate), 0},
     {Rappture::SWITCH_INT, "-height", "integer",
-        offsetof(FlowVideoValues, height), 0},
+     offsetof(FlowVideoValues, height), 0},
     {Rappture::SWITCH_INT, "-numframes", "count",
-        offsetof(FlowVideoValues, nFrames), 0},
+     offsetof(FlowVideoValues, nFrames), 0},
     {Rappture::SWITCH_INT, "-width", "integer",
-        offsetof(FlowVideoValues, width), 0},
+     offsetof(FlowVideoValues, width), 0},
     {Rappture::SWITCH_END}
 };
@@ -1968 +1863 @@
 static int
 FlowVideoOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-            Tcl_Obj *const *objv)
+            Tcl_Obj *const *objv)
 {
     struct pollfd pollResults;
@@ -1976 +1871 @@
     pollResults.events = POLLIN;
 
-#define PENDING_TIMEOUT         10  /* milliseconds. */
+#define PENDING_TIMEOUT          10  /* milliseconds. */
     timeout = PENDING_TIMEOUT;
 
@@ -1983 +1878 @@
 
     token = Tcl_GetString(objv[2]);
-    values.frameRate = 25.0f;           // Default frame rate 25 fps
-    values.bitRate = 6000000;           // Default video bit rate.
+    values.frameRate = 25.0f;                // Default frame rate 25 fps
+    values.bitRate = 6000000;                // Default video bit rate.
     values.width = NanoVis::win_width;
     values.height = NanoVis::win_height;
@@ -1990 +1885 @@
     values.format = Rappture::AVTranslate::MPEG1;
     if (Rappture::ParseSwitches(interp, FlowCmd::videoSwitches, 
-        objc - 3, objv + 3, &values, SWITCH_DEFAULTS) < 0) {
-        return TCL_ERROR;
+                                objc - 3, objv + 3, &values, SWITCH_DEFAULTS) < 0) {
+        return TCL_ERROR;
     }
     if ((values.width < 0) || (values.width > SHRT_MAX) || 
-        (values.height < 0) || (values.height > SHRT_MAX)) {
-        Tcl_AppendResult(interp, "bad dimensions for video", (char *)NULL);
-        return TCL_ERROR;
+        (values.height < 0) || (values.height > SHRT_MAX)) {
+        Tcl_AppendResult(interp, "bad dimensions for video", (char *)NULL);
+        return TCL_ERROR;
     }
     if ((values.frameRate < 0.0f) || (values.frameRate > 30.0f)) {
-        Tcl_AppendResult(interp, "bad frame rate.", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad frame rate.", (char *)NULL);
+        return TCL_ERROR;
     }
     if (values.bitRate < 0) {
-        Tcl_AppendResult(interp, "bad bit rate.", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad bit rate.", (char *)NULL);
+        return TCL_ERROR;
     }
     if (NanoVis::licRenderer == NULL) {
-        Tcl_AppendResult(interp, "no lic renderer.", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "no lic renderer.", (char *)NULL);
+        return TCL_ERROR;
     }
     // Save the old dimensions of the offscreen buffer.
@@ -2026 +1921 @@
     if (!movie.init(context, tmpFileName)) {
         Tcl_AppendResult(interp, "can't initialized movie \"", tmpFileName, 
-                "\": ", context.remark(), (char *)NULL);
-        return TCL_ERROR;
+                         "\": ", context.remark(), (char *)NULL);
+        return TCL_ERROR;
     }
     if ((values.width != oldWidth) || (values.height != oldHeight)) {
-        // Resize to the requested size.
-        NanoVis::resize_offscreen_buffer(values.width, values.height);
+        // Resize to the requested size.
+        NanoVis::resize_offscreen_buffer(values.width, values.height);
     }
     // Now compute the line padding for the offscreen buffer.
@@ -2041 +1936 @@
     bool canceled = false;
     for (int i = 1; i <= values.nFrames; i++) {
-        if (((i & 0xF) == 0) && (poll(&pollResults, 1, 0) > 0)) {
-            /* If there's another command on stdin, that means the client is
-             * trying to cancel this operation. */
-            canceled = true;
-            break;
-        }
-        if (NanoVis::licRenderer->active()) {
-            NanoVis::licRenderer->convolve();
-        }
-        NanoVis::AdvectFlows();
-        NanoVis::offscreen_buffer_capture();
+        if (((i & 0xF) == 0) && (poll(&pollResults, 1, 0) > 0)) {
+            /* If there's another command on stdin, that means the client is
+             * trying to cancel this operation. */
+            canceled = true;
+            break;
+        }
+        if (NanoVis::licRenderer->active()) {
+            NanoVis::licRenderer->convolve();
+        }
+        NanoVis::AdvectFlows();
+        NanoVis::offscreen_buffer_capture();
         NanoVis::display();
         NanoVis::read_screen();
@@ -2060 +1955 @@
     TRACE("FLOW end\n");
     if (!canceled) {
-        Rappture::Buffer data;
-
-        /* FIXME: find a way to get the data from the movie object as a
-         * void* */
-        if (!data.load(context, tmpFileName)) {
-            Tcl_AppendResult(interp, "can't load data from temporary file \"",
-                tmpFileName, "\": ", context.remark(), (char *)NULL);
-            return TCL_ERROR;
-        }
-
-        char command[200];
-        sprintf(command,"nv>image -bytes %lu -type movie -token \"%s\"\n", 
-                (unsigned long)data.size(), token);
-        NanoVis::sendDataToClient(command, data.bytes(), data.size());
+        Rappture::Buffer data;
+
+        /* FIXME: find a way to get the data from the movie object as a
+         * void* */
+        if (!data.load(context, tmpFileName)) {
+            Tcl_AppendResult(interp, "can't load data from temporary file \"",
+                             tmpFileName, "\": ", context.remark(), (char *)NULL);
+            return TCL_ERROR;
+        }
+
+        char command[200];
+        sprintf(command,"nv>image -bytes %lu -type movie -token \"%s\"\n", 
+                (unsigned long)data.size(), token);
+        NanoVis::sendDataToClient(command, data.bytes(), data.size());
     }
     if ((values.width != oldWidth) || (values.height != oldHeight)) {
-        NanoVis::resize_offscreen_buffer(oldWidth, oldHeight);
+        NanoVis::resize_offscreen_buffer(oldWidth, oldHeight);
     }
     NanoVis::ResetFlows();
     if (unlink(tmpFileName) != 0) {
         Tcl_AppendResult(interp, "can't unlink temporary movie file \"",
-                tmpFileName, "\": ", Tcl_PosixError(interp), (char *)NULL);
-        return TCL_ERROR;
+                         tmpFileName, "\": ", Tcl_PosixError(interp), (char *)NULL);
+        return TCL_ERROR;
     }
     return TCL_OK;
 }
 #else
+/**
+ *  Not implemented 
+ */
 static int
 FlowVideoOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-            Tcl_Obj *const *objv)
-{
-    return TCL_OK;                      /* Not implemented */
-}
-#endif  /* HAVE_FFMPEG */
-
-/*
- *---------------------------------------------------------------------------
- *
- * FlowObjCmd --
- *
- *---------------------------------------------------------------------------
- */
+            Tcl_Obj *const *objv)
+{
+    return TCL_OK;
+}
+#endif /* HAVE_FFMPEG */
+
 static Rappture::CmdSpec flowCmdOps[] = {
     {"add",      1, FlowAddOp,     3, 0, "name ?option value...?",},
@@ -2114 +2005 @@
 static int nFlowCmdOps = NumCmdSpecs(flowCmdOps);
 
-/*ARGSUSED*/
 static int
 FlowCmdProc(ClientData clientData, Tcl_Interp *interp, int objc,
-            Tcl_Obj *const *objv)
+            Tcl_Obj *const *objv)
 {
     Tcl_ObjCmdProc *proc;
 
     proc = Rappture::GetOpFromObj(interp, nFlowCmdOps, flowCmdOps, 
-        Rappture::CMDSPEC_ARG1, objc, objv, 0);
+                                  Rappture::CMDSPEC_ARG1, objc, objv, 0);
     if (proc == NULL) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     return (*proc) (clientData, interp, objc, objv);
 }
 
-/*
- *---------------------------------------------------------------------------
- *
- * FlowCmdInitProc --
- *
- *      This procedure is invoked to initialize the "tree" command.
- *
- * Results:
- *      None.
+/**
+ *\brief This procedure is invoked to initialize the "tree" command.
  *
  * Side effects:
- *      Creates the new command and adds a new entry into a global Tcl
- *      associative array.
- *
- *---------------------------------------------------------------------------
+ *    Creates the new command and adds a new entry into a global Tcl
+ *    associative array.
  */
 int
@@ -2153 +2034 @@
 }
 
-
 #ifdef notdef
 
@@ -2162 +2042 @@
     char *p, *endPtr;
 
-  line = getline(&p, endPtr);
-  if (line == endPtr) {
-      vtkErrorMacro(<<"Premature EOF reading first line! " << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
-      return false;
-  }
-  if (sscanf(line, "# vtk DataFile Version %s", version) != 1) {
-      vtkErrorMacro(<< "Unrecognized file type: "<< line << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
-      return false;
-  }    
-  // Read title
-  line = getline(&p, endPtr);
-  if (line == endPtr) {
-      vtkErrorMacro(<<"Premature EOF reading title! " << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
-      return false;
-  }
-  if (_title != NULL) {
-      delete [] _title;
-  }
-  _title = new char[strlen(line) + 1];
-  strcpy(_title, line);
-
-  // Read type
-  line = getline(&p, endPtr);
-  if (line == endPtr) {
-      vtkErrorMacro(<<"Premature EOF reading file type!" << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
-      return false;
-  }
-  word = GetWord(line, &endPtr);
-  if (strncasecmp(word, "ascii", 5) == 0) {
-      _fileType = VTK_ASCII;
-  } else if (strcasecmp(word, "binary", 6) == 0) {
-      _fileType = VTK_BINARY;
-  } else {
-      vtkErrorMacro(<< "Unrecognized file type: "<< line << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
-      _fileType = 0;
-      return false;
-
-  }
-  // Read dataset type
-  line = getline(&p, endPtr);
-  if (line == endPtr) {
-      vtkErrorMacro(<<"Premature EOF reading file type!" << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
-      return false;
-  }
-  word = GetWord(line, &endPtr);
-  if (strncasecmp(word, "dataset", 7) == 0) {
-      // Read dataset type
-      line = getline(&p, endPtr);
-      if (line == endPtr) {
-          // EOF
-      }
-      type = GetWord(line, &endPtr);
-      if (strncasecmp(word, "structured_grid", 15) == 0) {
-          vtkErrorMacro(<< "Cannot read dataset type: " << line);
-          return 1;
-      }
-    // Read keyword and dimensions
-    //
-    while (!done)
-      {
-      if (!this->ReadString(line))
-        {
-        break;
-        }
-
-      // Have to read field data because it may be binary.
-      if (! strncmp(this->LowerCase(line), "field", 5))
-        {
-        vtkFieldData* fd = this->ReadFieldData();
-        fd->Delete(); 
-        }
-
-      if ( ! strncmp(this->LowerCase(line),"dimensions",10) )
-        {
-        int ext[6];
-        if (!(this->Read(ext+1) && 
-              this->Read(ext+3) && 
-              this->Read(ext+5)))
-          {
-          vtkErrorMacro(<<"Error reading dimensions!");
-          this->CloseVTKFile ();
-          return 1;
-          }
-        // read dimensions, change to extent;
-        ext[0] = ext[2] = ext[4] = 0;
-        --ext[1];
-        --ext[3];
-        --ext[5];
-        outInfo->Set(vtkStreamingDemandDrivenPipeline::WHOLE_EXTENT(),
-                     ext, 6);
-        // That is all we wanted !!!!!!!!!!!!!!!
-        this->CloseVTKFile();
-        return 1;
-        }
-      }
-    }
-
-
-
-  float progress=this->GetProgress();
-  this->UpdateProgress(progress + 0.5*(1.0 - progress));
-  
-  return 1;
+    line = getline(&p, endPtr);
+    if (line == endPtr) {
+        vtkErrorMacro(<<"Premature EOF reading first line! " << " for file: " 
+                      << (this->FileName?this->FileName:"(Null FileName)"));
+        return false;
+    }
+    if (sscanf(line, "# vtk DataFile Version %s", version) != 1) {
+        vtkErrorMacro(<< "Unrecognized file type: "<< line << " for file: " 
+                      << (this->FileName?this->FileName:"(Null FileName)"));
+        return false;
+    }
+
+    // Read title
+    line = getline(&p, endPtr);
+    if (line == endPtr) {
+        vtkErrorMacro(<<"Premature EOF reading title! " << " for file: " 
+                      << (this->FileName?this->FileName:"(Null FileName)"));
+        return false;
+    }
+    if (_title != NULL) {
+        delete [] _title;
+    }
+    _title = new char[strlen(line) + 1];
+    strcpy(_title, line);
+
+    // Read type
+    line = getline(&p, endPtr);
+    if (line == endPtr) {
+        vtkErrorMacro(<<"Premature EOF reading file type!" << " for file: " 
+                      << (this->FileName?this->FileName:"(Null FileName)"));
+        return false;
+    }
+    word = GetWord(line, &endPtr);
+    if (strncasecmp(word, "ascii", 5) == 0) {
+        _fileType = VTK_ASCII;
+    } else if (strcasecmp(word, "binary", 6) == 0) {
+        _fileType = VTK_BINARY;
+    } else {
+        vtkErrorMacro(<< "Unrecognized file type: "<< line << " for file: " 
+                      << (this->FileName?this->FileName:"(Null FileName)"));
+        _fileType = 0;
+        return false;
+    }
+
+    // Read dataset type
+    line = getline(&p, endPtr);
+    if (line == endPtr) {
+        vtkErrorMacro(<<"Premature EOF reading file type!" << " for file: " 
+                      << (this->FileName?this->FileName:"(Null FileName)"));
+        return false;
+    }
+    word = GetWord(line, &endPtr);
+    if (strncasecmp(word, "dataset", 7) == 0) {
+        // Read dataset type
+        line = getline(&p, endPtr);
+        if (line == endPtr) {
+            // EOF
+        }
+        type = GetWord(line, &endPtr);
+        if (strncasecmp(word, "structured_grid", 15) == 0) {
+            vtkErrorMacro(<< "Cannot read dataset type: " << line);
+            return 1;
+        }
+        // Read keyword and dimensions
+        //
+        while (!done) {
+            if (!this->ReadString(line)) {
+                break;
+            }
+
+            // Have to read field data because it may be binary.
+            if (! strncmp(this->LowerCase(line), "field", 5)) {
+                vtkFieldData* fd = this->ReadFieldData();
+                fd->Delete(); 
+            }
+
+            if ( ! strncmp(this->LowerCase(line),"dimensions",10) ) {
+                int ext[6];
+                if (!(this->Read(ext+1) && 
+                      this->Read(ext+3) && 
+                      this->Read(ext+5))) {
+                    vtkErrorMacro(<<"Error reading dimensions!");
+                    this->CloseVTKFile ();
+                    return 1;
+                }
+                // read dimensions, change to extent;
+                ext[0] = ext[2] = ext[4] = 0;
+                --ext[1];
+                --ext[3];
+                --ext[5];
+                outInfo->Set(vtkStreamingDemandDrivenPipeline::WHOLE_EXTENT(),
+                             ext, 6);
+                // That is all we wanted !!!!!!!!!!!!!!!
+                this->CloseVTKFile();
+                return 1;
+            }
+        }
+    }
+
+    float progress = this->GetProgress();
+    this->UpdateProgress(progress + 0.5*(1.0 - progress));
+
+    return 1;
 }
 #endif

trunk/packages/vizservers/nanovis/FlowCmd.h

@@ -49 +49 @@
 
 struct FlowParticlesValues {
-    FlowPosition position;      ///< Position on axis of particle plane
-    FlowColor color;            ///< Color of particles
+    FlowPosition position;        ///< Position on axis of particle plane
+    FlowColor color;              ///< Color of particles
     /// Indicates if particle injection plane is active or not
     int isHidden;
-    float particleSize;         ///< Size of the particles
+    float particleSize;           ///< Size of the particles
 };
 
@@ -130 +130 @@
     const char *_name;
     Tcl_HashEntry *_hashPtr;
-    NvParticleRenderer *_rendererPtr;   ///< Particle renderer
+    NvParticleRenderer *_rendererPtr;        ///< Particle renderer
     FlowParticlesValues _sv;
 
@@ -142 +142 @@
 
 struct FlowBoxValues {
-    float position;             ///< Position on axis of particle plane
-    FlowPoint corner1, corner2; ///< Coordinates of the box.
-    FlowColor color;            ///< Color of particles
+    float position;                ///< Position on axis of particle plane
+    FlowPoint corner1, corner2;    ///< Coordinates of the box.
+    FlowColor color;               ///< Color of particles
     float lineWidth;
     /// Indicates if particle injection plane is active or not
@@ -190 +190 @@
 
 private:
-    const char *_name;                  /* Name of this box in the hash
-                                         * table. */
-    Tcl_HashEntry *_hashPtr;            /* Pointer to this entry in the hash
-                                         * table of boxes. */
+    const char *_name;          ///< Name of this box in the hash table.
+    Tcl_HashEntry *_hashPtr;    ///< Pointer to this entry in the hash table of boxes.
     FlowBoxValues _sv;
     static Rappture::SwitchSpec _switches[];
@@ -207 +205 @@
     int showOutline;
     int isHidden;
-    /* The following are settings for the volume.*/
-    float diffuse;
-    float specular;
-    float opacity;
+    float diffuse;  ///< Diffuse volume shading
+    float specular; ///< Specular volume shading
+    float opacity;  ///< Volume opacity
 };
 
@@ -230 +227 @@
 
     int GetParticles(Tcl_Interp *interp, Tcl_Obj *objPtr,
-                     FlowParticles **particlePtrPtr);
+                     FlowParticles **particlePtrPtr);
 
     void Render();