gui: change contents of ld_see to be list of poslocs rather than sum of their positio...

diff --git a/hostside/gui b/hostside/gui
index 79444577a00e5a80ab56034f96aaaa590985d078..2c4c7c2ab17487f3319785bb74061a3755bcf562 100755 (executable)
--- a/hostside/gui
+++ b/hostside/gui
@@ -263,12 +263,11 @@ proc layout-subseg-end {seg feat posn x y} {
        return
     }
     upvar #0 ld_sse/${cpage}($seg/$feat$posn) sse
-    if {![info exists sse]} { set sse {0 0 0} }
-    manyset $sse n sx sy
-    incr n
-    set sx [expr {$sx + $x}]
-    set sy [expr {$sy + $y}]
-    set sse [list $n $sx $sy]
+    if {![info exists sse]} { set sse {{} {}} }
+    manyset $sse lx ly
+    lappend lx $x
+    lappend ly $y
+    set sse [list $lx $ly]
     if {[string length $posn]} { layout-subseg-end $seg $feat {} $x $y }
 }
 
@@ -278,7 +277,9 @@ proc subseg-end-get-centroid {cpage seg feat posn} {
        puts "skipping binding of unknown $seg/$feat$posn"
        return -code return
     }
-    manyset $sse n sx sy
+    manyset $sse lx ly
+    set sx 0; set sy 0; set n [llength $lx]
+    foreach x $lx y $ly { addexpr sx {$x}; addexpr sy {$y} }
     return [list [expr {$sx * 1.0 / $n}] [expr {$sy * 1.0 / $n}]]
 }