WIP identify island; Strip radar island name background

[ypp-sc-tools.db-test.git] / pctb / yppsc-ocr-resolver

diff --git a/pctb/yppsc-ocr-resolver b/pctb/yppsc-ocr-resolver
index 2ba7c01655246745e45679d8d4f59e883318eddb..529fa4d453890fc03a525ccb59f50c358b8c4f47 100755 (executable)
--- a/pctb/yppsc-ocr-resolver
+++ b/pctb/yppsc-ocr-resolver
@@ -437,7 +437,7 @@ proc write_database {} {
 
     set ol {}
     foreach bm [array names database] {
-       append ol [format_database_entry/$reqkind $bm $database($bm)]
+       lappend ol [format_database_entry/$reqkind $bm $database($bm)]
     }
     foreach o [lsort $ol] {
        puts $f $o
@@ -468,9 +468,9 @@ proc read_database_entry/pixmap {f def} {
     }
     set database($im) $def
 }
-proc write_database_header/pixmap {f} { }
+proc write_database_header/pixmap {f} { puts $f "" }
 proc format_database_entry/pixmap {im def} {
-    return "$im\n$def"
+    return "$def\n$im"
 }
 
 #---------- character database read and write ----------
@@ -633,7 +633,9 @@ proc pixmap_ok {} {
        colname coldesc rows
     manyset [lrange $rows [expr {$pixmap_selrow*2}] end] \
        rowname rowdesc
-    set database($ppm) "$colname - $coldesc"
+    set result "$colname - $rowname"
+    debug "UPDATE PIXMAP AS >$result<"
+    set database($ppm) $result
     write_database
     done/$mainkind
 }