Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (2)
As of 2022-01-28 06:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (73 votes). Check out past polls.

    Notices?