Anonymous user
Bitmap/Read an image through a pipe: Difference between revisions
→{{header|Tcl}}: More modern magick!
m (→{{header|Tcl}}) |
(→{{header|Tcl}}: More modern magick!) |
||
Line 46:
proc magickalReadImage {bufferImage fileName} {
set f [open |[list convert [file normalize $fileName] ppm:-] "rb"]
try {
$bufferImage put [read $f] -format ppm
| |||