NAME

Tk::Image::Calculation - Perl extension for graphic calculations

SYNOPSIS

 use Tk::Image::Calculation;
 my $cal = Tk::Image::Calculation->new();       
 my $ref_array_points = $cal->GetPointsInOval(10, 20, 110, 210); 
 for(@{$ref_array_points})
        {
        print("x : $_->[0]              y : $y_->[1]\n");
        }
 my $ref_array_lines = $cal->GetLinesInOval(10, 20, 110, 210);
 for(@{$ref_array_lines})
        {
        print("x1 : $_->[0]     y1 : $_->[1]    x2 : $_->[2]    y2 : $_->[3]\n");
        }

DESCRIPTION

 This module calculates points and lines inside or outside from simple graphic objects.

CONSTRUCTOR

 my $object = Tk::Image::Calculation->new();

FUNCTIONS

 Two points are handed over to the functions for Oval and Circle. 
 In the following form ($x1, $y1, $x2, $y2).
 The first point to the left up and the second point to the right below of a thought rectangle,
 in that the graphic object does fitting.
 The returned values are array references of points or lines.
 Points [x, y]
 Lines [x1, y1, x2, y2]

GetPointsOval

 Takes over two points as parameters.
 Returns four array references in the following sequence.
 ($ref_points_outside, $ref_points_inside, $ref_lines_outside, $ref_lines_inside) 

GetPointsInOval, GetPointsOutOval, GetLinesInOval, GetLinesOutOval

 Takes over two points as parameters.
 Returns a array reference of Points or Lines inside or outside of the Oval. 

GetPointsCircle

 Just the same as GetPointsOval.

GetPointsInCircle, GetPointsOutCircle, GetLinesInCircle, GetLinesOutCircle

 Takes over two points as parameters.
 Returns a array reference of Points or Lines inside or outside of the Circle. 

EXPORT

None by default.

SEE ALSO

 Tk::Image::Cut
 http://www.planet-interkom.de/t.knorr/index.html

KEYWORDS

 graphic, calculation 

BUGS

 Maybe you'll find some. Please let me know.

AUTHOR

Torsten Knorr, <torstenknorr@tiscali.de>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Torsten Knorr

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