Changeset 4941 for branches/1.4/gui/scripts/field.tcl

Timestamp:

Jan 18, 2015, 12:56:32 PM (10 years ago)

Author:

ldelgass

Message:

merge r4927 from 1.3 branch (fix 1D cloud+field)

Location:

branches/1.4

Files:

• . (modified) (1 prop)
• gui/scripts/field.tcl (modified) (2 diffs)

branches/1.4/gui/scripts/field.tcl

@@ -1523 +1523 @@
     }
 
-    if {$_dim == 1} {
+    if {$_dim < 2} {
+        puts stderr "ERROR: Can't convert 1D cloud/mesh to curve.  Please use curve output for 1D meshes."
+        return 0
+
         # 1D data: Create vectors for graph widget.
-        # Is this used anywhere?
-        #
-        # OOPS!  This is 1D data
-        # Forget the cloud/field -- store BLT vectors
+        # The prophet tool currently outputs 1D clouds with fields
+        # Band Structure Lab used to (see isosurface1 test in rappture-bat)
         #
         # Is there a natural growth path in generating output from 1D to 
@@ -1536 +1537 @@
         # to the <field>.
         # 
-        set xv [blt::vector create x$_counter]
-        set yv [blt::vector create y$_counter]
-        
-        $yv set [$mesh points]
-        $xv seq 0 1 [$yv length]
-        # sort x-coords in increasing order
-        $xv sort $yv
-        set _comp2dims($cname) "1D"
-        set _comp2xy($cname) [list $xv $yv]
-        incr _counter
-        return 1
+        #set xv [blt::vector create x$_counter]
+        #set yv [blt::vector create y$_counter]
+
+        # This only works with a Cloud mesh type, since the points method
+        # is not implemented for the Mesh object
+        #$xv set [$mesh points]
+        # TODO: Put field values in yv
+        #set _comp2dims($cname) "1D"
+        #set _comp2xy($cname) [list $xv $yv]
+        #incr _counter
+        #return 1
     } 
     if {$_dim == 2} {