save a matrix

matrix-viewer.pl

use strict;
use warnings;
use PDL;

my $data;
BEGIN {
    $data = rfits('20kV_1p45A_14deg_Fourier.fit');
}
use PDL::Graphics::Prima::Simple [$data->dims];


print "Data has dims ", join(', ', $data->dims), "\n";

my ($xmin, $xmax) = (0, 1);
my ($ymin, $ymax) = (0, 1);
plot(
    -data => [
        [$xmin, $xmax], [$ymin, $ymax],
        plotType => pt::ColorGrid(colors => $data->log)
    ],
    onKeyDown => sub {
        my ($self, @args) = @_;
        print "Saving the image...\n";
        my $image = $::application->get_image($::application->get_active_window->origin
            , $self->size);
        my $dlg = Prima::ImageSaveDialog->create;
        $dlg->save($image);
        return;
    },
);