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, <knorrcpan@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.