OUTPUT BUFFER:
set OrdaliDir [file join [pwd] .. ..] source ../../src/ordali_source.tcl source /home/ripp/gscope/gscope_outils.tcl load test/libbiotext0.1.so source biotext.tcl if {[llength $argv] > 0} { set tfa [lindex $argv end] puts "fasta : $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" font create SeqFont -family Courier -size 12 grid columnconfig . 0 -weight 1 grid rowconfig . 0 -weight 1 biotext .b \ -fg black \ -bg white \ -font SeqFont grid .b -row 0 -column 0 -sticky news .b sequences $Lseq update idletasks