Changeset 1850

Timestamp:

Jul 30, 2010, 8:34:57 AM (14 years ago)

Author:

dkearney

Message:

adding perl wrapper example to configure and make scripts

Location:

trunk

Files:

• configure (modified) (2 diffs)
• configure.in (modified) (1 diff)
• examples/app-fermi/wrapper/Makefile.in (modified) (3 diffs)
• gui/scripts/editor.tcl (modified) (12 diffs)
• gui/scripts/gauge.tcl (modified) (24 diffs)
• lang/tcl/src/RpEncodeTclInterface.cc (modified) (17 diffs)
• packages/vizservers/nanovis/FlowCmd.cpp (modified) (124 diffs)
• packages/vizservers/nanovis/RpAVTranslate.h (modified) (1 diff)
• src/core/RpSimpleBuffer.h (modified) (1 diff)
• src/objects/RpMediaPlayer.cc (modified) (1 diff)

trunk/configure

@@ -9490 +9490 @@
 
 
-ac_config_files="$ac_config_files Makefile packages/Makefile src/Makefile src/core/Makefile src/core2/Makefile src/objects/Makefile src/objects/RpHash.h gui/Makefile gui/apps/Makefile gui/apps/about gui/apps/encodedata gui/apps/rappture gui/apps/rappture-csh.env gui/apps/rappture.env gui/apps/rappture.use gui/apps/rerun gui/apps/simsim gui/apps/xmldiff gui/pkgIndex.tcl gui/scripts/Makefile instant/Makefile instant/irappture lang/Makefile lang/java/Makefile lang/java/rappture/Makefile lang/perl/Makefile lang/perl/Makefile.PL lang/python/Makefile lang/python/setup.py lang/matlab/Makefile lang/octave/Makefile lang/octave/octave2/Makefile lang/octave/octave3/Makefile lang/ruby/Makefile lang/ruby/build.rb lang/tcl/Makefile lang/tcl/pkgIndex.tcl lang/tcl/src/Makefile lang/tcl/scripts/Makefile lang/tcl/tests/Makefile lib/Makefile examples/3D/Makefile examples/Makefile examples/app-fermi/2.0/Makefile examples/app-fermi/Makefile examples/app-fermi/cee/Makefile examples/app-fermi/fortran/Makefile examples/app-fermi/java/Makefile examples/app-fermi/matlab/Makefile examples/app-fermi/matlab/compiled/Makefile examples/app-fermi/matlab/uncompiled/Makefile examples/app-fermi/octave/Makefile examples/app-fermi/octave/2/Makefile examples/app-fermi/octave/3/Makefile examples/app-fermi/perl/Makefile examples/app-fermi/python/Makefile examples/app-fermi/ruby/Makefile examples/app-fermi/tcl/Makefile examples/app-fermi/wrapper/Makefile examples/app-fermi/wrapper/cee/Makefile examples/app-fermi/wrapper/python/Makefile examples/app-fermi/wrapper/tcl/Makefile examples/c-example/Makefile examples/canvas/Makefile examples/demo.bash examples/flow/Makefile examples/flow/demo1/Makefile examples/flow/demo2/Makefile examples/flow/demo3/Makefile examples/graph/Makefile examples/objects/Makefile examples/objects/axis/Makefile examples/objects/contour/Makefile examples/objects/curve/Makefile examples/objects/dxWriter/Makefile examples/objects/floatBuffer/Makefile examples/objects/histogram/Makefile examples/objects/library/Makefile examples/objects/number/Makefile examples/objects/path/Makefile examples/objects/plot/Makefile examples/objects/scatter/Makefile examples/objects/string/Makefile examples/objects/tree/Makefile examples/objects/xmlparser/Makefile examples/zoo/Makefile examples/zoo/binary/Makefile examples/zoo/boolean/Makefile examples/zoo/choice/Makefile examples/zoo/cloud/Makefile examples/zoo/cloud/matlab/Makefile examples/zoo/curve/Makefile examples/zoo/enable/Makefile examples/zoo/field/Makefile examples/zoo/group/Makefile examples/zoo/image/Makefile examples/zoo/image/docs/Makefile examples/zoo/image/examples/Makefile examples/zoo/integer/Makefile examples/zoo/integer2/Makefile examples/zoo/loader/Makefile examples/zoo/loader/examples/Makefile examples/zoo/loadrun/Makefile examples/zoo/log/Makefile examples/zoo/note/Makefile examples/zoo/note/docs/Makefile examples/zoo/number/Makefile examples/zoo/number2/Makefile examples/zoo/periodicelement/Makefile examples/zoo/phase/Makefile examples/zoo/sequence/Makefile examples/zoo/sequence/examples/Makefile examples/zoo/string/Makefile examples/zoo/structure/Makefile examples/zoo/structure/examples/Makefile examples/zoo/table/Makefile examples/zoo/unirect2d/Makefile test/Makefile test/src/Makefile"
+ac_config_files="$ac_config_files Makefile packages/Makefile src/Makefile src/core/Makefile src/core2/Makefile src/objects/Makefile src/objects/RpHash.h gui/Makefile gui/apps/Makefile gui/apps/about gui/apps/encodedata gui/apps/rappture gui/apps/rappture-csh.env gui/apps/rappture.env gui/apps/rappture.use gui/apps/rerun gui/apps/simsim gui/apps/xmldiff gui/pkgIndex.tcl gui/scripts/Makefile instant/Makefile instant/irappture lang/Makefile lang/java/Makefile lang/java/rappture/Makefile lang/perl/Makefile lang/perl/Makefile.PL lang/python/Makefile lang/python/setup.py lang/matlab/Makefile lang/octave/Makefile lang/octave/octave2/Makefile lang/octave/octave3/Makefile lang/ruby/Makefile lang/ruby/build.rb lang/tcl/Makefile lang/tcl/pkgIndex.tcl lang/tcl/src/Makefile lang/tcl/scripts/Makefile lang/tcl/tests/Makefile lib/Makefile examples/3D/Makefile examples/Makefile examples/app-fermi/2.0/Makefile examples/app-fermi/Makefile examples/app-fermi/cee/Makefile examples/app-fermi/fortran/Makefile examples/app-fermi/java/Makefile examples/app-fermi/matlab/Makefile examples/app-fermi/matlab/compiled/Makefile examples/app-fermi/matlab/uncompiled/Makefile examples/app-fermi/octave/Makefile examples/app-fermi/octave/2/Makefile examples/app-fermi/octave/3/Makefile examples/app-fermi/perl/Makefile examples/app-fermi/python/Makefile examples/app-fermi/ruby/Makefile examples/app-fermi/tcl/Makefile examples/app-fermi/wrapper/Makefile examples/app-fermi/wrapper/cee/Makefile examples/app-fermi/wrapper/perl/Makefile examples/app-fermi/wrapper/python/Makefile examples/app-fermi/wrapper/tcl/Makefile examples/c-example/Makefile examples/canvas/Makefile examples/demo.bash examples/flow/Makefile examples/flow/demo1/Makefile examples/flow/demo2/Makefile examples/flow/demo3/Makefile examples/graph/Makefile examples/objects/Makefile examples/objects/axis/Makefile examples/objects/contour/Makefile examples/objects/curve/Makefile examples/objects/dxWriter/Makefile examples/objects/floatBuffer/Makefile examples/objects/histogram/Makefile examples/objects/library/Makefile examples/objects/number/Makefile examples/objects/path/Makefile examples/objects/plot/Makefile examples/objects/scatter/Makefile examples/objects/string/Makefile examples/objects/tree/Makefile examples/objects/xmlparser/Makefile examples/zoo/Makefile examples/zoo/binary/Makefile examples/zoo/boolean/Makefile examples/zoo/choice/Makefile examples/zoo/cloud/Makefile examples/zoo/cloud/matlab/Makefile examples/zoo/curve/Makefile examples/zoo/enable/Makefile examples/zoo/field/Makefile examples/zoo/group/Makefile examples/zoo/image/Makefile examples/zoo/image/docs/Makefile examples/zoo/image/examples/Makefile examples/zoo/integer/Makefile examples/zoo/integer2/Makefile examples/zoo/loader/Makefile examples/zoo/loader/examples/Makefile examples/zoo/loadrun/Makefile examples/zoo/log/Makefile examples/zoo/note/Makefile examples/zoo/note/docs/Makefile examples/zoo/number/Makefile examples/zoo/number2/Makefile examples/zoo/periodicelement/Makefile examples/zoo/phase/Makefile examples/zoo/sequence/Makefile examples/zoo/sequence/examples/Makefile examples/zoo/string/Makefile examples/zoo/structure/Makefile examples/zoo/structure/examples/Makefile examples/zoo/table/Makefile examples/zoo/unirect2d/Makefile test/Makefile test/src/Makefile"
 
 cat >confcache <<\_ACEOF
@@ -10239 +10239 @@
     "examples/app-fermi/wrapper/Makefile") CONFIG_FILES="$CONFIG_FILES examples/app-fermi/wrapper/Makefile" ;;
     "examples/app-fermi/wrapper/cee/Makefile") CONFIG_FILES="$CONFIG_FILES examples/app-fermi/wrapper/cee/Makefile" ;;
+    "examples/app-fermi/wrapper/perl/Makefile") CONFIG_FILES="$CONFIG_FILES examples/app-fermi/wrapper/perl/Makefile" ;;
     "examples/app-fermi/wrapper/python/Makefile") CONFIG_FILES="$CONFIG_FILES examples/app-fermi/wrapper/python/Makefile" ;;
     "examples/app-fermi/wrapper/tcl/Makefile") CONFIG_FILES="$CONFIG_FILES examples/app-fermi/wrapper/tcl/Makefile" ;;

trunk/configure.in

@@ -722 +722 @@
     examples/app-fermi/wrapper/Makefile
     examples/app-fermi/wrapper/cee/Makefile
+    examples/app-fermi/wrapper/perl/Makefile
     examples/app-fermi/wrapper/python/Makefile
     examples/app-fermi/wrapper/tcl/Makefile

trunk/examples/app-fermi/wrapper/Makefile.in

@@ -1 +1 @@
 
 bindir          = @bindir@
-datadir         = @datadir@
-datarootdir     = @datarootdir@
+datadir         = @datadir@
+datarootdir     = @datarootdir@
 exec_prefix     = @exec_prefix@
 includedir      = @includedir@
@@ -8 +8 @@
 mandir          = @mandir@
 prefix          = @prefix@
-srcdir          = @srcdir@
+srcdir          = @srcdir@
 
-INSTALL         = @INSTALL@
-VPATH           = $(srcdir)
-SHELL           = @SHELL@
-RM              = rm -f
+INSTALL         = @INSTALL@
+VPATH           = $(srcdir)
+SHELL           = @SHELL@
+RM              = rm -f
 
-.PHONY: cee python tcl
+.PHONY: cee python tcl perl
 
-all:    python tcl cee
+all:    python tcl cee perl
 
 cee:
         $(MAKE) -C cee all
-python: 
+perl:
+        $(MAKE) -C perl all
+python:
         $(MAKE) -C python all
-tcl: 
+tcl:
         $(MAKE) -C tcl all
+
 
 install:
         $(MAKE) -C cee install
+        $(MAKE) -C perl install
         $(MAKE) -C python install
         $(MAKE) -C tcl install
@@ -33 +37 @@
 clean:
         $(MAKE) -C cee clean
+        $(MAKE) -C perl clean
         $(MAKE) -C python clean
         $(MAKE) -C tcl clean
 
-distclean: 
+distclean:
         $(MAKE) -C cee distclean
+        $(MAKE) -C perl distclean
         $(MAKE) -C python distclean
         $(MAKE) -C tcl distclean

trunk/gui/scripts/editor.tcl

@@ -58 +58 @@
     protected variable _loc   ;# array of editor location parameters
 }
-                                                                                
+                                                                                
 itk::usual Editor {
     keep -cursor -font
@@ -74 +74 @@
 
     itk_component add editor {
-        entry $itk_interior.editor -highlightthickness 0
+        entry $itk_interior.editor -highlightthickness 0
     } {
-        usual
-        keep -relief
-        ignore -highlightthickness
-        ignore -highlightcolor
-        ignore -highlightbackground
+        usual
+        keep -relief
+        ignore -highlightthickness
+        ignore -highlightcolor
+        ignore -highlightbackground
     }
     pack $itk_component(editor) -expand yes -fill both
 
     bind $itk_component(editor) <KeyPress> \
-        [itcl::code $this _resize]
+        [itcl::code $this _resize]
     bind $itk_component(editor) <KeyPress-Return> \
-        [itcl::code $this deactivate]
+        [itcl::code $this deactivate]
     bind $itk_component(editor) <KeyPress-Escape> \
-        [itcl::code $this deactivate -abort]
+        [itcl::code $this deactivate -abort]
     bind $itk_component(editor) <ButtonPress> \
-        [itcl::code $this _click %X %Y]
+        [itcl::code $this _click %X %Y]
 
     itk_component add emenu {
-        menu $itk_component(editor).menu -tearoff 0
+        menu $itk_component(editor).menu -tearoff 0
     } {
-        usual
-        ignore -tearoff
-        ignore -background -foreground
+        usual
+        ignore -tearoff
+        ignore -background -foreground
     }
     $itk_component(emenu) add command -label "Cut" -accelerator "^X" \
-        -command [list event generate $itk_component(editor) <<Cut>>]
+        -command [list event generate $itk_component(editor) <<Cut>>]
     $itk_component(emenu) add command -label "Copy" -accelerator "^C" \
-        -command [list event generate $itk_component(editor) <<Copy>>]
+        -command [list event generate $itk_component(editor) <<Copy>>]
     $itk_component(emenu) add command -label "Paste" -accelerator "^V" \
-        -command [list event generate $itk_component(editor) <<Paste>>]
+        -command [list event generate $itk_component(editor) <<Paste>>]
     bind $itk_component(editor) <<PopupMenu>> {
-        tk_popup %W.menu %X %Y
+        tk_popup %W.menu %X %Y
     }
 
@@ -124 +124 @@
     set e $itk_component(editor)
     if {[winfo ismapped $e]} {
-        return  ;# already mapped -- nothing to do
+        return  ;# already mapped -- nothing to do
     }
 
     set info ""
     if {[string length $itk_option(-activatecommand)] > 0} {
-        set status [catch {uplevel #0 $itk_option(-activatecommand)} info]
-        if {$status != 0} {
-            bgerror $info
-            return
-        }
+        set status [catch {uplevel #0 $itk_option(-activatecommand)} info]
+        if {$status != 0} {
+            bgerror $info
+            return
+        }
     }
 
@@ -145 +145 @@
     array set vals $info
     if {![info exists vals(x)] || ![info exists vals(y)]} {
-        return
+        return
     }
     set _loc(x) $vals(x)
@@ -154 +154 @@
     $itk_component(editor) delete 0 end
     if {[info exists vals(text)]} {
-        $itk_component(editor) insert end $vals(text)
+        $itk_component(editor) insert end $vals(text)
     }
     $itk_component(editor) select from 0
@@ -167 +167 @@
     update
     while {[catch {grab set -global $itk_component(editor)}]} {
-        after 100
+        after 100
     }
 }
@@ -188 +188 @@
 
     if {$args == "-abort"} {
-        grab release $itk_component(editor)
-        wm withdraw $itk_component(hull)
-        return
+        grab release $itk_component(editor)
+        wm withdraw $itk_component(hull)
+        return
     }
 
@@ -200 +200 @@
     #
     if {[string length $itk_option(-validatecommand)] > 0} {
-        set cmd "uplevel #0 [list $itk_option(-validatecommand) [list $str]]"
-        if {[catch $cmd result]} {
-            bgerror $result
-            set result 1
-        }
-        if {$result == 0} {
-            bell
-            $itk_component(editor) select from 0
-            $itk_component(editor) select to end
-            $itk_component(editor) icursor end
-            focus $itk_component(editor)
-            return
-        }
+        set cmd "uplevel #0 [list $itk_option(-validatecommand) [list $str]]"
+        if {[catch $cmd result]} {
+            bgerror $result
+            set result 1
+        }
+        if {$result == 0} {
+            bell
+            $itk_component(editor) select from 0
+            $itk_component(editor) select to end
+            $itk_component(editor) icursor end
+            focus $itk_component(editor)
+            return
+        }
     }
 
@@ -223 +223 @@
     #
     if {[string length $itk_option(-applycommand)] > 0} {
-        set cmd "uplevel #0 [list $itk_option(-applycommand) [list $str]]"
-        if {[catch $cmd result]} {
-            bgerror $result
-            return
-        }
+        set cmd "uplevel #0 [list $itk_option(-applycommand) [list $str]]"
+        if {[catch $cmd result]} {
+            bgerror $result
+            return
+        }
     }
 }
@@ -255 +255 @@
 itcl::body Rappture::Editor::_click {x y} {
     if {[winfo containing $x $y] != $itk_component(editor)} {
-        deactivate
+        deactivate
     } else {
-        # make sure the editor has keyboard focus!
-        # it loses focus sometimes during cut/copy/paste operations
-        focus -force $itk_component(editor)
+        # make sure the editor has keyboard focus!
+        # it loses focus sometimes during cut/copy/paste operations
+        focus -force $itk_component(editor)
     }
 }
@@ -278 +278 @@
     set w [expr {($w < $_loc(w)) ? $_loc(w) : $w}]
     if {$w+$_loc(x) >= [winfo screenwidth $e]} {
-        set w [expr {[winfo screenwidth $e]-$_loc(x)}]
+        set w [expr {[winfo screenwidth $e]-$_loc(x)}]
     }
 
@@ -284 +284 @@
     set h [expr {($h < $_loc(h)) ? $_loc(h) : $h}]
     if {$h+$_loc(y) >= [winfo screenheight $e]} {
-        set h [expr {[winfo screenheight $e]-$_loc(y)}]
-    }                                   
+        set h [expr {[winfo screenheight $e]-$_loc(y)}]
+    }                                        
     # Temporary fix to prevent Opps. Don't deal with negative dimensions.
     if { $w <= 0 || $h <= 0 } {
-        wm geometry $itk_component(hull) "+$_loc(x)+$_loc(y)"
+        wm geometry $itk_component(hull) "+$_loc(x)+$_loc(y)"
     } else {
-        wm geometry $itk_component(hull) "${w}x${h}+$_loc(x)+$_loc(y)"
+        wm geometry $itk_component(hull) "${w}x${h}+$_loc(x)+$_loc(y)"
     }
 }

trunk/gui/scripts/gauge.tcl

@@ -55 +55 @@
 
     blt::bitmap define GaugeArrow-up {
-        #define up_width 8
-        #define up_height 4
-        static unsigned char up_bits[] = {
-           0x10, 0x38, 0x7c, 0xfe};
+        #define up_width 8
+        #define up_height 4
+        static unsigned char up_bits[] = {
+           0x10, 0x38, 0x7c, 0xfe};
     }
     blt::bitmap define GaugeArrow-down {
-        #define arrow_width 8
-        #define arrow_height 4
-        static unsigned char arrow_bits[] = {
-           0xfe, 0x7c, 0x38, 0x10};
+        #define arrow_width 8
+        #define arrow_height 4
+        static unsigned char arrow_bits[] = {
+           0xfe, 0x7c, 0x38, 0x10};
     }
 
     blt::bitmap define GaugeArrow {
-        #define arrow_width 9
-        #define arrow_height 4
-        static unsigned char arrow_bits[] = {
-           0x7f, 0x00, 0x3e, 0x00, 0x1c, 0x00, 0x08, 0x00};
-    }
-}
-                                                                                
+        #define arrow_width 9
+        #define arrow_height 4
+        static unsigned char arrow_bits[] = {
+           0x7f, 0x00, 0x3e, 0x00, 0x1c, 0x00, 0x08, 0x00};
+    }
+}
+                                                                                
 itk::usual Gauge {
     keep -cursor -font -foreground -background
@@ -85 +85 @@
 itcl::body Rappture::Gauge::constructor {args} {
     itk_component add icon {
-        canvas $itk_interior.icon -width 1 -height 1 \
-            -borderwidth 0 -highlightthickness 0
+        canvas $itk_interior.icon -width 1 -height 1 \
+            -borderwidth 0 -highlightthickness 0
     } {
-        usual
-        ignore -highlightthickness -highlightbackground -highlightcolor
+        usual
+        ignore -highlightthickness -highlightbackground -highlightcolor
     }
     pack $itk_component(icon) -side left
@@ -95 +95 @@
 
     itk_component add -protected vframe {
-        frame $itk_interior.vframe
+        frame $itk_interior.vframe
     }
 
     itk_component add value {
-        label $itk_component(vframe).value -borderwidth 1 -width 7 \
-            -textvariable [itcl::scope _value]
+        label $itk_component(vframe).value -borderwidth 1 -width 7 \
+            -textvariable [itcl::scope _value]
     } {
-        rename -background -textbackground textBackground Background
+        rename -background -textbackground textBackground Background
     }
     pack $itk_component(value) -side left -expand yes -fill both
@@ -114 +114 @@
 
     itk_component add emenu {
-        menu $itk_component(value).menu -tearoff 0
+        menu $itk_component(value).menu -tearoff 0
     } {
-        usual
-        ignore -tearoff
+        usual
+        ignore -tearoff
     }
     $itk_component(emenu) add command -label "Cut" -accelerator "^X" \
-        -command [list event generate $itk_component(value) <<Cut>>]
+        -command [list event generate $itk_component(value) <<Cut>>]
     $itk_component(emenu) add command -label "Copy" -accelerator "^C" \
-        -command [list event generate $itk_component(value) <<Copy>>]
+        -command [list event generate $itk_component(value) <<Copy>>]
     $itk_component(emenu) add command -label "Paste" -accelerator "^V" \
-        -command [list event generate $itk_component(value) <<Paste>>]
+        -command [list event generate $itk_component(value) <<Paste>>]
     bind $itk_component(value) <<PopupMenu>> \
-        [itcl::code $this _editor menu %X %Y]
+        [itcl::code $this _editor menu %X %Y]
 
     itk_component add editor {
-        Rappture::Editor $itk_interior.editor \
-            -activatecommand [itcl::code $this _editor activate] \
-            -validatecommand [itcl::code $this _editor validate] \
-            -applycommand [itcl::code $this _editor apply]
+        Rappture::Editor $itk_interior.editor \
+            -activatecommand [itcl::code $this _editor activate] \
+            -validatecommand [itcl::code $this _editor validate] \
+            -applycommand [itcl::code $this _editor apply]
     }
     bind $itk_component(value) <ButtonPress> \
-        [itcl::code $this _editor popup]
+        [itcl::code $this _editor popup]
 
 
     itk_component add spinner {
-        frame $itk_component(vframe).spinner
+        frame $itk_component(vframe).spinner
     }
 
     itk_component add spinup {
-        button $itk_component(spinner).up -bitmap GaugeArrow-up \
-            -borderwidth 1 -relief raised -highlightthickness 0 \
-            -command [itcl::code $this bump 1]
+        button $itk_component(spinner).up -bitmap GaugeArrow-up \
+            -borderwidth 1 -relief raised -highlightthickness 0 \
+            -command [itcl::code $this bump 1]
     } {
-        usual
-        ignore -borderwidth -highlightthickness
+        usual
+        ignore -borderwidth -highlightthickness
     }
     pack $itk_component(spinup) -side top -expand yes -fill both
 
     itk_component add spindn {
-        button $itk_component(spinner).down -bitmap GaugeArrow-down \
-            -borderwidth 1 -relief raised -highlightthickness 0 \
-            -command [itcl::code $this bump -1]
+        button $itk_component(spinner).down -bitmap GaugeArrow-down \
+            -borderwidth 1 -relief raised -highlightthickness 0 \
+            -command [itcl::code $this bump -1]
     } {
-        usual
-        ignore -borderwidth -highlightthickness
+        usual
+        ignore -borderwidth -highlightthickness
     }
     pack $itk_component(spindn) -side bottom -expand yes -fill both
@@ -164 +164 @@
 
     itk_component add presets {
-        button $itk_component(vframe).psbtn -bitmap GaugeArrow \
-            -borderwidth 1 -highlightthickness 0 -relief flat
+        button $itk_component(vframe).psbtn -bitmap GaugeArrow \
+            -borderwidth 1 -highlightthickness 0 -relief flat
     } {
-        usual
-        ignore -borderwidth -relief -highlightthickness
-        rename -background -textbackground textBackground Background
+        usual
+        ignore -borderwidth -relief -highlightthickness
+        rename -background -textbackground textBackground Background
     }
 
@@ -176 +176 @@
 
     itk_component add presetlist {
-        Rappture::Dropdownlist $itk_component(presets).plist \
-            -postcommand [itcl::code $this _presets post] \
-            -unpostcommand [itcl::code $this _presets unpost] \
+        Rappture::Dropdownlist $itk_component(presets).plist \
+            -postcommand [itcl::code $this _presets post] \
+            -unpostcommand [itcl::code $this _presets unpost] \
     }
 
     bind $itk_component(presetlist) <<DropdownlistSelect>> \
-        [itcl::code $this _presets select]
+        [itcl::code $this _presets select]
 
     $itk_component(presets) configure -command \
-        [list $itk_component(presetlist) post $itk_component(vframe) left]
+        [list $itk_component(presetlist) post $itk_component(vframe) left]
 
     eval itk_initialize $args
@@ -203 +203 @@
     set i [lsearch -exact $args -check]
     if {$i >= 0} {
-        set onlycheck 1
-        set args [lreplace $args $i $i]
+        set onlycheck 1
+        set args [lreplace $args $i $i]
     }
 
     if {[llength $args] == 1} {
-        #
-        # If this gauge has -units, try to convert the incoming
-        # value to that system of units.  Also, make sure that
-        # the value is bound by any min/max value constraints.
-        #
-        # Keep track of the inputted units so we can give a 
-        # response about min and max values in familiar units.
-        #
-        set newval [set nv [lindex $args 0]]
-        set units $itk_option(-units)
-        if {"" != $units} {
-            set newval [Rappture::Units::convert $newval -context $units]
-            set nvUnits [Rappture::Units::Search::for $newval]
-            if { "" == $nvUnits} {
-                set msg [Rappture::Units::description $units]
-                error "Unrecognized units: $newval\nEnter value with units of $msg"
-            }
-            set nv [Rappture::Units::convert $nv \
-                -context $units -to $units -units off]
-
-            # Normalize the units name
-            set newval [Rappture::Units::convert $newval -units off]$nvUnits
-        }
-
-        switch -- $itk_option(-type) {
-            integer {
-                if { [scan $nv "%g" value] != 1 || int($nv) != $value } {
-                    error "bad value \"$nv\": should be an integer value"
-                }
-            }
-            real {
-                if {[string length $nv] <= 0
-                      || ![string is double $nv]
-                      || [regexp -nocase {^(inf|nan)$} $nv]} {
-                    error "bad value \"$nv\": should be a real number"
-                }
-            }
-        }
-
-        if {"" != $itk_option(-minvalue)} {
-            set convMinVal [set minv $itk_option(-minvalue)]
-            if {"" != $units} {
-                set minv [Rappture::Units::convert $minv \
-                    -context $units -to $units -units off]
-                set convMinVal [Rappture::Units::convert \
-                    $itk_option(-minvalue) -context $units -to $nvUnits]
-            } else {
-                set newval [format "%g" $newval]
-            }
-
-            # fix for the case when the user tries to
-            # compare values like minv=-500 nv=-0600
-            set nv [format "%g" $nv]
-            set minv [format "%g" $minv]
-
-            if {$nv < $minv} {
-                error "minimum value allowed here is $convMinVal"
-            }
-        }
-
-        if {"" != $itk_option(-maxvalue)} {
-            set convMaxVal [set maxv $itk_option(-maxvalue)]
-            if {"" != $units} {
-                set maxv [Rappture::Units::convert $maxv \
-                    -context $units -to $units -units off]
-                set convMaxVal [Rappture::Units::convert \
-                    $itk_option(-maxvalue) -context $units -to $nvUnits]
-            } else {
-                set newval [format "%g" $newval]
-            }
-
-            # fix for the case when the user tries to
-            # compare values like maxv=500 nv=0600
-            set nv [format "%g" $nv]
-            set maxv [format "%g" $maxv]
-
-            if {$nv > $maxv} {
-                error "maximum value allowed here is $convMaxVal"
-            }
-        }
-
-        if {$onlycheck} {
-            return
-        }
-
-        set _value $newval
-
-        _redraw
-        event generate $itk_component(hull) <<Value>>
+        #
+        # If this gauge has -units, try to convert the incoming
+        # value to that system of units.  Also, make sure that
+        # the value is bound by any min/max value constraints.
+        #
+        # Keep track of the inputted units so we can give a 
+        # response about min and max values in familiar units.
+        #
+        set newval [set nv [lindex $args 0]]
+        set units $itk_option(-units)
+        if {"" != $units} {
+            set newval [Rappture::Units::convert $newval -context $units]
+            set nvUnits [Rappture::Units::Search::for $newval]
+            if { "" == $nvUnits} {
+                set msg [Rappture::Units::description $units]
+                error "Unrecognized units: $newval\nEnter value with units of $msg"
+            }
+            set nv [Rappture::Units::convert $nv \
+                -context $units -to $units -units off]
+
+            # Normalize the units name
+            set newval [Rappture::Units::convert $newval -units off]$nvUnits
+        }
+
+        switch -- $itk_option(-type) {
+            integer {
+                if { [scan $nv "%g" value] != 1 || int($nv) != $value } {
+                    error "bad value \"$nv\": should be an integer value"
+                }
+            }
+            real {
+                if {[string length $nv] <= 0
+                      || ![string is double $nv]
+                      || [regexp -nocase {^(inf|nan)$} $nv]} {
+                    error "bad value \"$nv\": should be a real number"
+                }
+            }
+        }
+
+        if {"" != $itk_option(-minvalue)} {
+            set convMinVal [set minv $itk_option(-minvalue)]
+            if {"" != $units} {
+                set minv [Rappture::Units::convert $minv \
+                    -context $units -to $units -units off]
+                set convMinVal [Rappture::Units::convert \
+                    $itk_option(-minvalue) -context $units -to $nvUnits]
+            } else {
+                set newval [format "%g" $newval]
+            }
+
+            # fix for the case when the user tries to
+            # compare values like minv=-500 nv=-0600
+            set nv [format "%g" $nv]
+            set minv [format "%g" $minv]
+
+            if {$nv < $minv} {
+                error "minimum value allowed here is $convMinVal"
+            }
+        }
+
+        if {"" != $itk_option(-maxvalue)} {
+            set convMaxVal [set maxv $itk_option(-maxvalue)]
+            if {"" != $units} {
+                set maxv [Rappture::Units::convert $maxv \
+                    -context $units -to $units -units off]
+                set convMaxVal [Rappture::Units::convert \
+                    $itk_option(-maxvalue) -context $units -to $nvUnits]
+            } else {
+                set newval [format "%g" $newval]
+            }
+
+            # fix for the case when the user tries to
+            # compare values like maxv=500 nv=0600
+            set nv [format "%g" $nv]
+            set maxv [format "%g" $maxv]
+
+            if {$nv > $maxv} {
+                error "maximum value allowed here is $convMaxVal"
+            }
+        }
+
+        if {$onlycheck} {
+            return
+        }
+
+        set _value $newval
+
+        _redraw
+        event generate $itk_component(hull) <<Value>>
 
     } elseif {[llength $args] != 0} {
-        error "wrong # args: should be \"value ?-check? ?newval?\""
+        error "wrong # args: should be \"value ?-check? ?newval?\""
     }
     return $_value
@@ -315 +315 @@
 itcl::body Rappture::Gauge::edit {option} {
     if {$itk_option(-state) == "disabled"} {
-        return  ;# disabled? then bail out here!
+        return  ;# disabled? then bail out here!
     }
     switch -- $option {
-        cut {
-            edit copy
-            _editor popup
-            $itk_component(editor) value ""
-            $itk_component(editor) deactivate
-        }
-        copy {
-            clipboard clear
-            clipboard append $_value
-        }
-        paste {
-            _editor popup
-            $itk_component(editor) value [clipboard get]
-            $itk_component(editor) deactivate
-        }
-        default {
-            error "bad option \"$option\": should be cut, copy, paste"
-        }
+        cut {
+            edit copy
+            _editor popup
+            $itk_component(editor) value ""
+            $itk_component(editor) deactivate
+        }
+        copy {
+            clipboard clear
+            clipboard append $_value
+        }
+        paste {
+            _editor popup
+            $itk_component(editor) value [clipboard get]
+            $itk_component(editor) deactivate
+        }
+        default {
+            error "bad option \"$option\": should be cut, copy, paste"
+        }
     }
 }
@@ -349 +349 @@
     set val $_value
     if {$val == ""} {
-        set val 0
+        set val 0
     }
     if {[catch {value [expr {$val+$delta}]} result]} {
-        if {[regexp {allowed here is (.+)} $result match newval]} {
-            set _value $newval
-            $itk_component(value) configure -text $newval
-        }
-        if {[regexp {^bad.*: +(.)(.+)} $result match first tail]
-              || [regexp {(.)(.+)} $result match first tail]} {
-            set result "[string toupper $first]$tail"
-        }
-        bell
-        Rappture::Tooltip::cue $itk_component(value) $result
-        return 0
+        if {[regexp {allowed here is (.+)} $result match newval]} {
+            set _value $newval
+            $itk_component(value) configure -text $newval
+        }
+        if {[regexp {^bad.*: +(.)(.+)} $result match first tail]
+              || [regexp {(.)(.+)} $result match first tail]} {
+            set result "[string toupper $first]$tail"
+        }
+        bell
+        Rappture::Tooltip::cue $itk_component(value) $result
+        return 0
     }
 }
@@ -380 +380 @@
 
     if {"" == [$c find all]} {
-        # first time around, create the items
-        $c create rectangle 0 0 1 1 -outline black -tags block
-        $c create image 0 0 -anchor center -image "" -tags bimage
-        $c create rectangle 0 0 1 1 -outline "" -fill "" -stipple gray50 -tags screen
+        # first time around, create the items
+        $c create rectangle 0 0 1 1 -outline black -tags block
+        $c create image 0 0 -anchor center -image "" -tags bimage
+        $c create rectangle 0 0 1 1 -outline "" -fill "" -stipple gray50 -tags screen
     }
 
     if {"" != $itk_option(-spectrum)} {
-        set color [$itk_option(-spectrum) get $_value]
+        set color [$itk_option(-spectrum) get $_value]
     } else {
-        set color ""
+        set color ""
     }
 
@@ -400 +400 @@
 
     if {$itk_option(-state) == "disabled"} {
-        $c itemconfigure screen -fill white
+        $c itemconfigure screen -fill white
     } else {
-        $c itemconfigure screen -fill ""
+        $c itemconfigure screen -fill ""
     }
 }
@@ -417 +417 @@
 
     if {"" != $itk_option(-image) || "" != $itk_option(-spectrum)} {
-        if {$itk_option(-samplewidth) > 0} {
-            set w $itk_option(-samplewidth)
-        } else {
-            if {$itk_option(-image) != ""} {
-                set w [expr {[image width $itk_option(-image)]+4}]
-            } else {
-                set w [winfo reqheight $itk_component(value)]
-            }
-        }
-
-        if {$itk_option(-sampleheight) > 0} {
-            set h $itk_option(-sampleheight)
-        } else {
-            if {$itk_option(-image) != ""} {
-                set h [expr {[image height $itk_option(-image)]+4}]
-            } else {
-                set h [winfo reqheight $itk_component(value)]
-            }
-        }
+        if {$itk_option(-samplewidth) > 0} {
+            set w $itk_option(-samplewidth)
+        } else {
+            if {$itk_option(-image) != ""} {
+                set w [expr {[image width $itk_option(-image)]+4}]
+            } else {
+                set w [winfo reqheight $itk_component(value)]
+            }
+        }
+
+        if {$itk_option(-sampleheight) > 0} {
+            set h $itk_option(-sampleheight)
+        } else {
+            if {$itk_option(-image) != ""} {
+                set h [expr {[image height $itk_option(-image)]+4}]
+            } else {
+                set h [winfo reqheight $itk_component(value)]
+            }
+        }
     }
 
     if {$w > 0 && $h > 0} {
-        $itk_component(icon) configure -width $w -height $h
+        $itk_component(icon) configure -width $w -height $h
     }
 }
@@ -451 +451 @@
 itcl::body Rappture::Gauge::_hilite {comp state} {
     if {$itk_option(-state) == "disabled"} {
-        set state 0  ;# disabled? then don't hilite
+        set state 0  ;# disabled? then don't hilite
     }
     if {$comp == "value" && !$itk_option(-editable)} {
-        $itk_component(value) configure -relief flat
-        return
+        $itk_component(value) configure -relief flat
+        return
     }
 
     if {$state} {
-        $itk_component($comp) configure -relief solid
+        $itk_component($comp) configure -relief solid
     } else {
-        $itk_component($comp) configure -relief flat
+        $itk_component($comp) configure -relief flat
     }
 }
@@ -477 +477 @@
 itcl::body Rappture::Gauge::_editor {option args} {
     if {$itk_option(-state) == "disabled"} {
-        return  ;# disabled? then bail out here!
+        return  ;# disabled? then bail out here!
     }
     switch -- $option {
-        popup {
-            if {$itk_option(-editable)} {
-                $itk_component(editor) activate
-            }
-        }
-        activate {
-            return [list text $_value \
-                x [winfo rootx $itk_component(value)] \
-                y [winfo rooty $itk_component(value)] \
-                w [winfo width $itk_component(value)] \
-                h [winfo height $itk_component(value)]]
-        }
-        validate {
-            if {[llength $args] != 1} {
-                error "wrong # args: should be \"_editor validate val\""
-            }
-            set val [lindex $args 0]
-
-            if {[catch {value -check $val} result]} {
-                if {[regexp {allowed here is (.+)} $result match newval]} {
-                    $itk_component(editor) value $newval
-                }
-                if {[regexp {^bad.*: +(.)(.+)} $result match first tail]
-                      || [regexp {(.)(.+)} $result match first tail]} {
-                    set result "[string toupper $first]$tail"
-                }
-                bell
-                Rappture::Tooltip::cue $itk_component(editor) $result
-                return 0
-            }
-        }
-        apply {
-            if {[llength $args] != 1} {
-                error "wrong # args: should be \"_editor apply val\""
-            }
-            value [lindex $args 0]
-        }
-        menu {
-            eval tk_popup $itk_component(emenu) $args
-        }
-        default {
-            error "bad option \"$option\": should be popup, activate, validate, apply, and menu"
-        }
+        popup {
+            if {$itk_option(-editable)} {
+                $itk_component(editor) activate
+            }
+        }
+        activate {
+            return [list text $_value \
+                x [winfo rootx $itk_component(value)] \
+                y [winfo rooty $itk_component(value)] \
+                w [winfo width $itk_component(value)] \
+                h [winfo height $itk_component(value)]]
+        }
+        validate {
+            if {[llength $args] != 1} {
+                error "wrong # args: should be \"_editor validate val\""
+            }
+            set val [lindex $args 0]
+
+            if {[catch {value -check $val} result]} {
+                if {[regexp {allowed here is (.+)} $result match newval]} {
+                    $itk_component(editor) value $newval
+                }
+                if {[regexp {^bad.*: +(.)(.+)} $result match first tail]
+                      || [regexp {(.)(.+)} $result match first tail]} {
+                    set result "[string toupper $first]$tail"
+                }
+                bell
+                Rappture::Tooltip::cue $itk_component(editor) $result
+                return 0
+            }
+        }
+        apply {
+            if {[llength $args] != 1} {
+                error "wrong # args: should be \"_editor apply val\""
+            }
+            value [lindex $args 0]
+        }
+        menu {
+            eval tk_popup $itk_component(emenu) $args
+        }
+        default {
+            error "bad option \"$option\": should be popup, activate, validate, apply, and menu"
+        }
     }
 }
@@ -539 +539 @@
 itcl::body Rappture::Gauge::_presets {option} {
     switch -- $option {
-        post {
-            set i [$itk_component(presetlist) index $_value]
-            if {$i >= 0} {
-                $itk_component(presetlist) select clear 0 end
-                $itk_component(presetlist) select set $i
-            }
-            after 10 [list $itk_component(presets) configure -relief sunken]
-        }
-        unpost {
-            $itk_component(presets) configure -relief flat
-        }
-        select {
-            set val [$itk_component(presetlist) current]
-            if {"" != $val} {
-                value $val
-            }
-        }
-        default {
-            error "bad option \"$option\": should be post, unpost, select"
-        }
+        post {
+            set i [$itk_component(presetlist) index $_value]
+            if {$i >= 0} {
+                $itk_component(presetlist) select clear 0 end
+                $itk_component(presetlist) select set $i
+            }
+            after 10 [list $itk_component(presets) configure -relief sunken]
+        }
+        unpost {
+            $itk_component(presets) configure -relief flat
+        }
+        select {
+            set val [$itk_component(presetlist) current]
+            if {"" != $val} {
+                value $val
+            }
+        }
+        default {
+            error "bad option \"$option\": should be post, unpost, select"
+        }
     }
 }
@@ -572 +572 @@
 itcl::body Rappture::Gauge::_layout {} {
     foreach w [pack slaves $itk_component(hull)] {
-        pack forget $w
+        pack forget $w
     }
 
     array set side2anchor {
-        left   e
-        right  w
-        top    s
-        bottom n
+        left   e
+        right  w
+        top    s
+        bottom n
     }
     set pos $itk_option(-valueposition)
     pack $itk_component(vframe) -side $pos \
-        -expand yes -fill both -ipadx 2
+        -expand yes -fill both -ipadx 2
     $itk_component(value) configure -anchor $side2anchor($pos)
 
     if {"" != $itk_option(-image) || "" != $itk_option(-spectrum)} {
-        pack $itk_component(icon) -side $pos
+        pack $itk_component(icon) -side $pos
     }
 }
@@ -596 +596 @@
 itcl::configbody Rappture::Gauge::editable {
     if {![string is boolean -strict $itk_option(-editable)]} {
-        error "bad value \"$itk_option(-editable)\": should be boolean"
+        error "bad value \"$itk_option(-editable)\": should be boolean"
     }
     if {!$itk_option(-editable) && [winfo ismapped $itk_component(editor)]} {
-        $itk_component(editor) deactivate -abort
+        $itk_component(editor) deactivate -abort
     }
 }
@@ -609 +609 @@
     set valid {normal disabled}
     if {[lsearch -exact $valid $itk_option(-state)] < 0} {
-        error "bad value \"$itk_option(-state)\": should be [join $valid {, }]"
+        error "bad value \"$itk_option(-state)\": should be [join $valid {, }]"
     }
     $itk_component(value) configure -state $itk_option(-state)
@@ -623 +623 @@
 itcl::configbody Rappture::Gauge::spectrum {
     if {$itk_option(-spectrum) != ""
-          && ([catch {$itk_option(-spectrum) isa ::Rappture::Spectrum} valid]
-               || !$valid)} {
-        error "bad option \"$itk_option(-spectrum)\": should be Rappture::Spectrum object"
+          && ([catch {$itk_option(-spectrum) isa ::Rappture::Spectrum} valid]
+               || !$valid)} {
+        error "bad option \"$itk_option(-spectrum)\": should be Rappture::Spectrum object"
     }
     _resize
@@ -637 +637 @@
 itcl::configbody Rappture::Gauge::image {
     if {$itk_option(-image) != ""
-          && [catch {image width $itk_option(-image)}]} {
-        error "bad value \"$itk_option(-image)\": should be Tk image"
+          && [catch {image width $itk_option(-image)}]} {
+        error "bad value \"$itk_option(-image)\": should be Tk image"
     }
     _resize
@@ -650 +650 @@
 itcl::configbody Rappture::Gauge::units {
     if {$itk_option(-units) != ""
-          && [::Rappture::Units::System::for $itk_option(-units)] == ""} {
-        error "unrecognized system of units \"$itk_option(-units)\""
+          && [::Rappture::Units::System::for $itk_option(-units)] == ""} {
+        error "unrecognized system of units \"$itk_option(-units)\""
     }
 }
@@ -662 +662 @@
     set opts {left right top bottom}
     if {[lsearch -exact $opts $pos] < 0} {
-        error "bad value \"$pos\": should be [join $opts {, }]"
+        error "bad value \"$pos\": should be [join $opts {, }]"
     }
     _layout
@@ -672 +672 @@
 itcl::configbody Rappture::Gauge::presets {
     if {"" == $itk_option(-presets)} {
-        pack forget $itk_component(presets)
+        pack forget $itk_component(presets)
     } else {
-        if {$itk_option(-valueposition) == "left"} {
-            set s "left"
-        } else {
-            set s "right"
-        }
-        set first [lindex [pack slaves $itk_component(vframe)] 0]
-        pack $itk_component(presets) -before $first -side $s -fill y
-
-        $itk_component(presetlist) delete 0 end
-        $itk_component(presetlist) insert end $itk_option(-presets)
+        if {$itk_option(-valueposition) == "left"} {
+            set s "left"
+        } else {
+            set s "right"
+        }
+        set first [lindex [pack slaves $itk_component(vframe)] 0]
+        pack $itk_component(presets) -before $first -side $s -fill y
+
+        $itk_component(presetlist) delete 0 end
+        $itk_component(presetlist) insert end $itk_option(-presets)
     }
 }
@@ -692 +692 @@
 itcl::configbody Rappture::Gauge::type {
     switch -- $itk_option(-type) {
-        integer {
-            set first [lindex [pack slaves $itk_component(vframe)] 0]
-            if {$first == $itk_component(presets)} {
-                pack $itk_component(spinner) -after $first -side left -fill y
-            } else {
-                pack $itk_component(spinner) -before $first -side right -fill y
-            }
-        }
-        real {
-            pack forget $itk_component(spinner)
-        }
-        default {
-            error "bad number type \"$itk_option(-type)\": should be integer or real"
-        }
-    }
-}
+        integer {
+            set first [lindex [pack slaves $itk_component(vframe)] 0]
+            if {$first == $itk_component(presets)} {
+                pack $itk_component(spinner) -after $first -side left -fill y
+            } else {
+                pack $itk_component(spinner) -before $first -side right -fill y
+            }
+        }
+        real {
+            pack forget $itk_component(spinner)
+        }
+        default {
+            error "bad number type \"$itk_option(-type)\": should be integer or real"
+        }
+    }
+}

trunk/lang/tcl/src/RpEncodeTclInterface.cc

@@ -81 +81 @@
         string = (Rappture::encoding::isBinary(buf, bufLen)) ? "yes" : "no";
     } else if (('e' == *type) && (strcmp(type,"encoded") == 0)) {
-        bool isEncoded;
+        bool isEncoded;
 
         isEncoded = (Rappture::encoding::headerFlags(buf, bufLen) != 0);
-        string = (isEncoded) ? "yes" : "no" ;
+        string = (isEncoded) ? "yes" : "no" ;
     } else {
-        Tcl_AppendResult(interp, "bad option \"", type, 
-                "\": should be binary or encoded", (char*)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad option \"", type, 
+                "\": should be binary or encoded", (char*)NULL);
+        return TCL_ERROR;
     }
     Tcl_SetResult(interp, (char *)string, TCL_STATIC);
@@ -114 +114 @@
  * AsSwitch --
  *
- *      Convert a string represent a node number into its integer
- *      value.
+ *        Convert a string represent a node number into its integer
+ *        value.
  *
  * Results:
- *      The return value is a standard Tcl result.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -125 +125 @@
 static int
 AsSwitch(
-    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,                 /* Offset to field in structure */
-    int flags)                  /* Not used. */
+    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,                        /* Offset to field in structure */
+    int flags)                        /* Not used. */
 {
     int *flagsPtr = (int *)(record + offset);
@@ -140 +140 @@
     c = string[0];
     if ((c == 'b') && (strcmp(string, "b64") == 0)) {
-        *flagsPtr = RPENC_B64;
+        *flagsPtr = RPENC_B64;
     } else if ((c == 'z') && (strcmp(string, "zb64") == 0)) {
-        *flagsPtr = RPENC_Z  | RPENC_B64;
+        *flagsPtr = RPENC_Z  | RPENC_B64;
     } else if ((c == 'z') && (strcmp(string, "z") == 0)) {
-        *flagsPtr = RPENC_Z;
+        *flagsPtr = RPENC_Z;
     } else {
-        Tcl_AppendResult(interp, "bad value \"", string, 
-                 "\": should be b64, zb64, or z", (char *)NULL);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad value \"", string, 
+                 "\": should be b64, zb64, or z", (char *)NULL);
+        return TCL_ERROR;
     }
     return TCL_OK;
@@ -165 +165 @@
 {
     {SWITCH_CUSTOM, "-as", "z|b64|zb64",
-        offsetof(EncodeSwitches, flags), 0, 0, &asSwitch},
+        offsetof(EncodeSwitches, flags), 0, 0, &asSwitch},
     {SWITCH_BITMASK, "-noheader", "", 
-        offsetof(EncodeSwitches, flags), 0, RPENC_RAW},
+        offsetof(EncodeSwitches, flags), 0, RPENC_RAW},
     {SWITCH_END}
 };
@@ -173 +173 @@
 static int
 EncodeCmd(ClientData clientData, Tcl_Interp *interp, int objc, 
-          Tcl_Obj *const *objv)
+          Tcl_Obj *const *objv)
 {
     if (objc < 1) {
         Tcl_AppendResult(interp, "wrong # args: should be \"", 
-                Tcl_GetString(objv[0]), 
-                " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
+                Tcl_GetString(objv[0]), 
+                " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
         return TCL_ERROR;
     }
@@ -185 +185 @@
     int n;
     n = Rp_ParseSwitches(interp, encodeSwitches, objc - 1, objv + 1, &switches,
-                         SWITCH_OBJV_PARTIAL);
+                         SWITCH_OBJV_PARTIAL);
     if (n < 0) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     int last;
@@ -193 +193 @@
     if ((objc - last) != 1) {
         Tcl_AppendResult(interp, "wrong # args: should be \"", 
-                Tcl_GetString(objv[0]), 
-                " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
+                Tcl_GetString(objv[0]), 
+                " ?-as z|b64|zb64? ?-noheader? ?--? string\"", (char*)NULL);
         return TCL_ERROR;
     }
@@ -201 +201 @@
     string = (const char*)Tcl_GetByteArrayFromObj(objv[last], &nBytes);
     if (nBytes <= 0) {
-        return TCL_OK;          // Nothing to encode.
+        return TCL_OK;                // Nothing to encode.
     }
     Rappture::Buffer buf(string, nBytes);
@@ -207 +207 @@
     if (!Rappture::encoding::encode(status, buf, switches.flags)) {
         Tcl_AppendResult(interp, status.remark(), "\n", status.context(), NULL);
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     Tcl_SetByteArrayObj(Tcl_GetObjResult(interp), 
-                (const unsigned char*)buf.bytes(), buf.size());
+                (const unsigned char*)buf.bytes(), buf.size());
     return TCL_OK;
 }
@@ -225 +225 @@
  * ::Rappture::encoding::decode ?-as z|b64|zb64? <string>
  *
- *      I'd rather the interface be
- *      
- *              decode -b64 -z string 
+ *        I'd rather the interface be
+ *        
+ *                decode -b64 -z string 
  */
 
@@ -237 +237 @@
 {
     {SWITCH_CUSTOM, "-as", "z|b64|zb64",
-        offsetof(DecodeSwitches, flags), 0, 0, &asSwitch},
+        offsetof(DecodeSwitches, flags), 0, 0, &asSwitch},
     {SWITCH_BITMASK, "-noheader", "", 
-        offsetof(DecodeSwitches, flags), 0, RPENC_RAW},
+        offsetof(DecodeSwitches, flags), 0, RPENC_RAW},
     {SWITCH_END}
 };
@@ -245 +245 @@
 static int
 DecodeCmd(ClientData clientData, Tcl_Interp *interp, int objc, 
-          Tcl_Obj *const *objv)
+          Tcl_Obj *const *objv)
 {
     if (objc < 1) {
         Tcl_AppendResult(interp, "wrong # args: should be \"", 
-                Tcl_GetString(objv[0]),
+                Tcl_GetString(objv[0]),
                 " ?-as z|b64|zb64? ?--? <string>\"", (char*)NULL);
         return TCL_ERROR;
@@ -258 +258 @@
     int n;
     n = Rp_ParseSwitches(interp, decodeSwitches, objc - 1, objv + 1, &switches,
-                         SWITCH_OBJV_PARTIAL);
+                         SWITCH_OBJV_PARTIAL);
     if (n < 0) {
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     int last;
@@ -266 +266 @@
     if ((objc - last) != 1) {
         Tcl_AppendResult(interp, "wrong # args: should be \"", 
-                Tcl_GetString(objv[0]), 
-                " ?-as z|b64|zb64? ?--? string\"", (char*)NULL);
+                Tcl_GetString(objv[0]), 
+                " ?-as z|b64|zb64? ?--? string\"", (char*)NULL);
         return TCL_ERROR;
     }
@@ -274 +274 @@
     string = (const char*)Tcl_GetByteArrayFromObj(objv[last], &nBytes);
     if (nBytes <= 0) {
-        return TCL_OK;          // Nothing to decode.
+        return TCL_OK;                // Nothing to decode.
     }
     Rappture::Buffer buf(string, nBytes); 
@@ -280 +280 @@
     if (!Rappture::encoding::decode(status, buf, switches.flags)) {
         Tcl_AppendResult(interp, status.remark(), "\n", status.context(), NULL);
-        return TCL_ERROR;
+        return TCL_ERROR;
     }
     Tcl_SetByteArrayObj(Tcl_GetObjResult(interp), 
-                (const unsigned char*)buf.bytes(), buf.size());
-    return TCL_OK;
-}
+                (const unsigned char*)buf.bytes(), buf.size());
+    return TCL_OK;
+}

trunk/packages/vizservers/nanovis/FlowCmd.cpp

@@ -55 +55 @@
 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},
     {Rappture::SWITCH_BOOLEAN, "-volume", "boolean",
-        offsetof(FlowValues, showVolume), 0},
+        offsetof(FlowValues, showVolume), 0},
     {Rappture::SWITCH_END}
 };
@@ -87 +87 @@
         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},
@@ -118 +118 @@
     _hashPtr = hPtr;
     _sv.isHidden = false;
-    _sv.position.axis = 0;              /* X_AXIS */
-    _sv.position.value = 0.0f;  
+    _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, 
-                /* Global nVidia Cg context */g_context);
+                /* Global nVidia Cg context */g_context);
 }
 
@@ -129 +129 @@
 {
     if (_rendererPtr != NULL) {
-        delete _rendererPtr;
+        delete _rendererPtr;
     }
     if (_hashPtr != NULL) {
-        Tcl_DeleteHashEntry(_hashPtr);
+        Tcl_DeleteHashEntry(_hashPtr);
     }
     Rappture::FreeSwitches(_switches, &_sv, 0);
@@ -144 +144 @@
     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));
@@ -157 +157 @@
     _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);
@@ -168 +168 @@
     _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 +199 @@
     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);
@@ -209 +209 @@
 
     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;
@@ -219 +219 @@
     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);
@@ -235 +235 @@
     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();
@@ -252 +252 @@
     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();
@@ -261 +261 @@
     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();
@@ -290 +290 @@
     _volPtr = NULL;
     _cmdToken = Tcl_CreateObjCommand(interp, (char *)_name, 
-        (Tcl_ObjCmdProc *)FlowInstObjCmd, this, FlowInstDeleteProc);
+        (Tcl_ObjCmdProc *)FlowInstObjCmd, this, FlowInstDeleteProc);
     Tcl_InitHashTable(&_particlesTable, TCL_STRING_KEYS);
     Tcl_InitHashTable(&_boxTable, TCL_STRING_KEYS);
@@ -299 +299 @@
     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;
+        delete _dataPtr;
     }
      if (_volPtr != NULL) {
-         NanoVis::remove_volume(_volPtr);
-         _volPtr = NULL;
+         NanoVis::remove_volume(_volPtr);
+         _volPtr = NULL;
     }
 
@@ -315 +315 @@
     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);
@@ -336 +336 @@
     FlowParticles *particlesPtr;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&iter)) {
-        particlesPtr->Reset();
+         particlesPtr = NextParticles(&iter)) {
+        particlesPtr->Reset();
     }
 }
@@ -350 +350 @@
     FlowParticles *particlesPtr;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&iter)) {
-        if (particlesPtr->visible()) {
-            particlesPtr->Advect();
-        }
+         particlesPtr = NextParticles(&iter)) {
+        if (particlesPtr->visible()) {
+            particlesPtr->Advect();
+        }
     }
 }
@@ -365 +365 @@
     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);
@@ -382 +382 @@
     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);
@@ -390 +390 @@
     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);
@@ -401 +401 @@
 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);
@@ -420 +420 @@
 {
     iterPtr->hashPtr = Tcl_FirstHashEntry(&_particlesTable, 
-        &iterPtr->hashSearch);
+        &iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowParticles *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -431 +431 @@
 {
     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);
@@ -447 +447 @@
     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;
@@ -456 +456 @@
     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);
@@ -471 +471 @@
     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);
@@ -487 +487 @@
     iterPtr->hashPtr = Tcl_FirstHashEntry(&_boxTable, &iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowBox *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -496 +496 @@
 {
     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);
@@ -512 +512 @@
     FlowParticlesIterator iter;
     for (particlesPtr = FirstParticles(&iter); particlesPtr != NULL;
-         particlesPtr = NextParticles(&iter)) {
-        particlesPtr->Initialize();
-    }   
+         particlesPtr = NextParticles(&iter)) {
+        particlesPtr->Initialize();
+    }        
 }
 
@@ -521 +521 @@
 {
     if (_volPtr != NULL) {
-        fprintf(stderr, "from ScaleVectorField volId=%s\n", _volPtr->name());
-        NanoVis::remove_volume(_volPtr);
-        _volPtr = NULL;
+        fprintf(stderr, "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;
@@ -534 +534 @@
     delete [] vdata;
     if (volPtr == NULL) {
-        return false;
+        return false;
     }
     _volPtr = volPtr;
@@ -540 +540 @@
     // Remove the associated vector field.
     if (_fieldPtr != NULL) {
-        delete _fieldPtr;
+        delete _fieldPtr;
     }
     _fieldPtr = new NvVectorField();
     if (_fieldPtr == NULL) {
-        return false;
+        return false;
     }
 
@@ -559 +559 @@
 
     _fieldPtr->setVectorField(_volPtr, loc, 
-        1.0f, height / width, depth  / width, NanoVis::magMax);
+        1.0f, height / width, depth  / width, NanoVis::magMax);
 
     if (NanoVis::licRenderer != NULL) {
         NanoVis::licRenderer->setVectorField(_volPtr->id, loc,
-                1.0f / _volPtr->aspect_ratio_width,
-                1.0f / _volPtr->aspect_ratio_height,
-                1.0f / _volPtr->aspect_ratio_depth,
-                _volPtr->wAxis.max());
-        SetCurrentPosition();
-        SetAxis();
-        SetActive();
+                1.0f / _volPtr->aspect_ratio_width,
+                1.0f / _volPtr->aspect_ratio_height,
+                1.0f / _volPtr->aspect_ratio_depth,
+                _volPtr->wAxis.max());
+        SetCurrentPosition();
+        SetAxis();
+        SetActive();
     }
 
@@ -576 +576 @@
             //*(volPtr->get_location()),
             1.0f,
-            _volPtr->aspect_ratio_height / _volPtr->aspect_ratio_width,
-            _volPtr->aspect_ratio_depth / _volPtr->aspect_ratio_width
+            _volPtr->aspect_ratio_height / _volPtr->aspect_ratio_width,
+            _volPtr->aspect_ratio_depth / _volPtr->aspect_ratio_width
             //,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;
 }
@@ -600 +600 @@
     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);
+        }
     }
 }
@@ -614 +614 @@
     float *data = new float[n];
     if (data == NULL) {
-        return NULL;
+        return NULL;
     }
     memset(data, 0, sizeof(float) * n);
@@ -620 +620 @@
     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;
@@ -645 +645 @@
 
     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());
@@ -655 +655 @@
     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);
@@ -689 +689 @@
 static int
 FlowDataFileOp(ClientData clientData, Tcl_Interp *interp, int objc,
-               Tcl_Obj *const *objv)
+               Tcl_Obj *const *objv)
 {
     Rappture::Outcome result;
@@ -702 +702 @@
     }
     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;
     }
 
@@ -719 +719 @@
     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 {
-        fprintf(stderr, "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;
-        }
+        fprintf(stderr, "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);
@@ -770 +770 @@
     int nBytes;
     if (Tcl_GetIntFromObj(interp, objv[3], &nBytes) != TCL_OK) {
-        Trace("Bad nBytes \"%s\"\n", Tcl_GetString(objv[3]));
+        Trace("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);
-        Trace("Bad nbytes %d\n", nBytes);
-        return TCL_ERROR;
+        Tcl_AppendResult(interp, "bad # bytes request \"", 
+                Tcl_GetString(objv[3]), "\" for \"data follows\"", (char *)NULL);
+        Trace("Bad nbytes %d\n", nBytes);
+        return TCL_ERROR;
     }
     int nComponents;
     if (Tcl_GetIntFromObj(interp, objv[4], &nComponents) != TCL_OK) {
-        Trace("Bad # of components \"%s\"\n", Tcl_GetString(objv[4]));
+        Trace("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);
-        Trace("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);
+        Trace("Bad # of components %d\n", nComponents);
+        return TCL_ERROR;
     }
     Rappture::Buffer buf;
@@ -802 +802 @@
     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 {
-        fprintf(stderr, "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;
-        }
+        fprintf(stderr, "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(0, info, length);
-        assert(nWritten == (ssize_t)strlen(info));
+        assert(nWritten == (ssize_t)strlen(info));
     }
     NanoVis::EventuallyRedraw(NanoVis::MAP_FLOWS);
@@ -857 +857 @@
 static int
 FlowDataOp(ClientData clientData, Tcl_Interp *interp, int objc,
-           Tcl_Obj *const *objv)
+           Tcl_Obj *const *objv)
 {
     Tcl_ObjCmdProc *proc;
@@ -873 +873 @@
 {
     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;
@@ -908 +908 @@
     iterPtr->hashPtr = Tcl_FirstHashEntry(&flowTable, &iterPtr->hashSearch);
     if (iterPtr->hashPtr == NULL) {
-        return NULL;
+        return NULL;
     }
     return (FlowCmd *)Tcl_GetHashValue(iterPtr->hashPtr);
@@ -917 +917 @@
 {
     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);
@@ -932 +932 @@
     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);
@@ -951 +951 @@
     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);
@@ -979 +979 @@
     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);
@@ -994 +994 @@
     /* 
      * Step 1.  Get the overall min and max magnitudes of all the 
-     *          flow vectors.
+     *                flow vectors.
      */
     magMin = DBL_MAX, magMax = -DBL_MAX;
@@ -1001 +1001 @@
     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);
@@ -1041 +1041 @@
      */
     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());
         
@@ -1067 +1067 @@
     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;
@@ -1082 +1082 @@
 
     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();
+        }
     }
 }    
@@ -1098 +1098 @@
     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();
+        }
     }
 }    
@@ -1110 +1110 @@
  * AxisSwitchProc --
  *
- *      Convert a Tcl_Obj representing the label of a child node into its
- *      integer node id.
+ *        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.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -1121 +1121 @@
 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. */
+    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. */
 {
     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]);
@@ -1157 +1157 @@
  * ColorSwitchProc --
  *
- *      Convert a Tcl_Obj representing the label of a list of four color 
- *      components in to a RGBA color value.
+ *        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.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -1168 +1168 @@
 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. */
+    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. */
 {
     Tcl_Obj **objv;
@@ -1182 +1182 @@
 
     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];
@@ -1193 +1193 @@
     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];
@@ -1218 +1218 @@
  * PointSwitchProc --
  *
- *      Convert a Tcl_Obj representing the a 3-D coordinate into
- *      a point.
+ *        Convert a Tcl_Obj representing the a 3-D coordinate into
+ *        a point.
  *
  * Results:
- *      The return value is a standard Tcl result.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -1229 +1229 @@
 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. */
+    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. */
 {
     FlowPoint *pointPtr = (FlowPoint *)(record + offset);
@@ -1243 +1243 @@
 
     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];
@@ -1271 +1271 @@
  * PositionSwitchProc --
  *
- *      Convert a Tcl_Obj representing the a 3-D coordinate into
- *      a point.
+ *        Convert a Tcl_Obj representing the a 3-D coordinate into
+ *        a point.
  *
  * Results:
- *      The return value is a standard Tcl result.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -1282 +1282 @@
 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. */
+    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. */
 {
     FlowPosition *posPtr = (FlowPosition *)(record + offset);
@@ -1298 +1298 @@
     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;
+        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;
@@ -1323 +1323 @@
  * TransferFunctionSwitchProc --
  *
- *      Convert a Tcl_Obj representing the transfer function into a
- *      TransferFunction pointer.  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.
  *
  * Results:
- *      The return value is a standard Tcl result.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -1335 +1335 @@
 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. */
+    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. */
 {
     TransferFunction **funcPtrPtr = (TransferFunction **)(record + offset);
@@ -1361 +1361 @@
  * VideoFormatSwitchProc --
  *
- *      Convert a Tcl_Obj representing the video format into its
- *      integer id.
+ *        Convert a Tcl_Obj representing the video format into its
+ *        integer id.
  *
  * Results:
- *      The return value is a standard Tcl result.
+ *        The return value is a standard Tcl result.
  *
  *---------------------------------------------------------------------------
@@ -1372 +1372 @@
 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. */
+    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. */
 {
     Rappture::AVTranslate::VideoFormats *formatPtr = 
-        (Rappture::AVTranslate::VideoFormats *)(record + offset);
+        (Rappture::AVTranslate::VideoFormats *)(record + offset);
     const char *string;
     char c; 
@@ -1388 +1388 @@
     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,
+        Tcl_AppendResult(interp, "bad video format \"", string,
                      "\": should be mpeg, theora, or mov", (char*)NULL);
     }
@@ -1402 +1402 @@
 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);
@@ -1415 +1415 @@
 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();
@@ -1438 +1438 @@
 static int
 FlowParticlesConfigureOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                         Tcl_Obj *const *objv)
+                         Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1444 +1444 @@
     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();
@@ -1456 +1456 @@
 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();
@@ -1473 +1473 @@
 static int
 FlowParticlesNamesOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                     Tcl_Obj *const *objv)
+                     Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1481 +1481 @@
     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);
@@ -1496 +1496 @@
  * FlowParticlesObjCmd --
  *
- *      This procedure is invoked to process commands on behalf of the flow
- *      object.
+ *         This procedure is invoked to process commands on behalf of the flow
+ *         object.
  *
  * Results:
- *      A standard Tcl result.
+ *        A standard Tcl result.
  *
  * Side effects:
- *      See the user documentation.
+ *        See the user documentation.
  *
  * $flow particles oper $name 
@@ -1511 +1511 @@
     {"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?"},
 };
@@ -1519 +1519 @@
 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;
@@ -1537 +1537 @@
 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();
@@ -1559 +1559 @@
 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();
@@ -1584 +1584 @@
     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);
@@ -1596 +1596 @@
 static int
 FlowBoxConfigureOp(ClientData clientData, Tcl_Interp *interp, int objc,
-                        Tcl_Obj *const *objv)
+                        Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1602 +1602 @@
     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();
@@ -1616 +1616 @@
  * FlowBoxOp--
  *
- *      This procedure is invoked to process commands on behalf of the flow
- *      object.
+ *         This procedure is invoked to process commands on behalf of the flow
+ *         object.
  *
  * Results:
- *      A standard Tcl result.
+ *        A standard Tcl result.
  *
  * Side effects:
- *      See the user documentation.
+ *        See the user documentation.
  *
  *---------------------------------------------------------------------------
@@ -1630 +1630 @@
     {"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?"},
 };
@@ -1638 +1638 @@
 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;
@@ -1667 +1667 @@
 static int
 FlowLegendOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-          Tcl_Obj *const *objv)
+          Tcl_Obj *const *objv)
 {
     FlowCmd *flowPtr = (FlowCmd *)clientData;
@@ -1698 +1698 @@
  * FlowInstObjCmd --
  *
- *      This procedure is invoked to process commands on behalf of the flow
- *      object.
+ *         This procedure is invoked to process commands on behalf of the flow
+ *         object.
  *
  * Results:
- *      A standard Tcl result.
+ *        A standard Tcl result.
  *
  * Side effects:
- *      See the user documentation.
+ *        See the user documentation.
  *
  *---------------------------------------------------------------------------
@@ -1712 +1712 @@
     {"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?"}
@@ -1720 +1720 @@
 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));
@@ -1742 +1742 @@
  * FlowInstDeleteProc --
  *
- *      Deletes the command associated with the tree.  This is called only
- *      when the command associated with the tree is destroyed.
+ *        Deletes the command associated with the tree.  This is called only
+ *        when the command associated with the tree is destroyed.
  *
  * Results:
- *      None.
+ *        None.
  *
  *---------------------------------------------------------------------------
@@ -1767 +1767 @@
 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]);
@@ -1795 +1795 @@
 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);
@@ -1821 +1821 @@
 static int
 FlowExistsOp(ClientData clientData, Tcl_Interp *interp, int objc,
-             Tcl_Obj *const *objv)
+             Tcl_Obj *const *objv)
 {
     bool value;
@@ -1828 +1828 @@
     value = false;
     if (NanoVis::GetFlow(NULL, objv[2], &flowPtr) == TCL_OK) {
-        value = true;
+        value = true;
     }
     Tcl_SetBooleanObj(Tcl_GetObjResult(interp), (int)value);
@@ -1839 +1839 @@
  * FlowGotoOp --
  *
- *      flow goto number
+ *        flow goto number
  *
  *---------------------------------------------------------------------------
@@ -1852 +1852 @@
     }
     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();
@@ -1882 +1882 @@
 static int
 FlowNamesOp(ClientData clientData, Tcl_Interp *interp, int objc,
-            Tcl_Obj *const *objv)
+            Tcl_Obj *const *objv)
 {
     Tcl_Obj *listObjPtr;
@@ -1889 +1889 @@
     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);
@@ -1905 +1905 @@
     assert(NanoVis::licRenderer != NULL);
     if (NanoVis::flags & NanoVis::MAP_FLOWS) {
-        NanoVis::MapFlows();
+        NanoVis::MapFlows();
     }
     NanoVis::EventuallyRedraw();
@@ -1922 +1922 @@
 
 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;
@@ -1936 +1936 @@
 Rappture::SwitchSpec FlowCmd::videoSwitches[] = {
     {Rappture::SWITCH_FLOAT, "-bitrate", "value",
-        offsetof(FlowVideoValues, bitRate), 0},
+        offsetof(FlowVideoValues, bitRate), 0},
     {Rappture::SWITCH_CUSTOM, "-format", "string",
         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}
 };
@@ -1952 +1952 @@
 static int
 FlowVideoOp(ClientData clientData, Tcl_Interp *interp, int objc, 
-            Tcl_Obj *const *objv)
+            Tcl_Obj *const *objv)
 {
     struct pollfd pollResults;
@@ -1960 +1960 @@
     pollResults.events = POLLIN;
 
-#define PENDING_TIMEOUT         10  /* milliseconds. */
+#define PENDING_TIMEOUT                10  /* milliseconds. */
     timeout = PENDING_TIMEOUT;
 
@@ -1967 +1967 @@
 
     token = Tcl_GetString(objv[2]);
-    values.frameRate = 25.0f;           // Default frame rate 25 fps
-    values.bitRate = 6.0e+6f;           // Default video bit rate.
+    values.frameRate = 25.0f;                // Default frame rate 25 fps
+    values.bitRate = 6.0e+6f;                // Default video bit rate.
     values.width = NanoVis::win_width;
     values.height = NanoVis::win_height;
@@ -1974 +1974 @@
     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.0f) {
-        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.
@@ -2004 +2004 @@
 
     Rappture::AVTranslate movie(values.width, values.height, values.bitRate, 
-        values.frameRate);
+        values.frameRate);
     char tmpFileName[200];
     sprintf(tmpFileName,"/tmp/flow%d.mpeg", getpid());
     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.
@@ -2024 +2024 @@
     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();
@@ -2043 +2043 @@
     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;
@@ -2093 +2093 @@
 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);
@@ -2110 +2110 @@
  * FlowCmdInitProc --
  *
- *      This procedure is invoked to initialize the "tree" command.
+ *        This procedure is invoked to initialize the "tree" command.
  *
  * Results:
- *      None.
+ *        None.
  *
  * 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.
  *
  *---------------------------------------------------------------------------
@@ -2141 +2141 @@
   if (line == endPtr) {
       vtkErrorMacro(<<"Premature EOF reading first line! " << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
+                    << (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)"));
+                    << (this->FileName?this->FileName:"(Null FileName)"));
       return false;
   }    
@@ -2153 +2153 @@
   if (line == endPtr) {
       vtkErrorMacro(<<"Premature EOF reading title! " << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
+                    << (this->FileName?this->FileName:"(Null FileName)"));
       return false;
   }
@@ -2166 +2166 @@
   if (line == endPtr) {
       vtkErrorMacro(<<"Premature EOF reading file type!" << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
+                    << (this->FileName?this->FileName:"(Null FileName)"));
       return false;
   }
@@ -2176 +2176 @@
   } else {
       vtkErrorMacro(<< "Unrecognized file type: "<< line << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
+                    << (this->FileName?this->FileName:"(Null FileName)"));
       _fileType = 0;
       return false;
@@ -2185 +2185 @@
   if (line == endPtr) {
       vtkErrorMacro(<<"Premature EOF reading file type!" << " for file: " 
-                    << (this->FileName?this->FileName:"(Null FileName)"));
+                    << (this->FileName?this->FileName:"(Null FileName)"));
       return false;
   }
@@ -2193 +2193 @@
       line = getline(&p, endPtr);
       if (line == endPtr) {
-          // EOF
+          // EOF
       }
       type = GetWord(line, &endPtr);
       if (strncasecmp(word, "structured_grid", 15) == 0) {
-          vtkErrorMacro(<< "Cannot read dataset type: " << line);
-          return 1;
+          vtkErrorMacro(<< "Cannot read dataset type: " << line);
+          return 1;
       }
     // Read keyword and dimensions

trunk/packages/vizservers/nanovis/RpAVTranslate.h

@@ -53 +53 @@
     size_t _height;
     size_t _bitRate;
-    float _frameRate;           // frames/seconds
+    float _frameRate;                // frames/seconds
     size_t _videoOutbufSize;
     uint8_t *_videoOutbuf;
 
     size_t width(void) {
-        return _width;
+        return _width;
     }
     void width(size_t width) {
-        _width = width;
+        _width = width;
     }
     size_t height(void) {
-        return _width;
+        return _width;
     }
     void height(size_t width) {
-        _width = width;
+        _width = width;
     }
     size_t bitRate(void) {
-        return _bitRate;
+        return _bitRate;
     }
     void bitRate(size_t bitRate) {
-        _bitRate = bitRate;
+        _bitRate = bitRate;
     }
     float frameRate(void) {
-        return _frameRate;
+        return _frameRate;
     }
     void frameRate(size_t frameRate) {
-        _frameRate = frameRate;
+        _frameRate = frameRate;
     }
     AVOutputFormat *_fmtPtr;

trunk/src/core/RpSimpleBuffer.h

@@ -749 +749 @@
 
 /**
- * Read data from the buffer into a memory location provided by caller
+ * Move the internal position tracker to the beginning of the buffer.
  */
 template<class T>

trunk/src/objects/RpMediaPlayer.cc

@@ -218 +218 @@
 
                     // Save the frame to the SimpleBuffer object
-                    __frame2ppm(b[frameCount]);
+                    // FIXME:
+                    // should be b[frameCount] but operator[] was
+                    // overloaded in Rappture::SimpleBuffer, and I
+                    // think it is causing problems
+                    __frame2ppm(*b+frameCount);
                     frameCount++;
                 }