The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Geo::Geos::Operation - Provides methods for implementing operations on geometries.

SYNOPSIS

    use Geo::Geos::Coordinate;
    use Geo::Geos::Geometry qw/TYPE_CAP_ROUND/;
    use Geo::Geos::GeometryFactory;
    # imports constants:
    # TYPE_OP_INTERSECTION, TYPE_OP_UNION, TYPE_OP_DIFFERENCE, TYPE_OP_SYMDIFFERENCE,
    # TYPE_BOUNDARY_NODE_RULE_MOD2, TYPE_BOUNDARY_ENDPOINT, TYPE_BOUNDARY_MULTIVALENT_ENDPOINT
    # TYPE_BOUNDARY_MONOVALENT_ENDPOINT, TYPE_BOUNDARY_OGCSFS

    use Geo::Geos::Operation;
    use Geo::Geos::Operation qw/buffer distance nearestPoints closestPoints overlayOp relate
                           isValid mergeLines isSequenced sequence/;

    my $gf = Geo::Geos::GeometryFactory::create();
    my $c1 = Geo::Geos::Coordinate->new(1,2);
    my $c2 = Geo::Geos::Coordinate->new(5,2);
    my $in = $gf->createMultiPoint([$c1, $c2], 2);

    my $distance = 1.0;
    my $quadrantSegments = 1;
    my $capStyle = TYPE_CAP_ROUND;

    # buffer
    buffer($in, $distance);                                # => isa 'Geo::Geos::Geometry'
    buffer($in, $distance, $quadrantSegments);             # => isa 'Geo::Geos::Geometry'
    buffer($in, $distance, $quadrantSegments, $capStyle);  # => isa 'Geo::Geos::Geometry'

    # distance
    my $c11 = Geo::Geos::Coordinate->new(1,2);
    my $c12 = Geo::Geos::Coordinate->new(5,2);
    my $g0 = $gf->createMultiPoint([$c11, $c12], 2);

    my $c21 = Geo::Geos::Coordinate->new(1,3);
    my $c22 = Geo::Geos::Coordinate->new(5,3);
    my $g1 = $gf->createMultiPoint([$c21, $c21], 2);

    distance($g0, $g1);        # => 1
    nearestPoints($g0, $g1);   # => is_deeply [Geo::Geos::Coordinate->new(1,2), Geo::Geos::Coordinate->new(1,3)]
    closestPoints($g0, $g1);   # => is_deeply [Geo::Geos::Coordinate->new(1,2), Geo::Geos::Coordinate->new(1,3)]

    # overlay
    overlayOp($g0, $g1, TYPE_OP_INTERSECTION);  # => isa 'Geo::Geos::Geometry'

    # valid
    isValid($g0);      # => successs

    # relate
    relate($g0, $g1);                          # => isa 'Geo::Geos::IntersectionMatrix'
    relate($g0, $g1, TYPE_BOUNDARY_OGCSFS);    # => isa 'Geo::Geos::IntersectionMatrix'

    # merge lines
    my $c_11 = Geo::Geos::Coordinate->new(1,2);
    my $c_12 = Geo::Geos::Coordinate->new(5,2);
    my $c_21 = Geo::Geos::Coordinate->new(5,2);
    my $c_22 = Geo::Geos::Coordinate->new(7,2);

    my $ls1 = $gf->createLineString([$c_11, $c_12], 2);
    my $ls2 = $gf->createLineString([$c_21, $c_22], 2);
    my $geometries = mergeLines([$ls1, $ls2]);
    my $g = $geometries->[0];   # => isa 'Geo::Geos::Geometry'
    $g->getGeometryType;        # => 'LineString'

    # sequence lines
    isSequenced($ls1);     # => success
    sequence($ls1);        # => isa 'Geo::Geos::Geometry'

SEE ALSO (C++ classes docs)

GEOS C++ Library

geos::algorithm::BoundaryNodeRule

geos::operation::buffer::BufferOp

geos::operation::distance::DistanceOp

geos::operation::overlay::OverlayOp

geos::operation::valid::IsValidOp

geos::operation::relate::RelateOp

geos::operation::linemerge::LineMerger

geos::operation::linemerge::LineSequencer

EXPORTS CONSTANTS

TYPE_OP_INTERSECTION
TYPE_OP_UNION
TYPE_OP_DIFFERENCE
TYPE_OP_SYMDIFFERENCE
TYPE_BOUNDARY_NODE_RULE_MOD2
TYPE_BOUNDARY_ENDPOINT
TYPE_BOUNDARY_MULTIVALENT_ENDPOINT
TYPE_BOUNDARY_MONOVALENT_ENDPOINT
TYPE_BOUNDARY_OGCSFS

SEE ALSO

Geo::Geos

Geo::Geos::Geometry

Geo::Geos::IntersectionMatrix

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.