
=head1 NAME

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

=head1 DESCRIPTION

This is a listing of all SOOT examples for Images.

=head1 EXAMPLES


=head2 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;




=head1 SEE ALSO

L<SOOT>

=head1 AUTHOR

Steffen Mueller, E<lt>smueller@cpan.orgE<gt>

=head1 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 F<LICENSE> file.

=cut

