8 lines
206 B
Tcl
8 lines
206 B
Tcl
package require Tk
|
|
package require img::jpeg
|
|
|
|
proc output_jpeg {image filename} {
|
|
$image write $filename -format jpeg
|
|
}
|
|
set img [image create photo -filename filename.ppm]
|
|
output_jpeg $img filename.jpg
|