Help for this page

Select Code to Download


  1. or download this
    > my $Image  = PDL::IO::Image->new_from_file("SomeImage.jpg");
> my $Pixels = $Image->pixels_to_pdl;
> print $Pixels->info;

PDL: Byte D [1920,1920,3]
  2. or download this
    > my $Colors = zeroes(long,256,256,256);
  3. or download this
    > my $P2 = $Pixels->clump(2);  # Collapses $Pixels to [3686400,3]
> my $P3 = $P2->mv(0,1);       # Reverses  $Pixels to [3,3686400]
...
> print $Colors->at(0,0,0);    # Print count of black pixels

1