NAME

SOOT::Examples::Images - SOOT Examples for Images

DESCRIPTION

This is a listing of all SOOT examples for Images.

EXAMPLES

galaxy_image.pl

use strict;
use warnings;
use SOOT ':all';

my $canv = TCanvas->new("image", "n4254", 40, 40, 812, 700);
$canv->ToggleEventStatus();
$canv->SetRightMargin(0.2);
$canv->SetLeftMargin(0.01);
$canv->SetTopMargin(0.01);
$canv->SetBottomMargin(0.01);

# read the pixel data from file "galaxy.root"
# the size of the image is 401 X 401 pixels
my $file = 'galaxy.root';
my $gal;
if (-e $file) {
  $gal = TFile->new($file, "READ");
} else {
  $gal = TFile::Open("http://root.cern.ch/files/$file");
}
my $img = $gal->Get("n4254");
$img->Draw();

# open the color editor
$img->StartPaletteEditor();

# zoom the image
$img->Zoom(80, 80, 250, 250);

$gApplication->Run;

SEE ALSO

SOOT

AUTHOR

Steffen Mueller, <smueller@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by Steffen Mueller

SOOT, the Perl-ROOT wrapper, is free software; you can redistribute it and/or modify it under the same terms as ROOT itself, that is, the GNU Lesser General Public License. A copy of the full license text is available from the distribution as the LICENSE file.