|
Tk::Image::Calculation - Perl extension for graphic calculations |
Tk::Image::Calculation - Perl extension for graphic calculations
#-------------------------------------------------
use Tk::Image::Calculation;
my @points_oval = (10, 10, 30, 50);
my @points_circle = (20, 20, 60, 60);
my @points_polygon = (136, 23, 231, 55, 463, 390, 338, 448, 182, 401, 148, 503, 15, 496, 9, 87);
# polygon = (x1, y1, x2, y2, x3, y3, x4, y4, ... and so on)
#-------------------------------------------------
my $cal = Tk::Image::Calculation->new();
my $ref_array = $cal->GetPointsInOval(@points_oval);
# my $ref_array = $cal->GetPointsOutOval(@points_oval);
# my $ref_array = $cal->GetPointsInCircle(@points_circle);
# my $ref_array = $cal->GetPointsOutCircle(@points_circle);
# my $ref_array = $cal->GetPointsInPolygon(@points_polygon);
# my $ref_array = $cal->GetPointsOutPolygon(@points_polygon);
for(@{$ref_array})
{
print(``x:$_->[0] y:$_->[1]\n'');
}
my $ref_array1 = $cal->GetLinesInOval(@points_oval);
# my $ref_array1 = $cal->GetLinesOutOval(@points_oval);
# my $ref_array1 = $cal->GetLinesInCircle(@points_circle);
# my $ref_array1 = $cal->GetLinesOutCircle(@points_circle);
# my $ref_array1 = $cal->GetLinesInPolygon(@points_polygon);
# my $ref_array1 = $cal->GetLinesOutPolygon(@points_polygon);
for(@{$ref_array1})
{
print(``x1:$_->[0] y1:$_->[1] x2:$_->[2] y2:$_->[3]\n'');
}
#-------------------------------------------------
my $cal1 = Tk::Image::Calculation->new(
-points => \@points_circle,
-form => ``circle'', # or ``oval'' or ``polygon''
);
for my $subset (``points_inside'', ``points_outside'')
{
print(``\n$subset circle : \n'');
for(@{$cal1->{$subset}})
{
print(``x:$_->[0] y:$_->[1]\n'');
}
}
for my $subset (``lines_inside'', ``lines_outside'')
{
print(``\n$subset circle : \n'');
for(@{$cal1->{$subset}})
{
print(``x1:$_->[0] y1:$_->[1] x2:$_->[2] y2:$_->[3]\n'');
}
}
#-------------------------------------------------
my $cal2 = Tk::Image::Calculation->new(
-points => \@points_polygon, # need three points at least
-form => ``polygon'',
-subset => ``lines_outside'', # defaults to ``all''
);
use Tk;
my $mw = MainWindow->new();
my $canvas = $mw->Canvas(
-width => 800,
-height => 600,
)->pack();
for(@{$cal2->{lines_outside}})
{
$canvas->createLine(@{$_});
}
MainLoop();
#-------------------------------------------------
use Tk;
use Tk::JPEG;
my $mw = MainWindow->new();
my $image = $mw->Photo(-file => ``test.jpg'');
my $cal3 = Tk::Image::Calculation->new();
my $ref_points = $cal3->GetPointsOutCircle(50, 50, 150, 150);
$image->put(``#FFFFFF'', -to => $_->[0], $_->[1]) for(@{$ref_points});
$image->write(``new.jpg'', -from => 50, 50, 150, 150);
#-------------------------------------------------
This module calculates points and lines inside or outside from simple graphic objects.
At this time possible objects:
"oval",
"circle",
"polygon"
Returns an empty object just for calling the methods.
Returns a hashreference blessed as object with a key that was defined with the options -subset.
The value of the key is an arrayreferences with points or lines.
Points [x, y]
Lines [x1, y1, x2, y2]
Is the option -subset set to "all" the returned hash have the following keys.
"points_outside",
"points_inside",
"lines_outside",
"lines_inside"
Two points are handed over to the functions for Oval or 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]
Takes over two points as parameters.
Returns a hashreferences with the following keys.
"points_outside",
"points_inside",
"lines_outside",
"lines_inside"
The values of the keys are arrayreferences with points or lines.
Takes over two points as parameters. Returns a array reference of Points or Lines inside or outside of the Oval.
Just the same as GetPointsOval.
Takes over two points as parameters. Returns a array reference of Points or Lines inside or outside of the Circle.
Takes over a list of points in the following way.
my @polygon = (x1, y1, x2, y2, x3, y3, x4, y4, ... and so on)
my $ref_hash = $object->GetPointsPolygon(@polygon);
Need at least three points.
Returns a hashreferences with the following keys.
"points_outside",
"points_inside",
"lines_outside",
"lines_inside"
The values of the keys are arrayreferences with points or lines.
Takes over a list with at least three points. Returns a array reference of Points or Lines inside or outside of the Circle.
None by default.
Tk::Image::Cut http://www.planet-interkom.de/t.knorr/index.html
graphic, calculation
Maybe you'll find some. Please let me know.
Torsten Knorr, <torstenknorr@tiscali.de>
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.
|
Tk::Image::Calculation - Perl extension for graphic calculations |