Re^4: Perl Image Analysis

You're running into 2 problems here:

getsamples() uses the context you call it in to decide whether to produce samples packed into a string or a list of samples
if you don't supply a width getsamples() returns samples from the given x position all the way to the right side of the image.

So to get just the sample for one pixel as an integer you'd do:

my ($sample) = $image->getsamples(x => $x, y => $y, width => 1);
[download]

But if you're looking for speed you'll probably find that working a row at a time is faster:

for my $y ( 0 .. $image->getheight() - 1 ) {
  for my $sample ($image->getsamples(y => $y)) {
    # do something with the sample
  }
}
[download]

Comment on Re^4: Perl Image Analysis Select or Download Code

Replies are listed 'Best First'.

Re^5: Perl Image Analysis
by lparsons42 (Novice) on Oct 06, 2006 at 18:58 UTC

this site

[reply]

Re^6: Perl Image Analysis

by BrowserUk (Patriarch) on Oct 06, 2006 at 20:05 UTC

I loaded the image using Opera and used it's zoom function to blow the image up 1000%. It is then fairly obvious that the "white" area immediately surrounding the black squares is full of slightly off-white pixels, including #f2f2f2, #f1f1f1, #ededed, #f6f6f6, #f5f5f5, etc. This is probably an artifact of the JPEG 'lossy' compression system, though it could also be an artifact of the drawing program you used to constuct it.

Update: Actually, looking at it again (looking at my lcd from an oblique angle), the black isn't entirely black either. bThere are several pixels in both squares that are variously #0f0f0f, #030303, #0c0c0c etc.

Redo your image using the non-lossy .png or .tiff formats. If the artifacts go away, it was the JPEG compression biting you. If they don't, it is your drawing program that may be attempting to antialias something. Either look for a configuration option to turn that off or use a 'dumb' graphics editor (like mspaint.exe) that doesn't attempt to do anything clever :) (The had to be some advantage to paint didn't there :)

Also, be wary of what program you use to zoom the image. For example, Ifranview will resample the image as you zoom it unless you explicitly turn that option (view->properties->view->Use resample) off. This results in the edges of the squares getting antialiased, and the corners getting rounded as the image is zoomed.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

[reply]
[d/l]

Re^7: Perl Image Analysis

by lparsons42 (Novice) on Oct 06, 2006 at 21:14 UTC

[reply]

Re^8: Perl Image Analysis

by BrowserUk (Patriarch) on Oct 06, 2006 at 21:36 UTC

Re^9: Perl Image Analysis

by lparsons42 (Novice) on Oct 06, 2006 at 22:04 UTC