The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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.