Changeset 4927 for branches/1.3/gui/scripts/field.tcl
- Timestamp:
- Jan 14, 2015, 2:31:15 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/field.tcl
r4790 r4927 1523 1523 } 1524 1524 1525 if {$_dim == 1} { 1525 if {$_dim < 2} { 1526 puts stderr "ERROR: Can't convert 1D cloud/mesh to curve. Please use curve output for 1D meshes." 1527 return 0 1528 1526 1529 # 1D data: Create vectors for graph widget. 1527 # Is this used anywhere? 1528 # 1529 # OOPS! This is 1D data 1530 # Forget the cloud/field -- store BLT vectors 1530 # The prophet tool currently outputs 1D clouds with fields 1531 # Band Structure Lab used to (see isosurface1 test in rappture-bat) 1531 1532 # 1532 1533 # Is there a natural growth path in generating output from 1D to … … 1536 1537 # to the <field>. 1537 1538 # 1538 set xv [blt::vector create x$_counter]1539 set yv [blt::vector create y$_counter]1540 1541 $yv set [$mesh points] 1542 $xv seq 0 1 [$yv length] 1543 # sort x-coords in increasing order1544 $xv sort $yv1545 set _comp2dims($cname) "1D"1546 set _comp2xy($cname) [list $xv $yv]1547 incr _counter1548 return 11539 #set xv [blt::vector create x$_counter] 1540 #set yv [blt::vector create y$_counter] 1541 1542 # This only works with a Cloud mesh type, since the points method 1543 # is not implemented for the Mesh object 1544 #$xv set [$mesh points] 1545 # TODO: Put field values in yv 1546 #set _comp2dims($cname) "1D" 1547 #set _comp2xy($cname) [list $xv $yv] 1548 #incr _counter 1549 #return 1 1549 1550 } 1550 1551 if {$_dim == 2} {
Note: See TracChangeset
for help on using the changeset viewer.