couldn't read file "/home/moumou/ordali/ordali_source.tcl": no such file or directory
    while executing
"source /home/moumou/ordali/ordali_source.tcl"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish

source /home/moumou/ordali/ordali_source.tcl


proc ContenuDuFichier {{Fichier ""}} {
    if { $Fichier == "" } {return ""}
    set f [open $Fichier r]
    set Texte [read -nonewline $f]
    close $f
    return $Texte
}


proc LesLignesDuFichier {{Fichier ""}} {
    return [split [ContenuDuFichier $Fichier] "\n"]
}


set Ll [LesLignesDuFichier "/home/ripp/GenoretWww/ImAnno/InnerEar.dpcin"]
set Ll [LesLignesDuFichier "InnerEar.dpcin"]
set Ll [lrange $Ll 2 end]
foreach l $Ll {
    foreach {i r g b} [split $l "\t"] {}
#    if {$r == 255 && $g == 255 && $b == 255} {continue}
    set Tc($i,r) "$r."
    set Tc($i,g) "$g."
    set Tc($i,b) "$b."
}


foreach col {r g b} {
    set L {}
    foreach v [lsort [array names Tc -regexp ",${col}"]] {
	lappend L [set Tc($v)]
    }
    set nlr [Normalise $L]
    foreach v [lsort [array names Tc -regexp ",${col}"]] r $nlr {
	set Tn($v) $r
    }
}

foreach v [lsort [array names Tn -regexp ",r"]] {
    foreach {x y t} [split $v ","] {}
    set i "$x,$y"
    lappend ListeScore [list $i [set Tn($i,r)] [set Tn($i,g)] [set Tn($i,b)]]
}

EcritPourDPC "toto.dpcin"
LanceurCluspack "toto.dpcin" "coordinates" "bic" "mixturemodels" "-dt2" "0.00001" "-wc"

set img [image create photo -height 360 -width 300]
$img blank

set Lr [LesLignesDuFichier "toto.clu"]
set nc [string trim [lindex [split [lindex $Lr 0] ":"] 1]]
puts "\nNbr couleurs : $nc"
set Lr [lrange $Lr 2 end]
set j 0
for {set n 0} {$n < $nc} {incr n} {
    set nl [string trim [lindex [split [lindex $Lr $j] "="] 1]]
    puts "cluster $n , nelt = $nl"
    incr j
    set Li {}
    set sr 0.
    set sg 0.
    set sb 0.
    set cmp 0
    for {set l 1} {$l <= $nl} {incr l} {
	set Lv [split [lindex $Lr $j] "\t"]
	set i [lindex $Lv 0]
	lappend Li $i
	set sr [expr $sr + [set Tc($i,r)]]
	set sg [expr $sg + [set Tc($i,g)]]
	set sb [expr $sb + [set Tc($i,b)]]
	incr j
	incr cmp
    }
    set sr [expr int($sr/$nl.)]
    set sg [expr int($sg/$nl.)]
    set sb [expr int($sb/$nl.)]
    set col [format "#%x%x%x" $sr $sg $b]
    puts "couleur : $sr $sg $sb"
    foreach i $Li {
	foreach {x y} [split $i ","] {}
	$img put $col -to $x $y
    }
    incr j
    puts ""
}

set w ".irr"
frame $w
pack $w
canvas $w.c -width 300 -height 360
pack $w.c
$w.c create image 0 0 -image $img -anchor nw