sources done 
couldn't load file "test/libbiotext0.1.so": libXft.so.2: cannot open shared object file: No such file or directory
    while executing
"load test/libbiotext0.1.so"
    (in namespace eval "::request" script line 45)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish

set OrdaliDir [file join [pwd] .. ..]
source ../../src/ordali_source.tcl
source /home/ripp/gscope/gscope_outils.tcl
puts "sources done"


proc CoupleY {args} {
    .f.b yview {*}$args
    .f.t yview {*}$args

    return
}


proc RandSeq {{nlines 150} {len 100}} {
    set Lseq [list]
    set Lnom [list]
    set a ".A.CDEFGH.I.KLMN.PQRST.VW.Y.A.CDEFGH.I.KLMN.PQRST.VW.Y."
    set la [string length $a]
    # create first sequence
    set s ""
    for {set j 0} {$j < $len} {incr j} {
	if {! ($j%1000)} {
	    puts "  $j done ..."
	}
	set x [expr {int($la*rand())}]
	append s [string index $a $x]
    }
    lappend Lseq $s
    lappend Lnom "Seq-0"
    for {set i 1} {$i < $nlines} {incr i} {
	set ix [expr {int($len*rand())}]
	set n "[string range $s $ix end][string range $s 0 $ix-1]"
	lappend Lseq $n
	lappend Lnom "Seq-$i"
    }
    
    return [list $Lseq $Lnom]
}



load test/libbiotext0.1.so
source biotext.tcl
puts "package loaded"


set tfa ">seq-1
GACDEF...GHIKLM.NPQRS.TVWY
>seq-2
GACDEF...GHIKLM.NPQRS.TVWY
>seq-3
GACDEF...GHIKLM.NPQRS.TVWY
>seq-4
GACDEF...GHIKLM.NPQRS.TVWY
>seq-5
GACDEF...GHIKLM.NPQRS.TVWY
>seq-6
GACDEF...GHIKLM.NPQRS.TVWY
>seq-7
GACDEF...GHIKLM.NPQRS.TVWY
>seq-8
GACDEF...GHIKLM.NPQRS.TVWY
>seq-9
GACDEF...GHIKLM.NPQRS.TVWY
>seq-10
GACDEF...GHIKLM.NPQRS.TVWY
>seq-11
GACDEF...GHIKLM.NPQRS.TVWY
>seq-12
GACDEF...GHIKLM.NPQRS.TVWY"

### DATA ###############
# Create mapping
set Lignes "I white magenta
J white magenta
L white magenta
M white magenta
V white magenta
R white blue
K white blue
F white red
Y white red
W white red
D white forestgreen
B white forestgreen
E white forestgreen
Z black green
Q black green
P white black
G black orange
H black cyan
N black cyan
S white darkviolet
T white darkviolet
A white darkviolet
U white darkviolet
C white darkviolet
X black dimgrey
. black dimgrey
0 black white
1 black white
2 black white
3 black white
4 black white
5 black white
6 black white
7 black white
8 black white
9 black white
Space white white"

set Lmap [list] ; set Lmapbw [list]
foreach l [split $Lignes \n] {
    lassign [split [string trim $l] " "] n f b
    if {$n eq "Space"} {set n " "}
    lappend Lmap [list $n $f $b]
    lappend Lmapbw [list $n black white]
}

font create Luc -family Courier -size 18
.f.t configure -state disabled

bind . <4> {CoupleY scroll -1 units}
bind . <5> {CoupleY scroll  1 units}
bind .  {.f.b xview scroll -10 units}
bind .  {.f.b xview scroll  10 units}


proc BindSpace {w} {
    set idx [$w cursor]
    lassign [split $idx .] y x
    $w chars "." $idx 1
}

#bind .f.b  {%W delete colsgaps}
#bind .f.b  {BindSpace %W}