---

First, read an image from disk

    CImageGrey img -this [File PGMRead shape2.pgm]

Then create an Tk image for transfer purpose

    set res [image create photo img$img]

Then, transfer from the morphological format to the Tk format

    TransferToPhoto [img cget -this] $res b

Then display the image on a canvas

    canvas .c -background blue
    .c create image 3 3 -anchor nw -image $res
    pack .c -fill both -expand true
    #

---