Changeset 1220 for trunk/gui/scripts/field.tcl

Timestamp:

Nov 17, 2008, 2:20:16 PM (16 years ago)

Author:

gah

Message:

Improve data read speed of curve object with vectors; Add pan and scrollwheel features to 3d viewers

File:

• trunk/gui/scripts/field.tcl (modified) (1 diff)

trunk/gui/scripts/field.tcl

@@ -574 +574 @@
                     set xv [blt::vector create x$_counter]
                     set yv [blt::vector create y$_counter]
-
-                    foreach line [split $xydata \n] {
-                        if {[scan $line {%g %g} xval yval] == 2} {
-                            $xv append $xval
-                            $yv append $yval
-                        }
-                    }
+                    set tmp [blt::vector create \#auto]
+                    $tmp set $xydata
+                    $tmp split $xv $yv
+                    blt::vector destroy $tmp
                 }
             }