Bitmap/Flood fill: Difference between revisions

proc x p {lindex $p 0}

proc y p {lindex $p 1}

proc neighbour {p dir} {

lassign $p x y

 

proc colour2rgb {color_name} {

foreach part [winfo rgb . $color_name] {

append colour [format %02x [expr {$part >> 8}]]

}

}