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