display a DICOM image 2

[Arepi]

Hi,
It's possible to display in PERL a DICOM format image? Besides might importent also that embedding the image in a GUI like Tk.

Thanks a lot!

Arepi

 

[KevinADC]

perl itself does not display images. Perl just outputs whatever code or commands is necessary for the terminal or client to display an image.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Arepi]

I thought "display a DICOM(.dcm) image", like I can display a JPEG,GIF,PNG, in Tk.

For example, display a JPEG image:
use Tk;
use Tk::JPEG;
my $main = new MainWindow;
my $canvas = $main ->Canvas;
$canvas->pack;
my $image = $canvas->Photo('-format' => 'jpg',
-file=>'something.jpg');
$canvas->create( 'image',50,0,
'-anchor' => 'nw',
'-image' => $image );
MainLoop;

So anyway posible display en DICOM format(.dcm) image?
Thanks!

Arepi

 

[KevinADC]

I have never heard of a DICOM image. If it is a proprietary format its very unlikely you can display it like the other much more common image formats you mentioned. You would probably need to convert it first.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[feherke]

Hi

Theoretically Image::Magick should be able to read it, so to convert it in something accepted by Tk... Just a hint.

Feherke.

http://rootshell.be/~feherke/

 

[KevinADC]

found this on CPAN:

http://search.cpan.org/~chm/PDL-2.4.4/IO/Dicom/Dicom.pm

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Arepi]

Thaks all!