12 lines
325 B
Tcl
12 lines
325 B
Tcl
package require Tk
|
|
|
|
proc grayscaleFile {filename {newFilename ""}} {
|
|
set buffer [image create photo]
|
|
if {$newFilename eq ""} {set newFilename $filename}
|
|
try {
|
|
$buffer read $filename -format ppm
|
|
$buffer write $newFilename -format ppm -grayscale
|
|
} finally {
|
|
image delete $buffer
|
|
}
|
|
}
|