RosettaCodeData/Task/Bitmap-Read-an-image-through-a-pipe/Tcl/bitmap-read-an-image-through-a-pipe.tcl

package require Tk

proc magickalReadImage {bufferImage fileName} {
    set f [open |[list convert [file normalize $fileName] ppm:-] "rb"]
    try {
        $bufferImage put [read $f] -format ppm
    } finally {
        close $f
    }
}