Bitmap/PPM conversion through a pipe: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Tcl}}) |
||
| Line 73: | Line 73: | ||
package require img::jpeg |
package require img::jpeg |
||
proc output_jpeg {image filename} { |
|||
$image write $filename -format jpeg |
|||
} |
|||
set img [image create photo -filename filename.ppm] |
set img [image create photo -filename filename.ppm] |
||
$img |
output_jpeg $img filename.jpg</lang> |
||