----- Original Message -----
From: "Fabio D'Alfonso" <[email protected]>
To: "Sisyphus" <[email protected]>; <[email protected]>
Sent: Monday, January 16, 2012 2:20 AM
Subject: Re: [Perldl] Close Dialog On /GW Device PGPLOT
Hi,
the code is actually that in the mail (coming from the samples in the pdf
book):
$a = rfits("m51_raw.fits");
dev($^O =~ /MSWin32/ ? '/GW' : '/XSERVE');
imag $a;
I don't think I have m51_raw.fits, so I used m51.fits (
http://search.cpan.org/src/CHM/PDL-2.4.9/m51.fits ) instead.
And I used this script:
#################
use warnings;
use PDL;
use PDL::Graphics::PGPLOT;
$a = rfits("m51.fits");
dev($^O =~ /MSWin32/ ? '/GW' : '/XSERVE');
imag $a;
#################
That works fine - except for that annoying pop-up box that you'd like to see
removed.
One way of avoiding that pop-up would be something like:
#################
use warnings;
use PDL;
use PGPLOT;
$a = rfits("m51.fits");
pgbegin(0, '/GW', 0, 0);
# Code that writes $a to the graphics window
pgend;
#################
But I don't know what the (missing) code would look like. It probably just
re-invents what PDL::Graphics::PGPLOT does, anyway.
I'll see if I can come up with something.
You know that you can drag that pop-up wherever you want ? (It's still
annoying, though.)
Cheers,
Rob
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
