Help for this page
use strict; use warnings; ... return ($P1->{x} - $P0->{x}) * ($P2->{y} - $P0->{y}) - ($P2->{x} - $P0->{x}) * ($P1->{y} - $P0->{y}); }
Point 1 inside poly 1