file '%s' provides %d colours and %d grays. (duplicates, ie *grey*, removed)
} \
[format tbl_%s $which] $h2 [file tail $incfn] [llength $C] [llength $G]]
if { "pov" == $which } { set fmt {img/p_%03d.png} } { set fmt {img/x_%03d.png} }
set iid 1
foreach name $C {
puts $fp [format { %s | |
} \
$name [format $fmt $iid] $name]
incr iid
}
puts $fp { | |
}
foreach name $G {
puts $fp [format { %s | |
} \
$name [format $fmt $iid] $name]
incr iid
}
puts $fp {
}
return
}
# -----------------------------------------------------------------------------
# emit the comparison table (3-columns).
proc articleCmp {fp} {
global pov x11
# common colours count is needed before table, so build list of pairs.
set todo [list]
set i 1
foreach c $pov(c) {
set j [lsearch -sorted -exact $x11(c) $c]
if { -1 != $j } {
incr j
lappend todo [list $i $j]
}
incr i
}
set fmtp {img/p_%03d.png} ; set fmtx {img/x_%03d.png}
puts $fp [format {