OUTPUT BUFFER:
#!/usr/local/bin/wish 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] 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] } set auto_path [linsert $auto_path 0 /Volumes/moumou/Build/ToPack/lib] package require biotext pack [biotext .t] set seq "AC..DEF.GHI.KL....MNPQ..RST.V..W..Y" set Lseq [string repeat 20 $seq] .t configure -foreground black -background DimGray .t sequences $LSeq .t mapping $Lmap .t map on .t configure -state normal