NAME

Image::BoxFind::Testing::Eyeballs - lib of rects found in images via 'eyeball'

SYNOPSIS

   use Image::BoxFind::Testing::Eyeballs ':all';

   my $expected_rect_list = define_expected_via_eyeball( $image_file_name );

DESCRIPTION

To do tests of automated systems of picking rectangular features out of an image, you need to know what the expected results are. This module is a library of expected results for associated images found in t/dat/images inside this distribution.

These expected results were determined "by eyeball", by viewing the image in gimp.

the proceedure for adding coverage for new images

The "PROC" is like so:

Make a rough "rectangle list" by hand, by viewing the image in gimp: Specifically, this was done by hovering the rectangle select mouse cursor around the corners of apparent rectangles so that the (x,y) values could be read off from the status bar.
add a sub that defines the rectangle list data structure and returns it.
put the name of that sub in define_expected_via_eyeball, keyed by the basename of the image file.

Note, this code can use my usual "sub define_* {}" material, cut and pasted into place.

It avoids a large, unweidly data structure in one place by instead using coderefs internally.

EXPORT

This module exports a single function (at present):

define_expected_via_eyeball

Given an image name of an image in t/dat/images, returns an associated coderef which when executed, will return the list of rectangles expected to be found in that image.

Multiple forms of the image name are accepted by this routine: it uses the basename of the image, ignoring the path and file extension

See Image::BoxFind.

internally used subs (not for export)

Note, originally seeded with material cut and pasted from

  /home/doom/End/Cave/GuiTest/lib/perl/Image/t/04-Image-BoxFind.t

TODO

AUTHOR

Joseph Brenner, <doom@kzsu.stanford.edu>

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.2 or, at your option, any later version of Perl 5 you may have available.

BUGS

None reported... yet.