Anonymous user
Bitmap/PPM conversion through a pipe: Difference between revisions
Bitmap/PPM conversion through a pipe (view source)
Revision as of 21:08, 13 April 2009
, 15 years ago→{{header|Tcl}}
No edit summary |
m (→{{header|Tcl}}) |
||
Line 73:
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
| |||