OrdaliDir /home/moumou/ordali
<pre>couldn't load file "/enadisk/maison/moumou/ordali/Build/Installers/setup-ordalie-linux/lib/tcllib-1.18/modules/term/ansi/test/libbiotext0.1.so": /enadisk/maison/moumou/ordali/Build/Installers/setup-ordalie-linux/lib/tcllib-1.18/modules/term/ansi/test/libbiotext0.1.so: cannot open shared object file: No such file or directory
    while executing
"load [file join [pwd] test $lib]"
    (in namespace eval "::request" script line 21)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/usr/local/bin/wish

package require platform
switch [::platform::generic] {
    "macosx-x86_64" {
        set OrdaliDir /Users/Luc/moumou/ordali
        set lib libbiotext0.1.dylib
    }
    "linux-x86_64" {
	set OrdaliDir /home/moumou/ordali
	set lib "libbiotext0.1.so"
    }
    "win32-x86_64" {
	set OrdaliDir o:/ordali/
	set lib "biotext01.dll"
    }
}
puts "OrdaliDir $OrdaliDir"
source [file join $OrdaliDir src LesProcsDeGscope.tcl]
source [file join $OrdaliDir src ordali_source.tcl]
load [file join [pwd] test $lib]
source [file join $OrdaliDir Extensions biotext0.1 biotext.tcl]


proc TailleFonte {incr} {
    puts "\nTAILLE-FONT $incr\n" ; flush stdout

    set size [font configure SeqFont -size]
    incr size $incr

    # keep font sizes sane...
    if {$size < 6} {
	set size 6
    }
    if {$size > 32} {
	set size 32
    }

    font configure SeqFont -size $size
    update idletasks
    
    return
}

proc CoupleYExa {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]
}


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
. white black
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 SeqFont -family "Courier" -size 24

frame .f -background blue
grid .f -row 0 -column 0 -sticky news
grid columnconfig . 0 -weight 1
grid rowconfig    . 0 -weight 1

text .f.t \
    -width 10 \
    -height 20 \
    -font SeqFont \
    -bd 0 \
    -highlightthickness 0 \
    -pady 0 \
    -foreground white \
    -background black \
    -relief flat \
    -setgrid 1 \
    -wrap none \
    -yscrollcommand ".f.sv set "
biotext .f.b \
    -width 60 \
    -height 20 \
    -font SeqFont \
    -bd 0 \
    -relief flat \
    -setgrid 1 \
    -yscrollcommand ".f.sv set " \
    -xscrollcommand ".f.sh set " \
    -foreground black \
    -background white \
    -class Biotext
scrollbar .f.sh \
    -bg blue \
    -orient horiz \
    -command ".f.b xview "
scrollbar .f.sv \
    -bg blue \
    -command "CoupleYExa "

grid .f.t  -row 0 -column 0 -sticky ns
grid .f.b  -row 0 -column 1 -sticky news
grid .f.sv -row 0 -column 2 -sticky ns -padx 5
grid .f.sh -row 1 -column 1 -sticky ew -pady 5

grid columnconfig .f 1 -weight 1
grid rowconfig    .f 0 -weight 1

#lassign [RandSeq] Lseq Lnom
if {[llength $argv] > 0} {
    set tfa [lindex $argv end]
    puts "fasta : $tfa"
} else {
    set tfa diaa.tfa
}
LitLeTFA $tfa Ltmp Tseq
set Lseq [list] ; set Lnom [list]
foreach n $Ltmp {
    if {[string trim $n] ne ""} {
	lappend Lnom $n
	lappend Lseq [set Tseq($n)]
    }
}
puts "[llength $Lnom] seqs [string length [lindex $Lseq 0]] aminoacids"


.f.b configure -state normal
.f.b sequences $Lseq
.f.b mapping $Lmap
.f.b map on

#focus .f.b

.f.t configure -state normal
.f.t insert end "[join $Lnom \n]"
.f.t configure -state disabled

if {$::tcl_platform(platform) ne "unix"} {
    bind VScr <Control-MouseWheel> {+.f.b xview scroll [expr {-%D/120}] units ; break}
    bind VScr <MouseWheel> {CoupleYExa scroll [expr {-%D/120}] units ; break}
} else {
    bind VScr <Control-4> {+.f.b xview scroll -10 units ; break}
    bind VScr <Control-5> {+.f.b xview scroll  10 units ; break}
    bind VScr <4> {+CoupleYExa scroll -1 units ; break}
    bind VScr <5> {+CoupleYExa scroll  1 units ; break}
}
bindtags .f.t [linsert [bindtags .f.t] 1 VScr]
bindtags .f.b [linsert [bindtags .f.b] 1 VScr]
puts "bindtags [bindtags .f.b]"

set Toggle(Scores) 0
bind .f.b <Control-KP_Add>  [list TailleFonte +2]
bind .f.b <Control-plus>    [list TailleFonte +2]
bind .f.b <Control-equal>   [list TailleFonte +2]
bind .f.b <Control-minus>   [list TailleFonte -2]
bind .f.b <Control-KP_Subtract> [list TailleFonte -2]
.f.t configure -state disabled

puts "\nbiotext : [.f.b configure -font]"
puts "text    : [.f.t configure -font]"
puts "SeqFont : [font configure SeqFont -size]\n"
foreach cf {pady spacing1} {
    puts "$cf [.f.t cget -$cf]"
}

puts "\nTags toto :"
.f.b tag configure toto -foreground cyan -background black
.f.b tag add toto 1.2 1.12 2.5 2.15 3.8 3.18 4.4 4.14 10.10 20.30
.f.b tag state 1
puts "Tags done ...\n"






</pre>