NAME

Geo::Geos::Noding::SegmentIntersectionDetector - Detects and records an intersection between two SegmentStrings, if one exists.

SYNOPSIS

    use Geo::Geos::Algorithm::LineIntersector;
    use Geo::Geos::Coordinate;
    use Geo::Geos::PrecisionModel;
    use Geo::Geos::Noding::NodedSegmentString;
    use Geo::Geos::Noding::SegmentIntersectionDetector;

    my $c1 = Geo::Geos::Coordinate->new(0,1);
    my $c2 = Geo::Geos::Coordinate->new(2,1);
    my $c3 = Geo::Geos::Coordinate->new(1,0);
    my $c4 = Geo::Geos::Coordinate->new(1,2);
    my $pm = Geo::Geos::PrecisionModel->new;

    my $ss1 = Geo::Geos::Noding::NodedSegmentString->new([$c1, $c2]);
    my $ss2 = Geo::Geos::Noding::NodedSegmentString->new([$c3, $c4]);

    my $li = Geo::Geos::Algorithm::LineIntersector->new($pm);

    my $sid = Geo::Geos::Noding::SegmentIntersectionDetector->new($li);  # => isa 'Geo::Geos::Noding::SegmentIntersectionDetector'
    Geo::Geos::Noding::SegmentIntersectionDetector->new($li);            # => isa 'Geo::Geos::Noding::SegmentIntersector'

    my $r1 = $sid->isDone;       # => ''

    $sid->processIntersections($ss1, 0, $ss2, 0);
    my $r2 = $sid->isDone;       # => success

    my $c_1 = $sid->getIntersection;                  # => Geo::Geos::Coordinate->new(1,1)
    my $c_2 = $sid->getIntersectionSegments->[0];     # => isa 'Geo::Geos::Coordinate'

    my $r3 = $sid->hasProperIntersection;        # => success
    my $r4 = $sid->hasNonProperIntersection;     # => ''

SEE ALSO (C++ classes docs)

GEOS C++ Library

geos::noding::SegmentIntersectionDetector

SEE ALSO

Geo::Geos

Geo::Geos::Algorithm::LineIntersector

Geo::Geos::Noding::NodedSegmentString

Geo::Geos::Noding::SegmentIntersector

AUTHOR

Ivan Baidakou <i.baydakov@crazypanda.ru>, Crazy Panda, CP Decision LTD

LICENSE

You may distribute this code under the same terms as Perl itself.