Posted to tcl by patthoyts at Tue Sep 15 23:14:53 GMT 2009view raw
- proc lut {contrast brightness} {
- variable map_values
- set image {}
- foreach col $map_values {
- set row {}
- foreach val $col {
- set v [expr {int($val * $contrast + $brightness)}]
- if {$v > 255} { set v 255}
- #lappend row [lindex $lut $v]
- lappend row [format "#%02x0000" $v]
- #lappend row [format "#%02x%02x%02x" $v $v $v]
- }
- lappend image $row
- }
- mapimage0 put $image
- }