by [Theo Verelst]

[bwise]

 $mc bind dot <Button-1> {
    set i [$mc find withtag current];
    if {[$mc itemcget $i -fill] == "red"} {
       $mc itemco $i -fill yellow
    } {
       $mc itemco $i -fill red
    }
 }

[http://82.168.209.239/Bwise/displaybwise_a.jpg]



 for {set i 0} {$i<5} {incr i} {
    set o {};
    for {set j 7} {$j>=0} {incr j -1} {
       set k [tag_and "display dot x$i y$j"] ;
       if {[$mc itemcget $k -fill] == "red"} { set ii 1 } {set ii 0} ;
       append o $ii
    } ;
    puts [format {%x} [fromBinary $o]] 
    puts -nonewline "0x[format {%x} [fromBinary $o]], "
 } ; puts {}

[http://82.168.209.239/Bwise/display57_a.jpg]

See also [http://82.168.209.239/Xilinx/] and [http://82.168.209.239/Dsp/] where in a little while I''ll have added the Xilinx CPLD demo board and EZLITE BF533 DSP board (Open) Sources.