Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Points, Lines. Polygons OO my

by MZSanford (Curate)
on Sep 07, 2001 at 13:11 UTC ( #110853=note: print w/replies, xml ) Need Help??

in reply to Points, Lines. Polygons OO my

I was working on a GD based module, when i came up with a functional fix (so, it's not pretty, but mostly just to prove it works).
#!/usr/bin/perl use GD; my $image = new GD::Image(110,110); my $red = $image->colorAllocate(255,0,0); my $blue = $image->colorAllocate(0,0,255); my $white = $image->colorAllocate(255,255,255); $image->fill(0,0,$white); my $poly = new GD::Polygon; $poly->addPt(50,0); ### add your points $poly->addPt(99,99); $poly->addPt(0,99); $image->polygon($poly); ### do the work my $base_point = [109,109]; # known outside my $test_point = [50,50]; # unknown $image->fill($test_point->[0],$test_point->[1],$red); my $clrindex = $image->getPixel($base_point->[0],$base_point->[1]); if ($clrindex == $red) { warn "Point is outside of polygon."; exit 0; } else { warn "Point is inside of polygon."; exit 1; }
so, if it is the answer you seek, i like this way ... if it is the mathmatics of it (which it probably is), this is not use.
can't sleep clowns will eat me
-- MZSanford

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://110853]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2023-02-06 08:56 GMT
Find Nodes?
    Voting Booth?
    I prefer not to run the latest version of Perl because:

    Results (33 votes). Check out past polls.