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

NAME

Geo::Geos::Noding::ScaledNoder - Wraps a Noder and transforms its input into the integer domain.

SYNOPSIS

    use Geo::Geos::Coordinate;
    use Geo::Geos::PrecisionModel;
    use Geo::Geos::Noding::NodedSegmentString;
    use Geo::Geos::Noding::IteratedNoder;
    use Geo::Geos::Noding::ScaledNoder;

    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 $n = Geo::Geos::Noding::IteratedNoder->new($pm);
    $n->computeNodes([$ss1, $ss2]);

    my $nScaleFactor = 2;
    my $nOffsetX = 0.0;
    my $nOffsetY = 0.0;
    my $sn = Geo::Geos::Noding::ScaledNoder->new($n, $nScaleFactor, $nOffsetX, $nOffsetY); # => isa 'Geo::Geos::Noding::ScaledNoder'
    Geo::Geos::Noding::ScaledNoder->new($n, $nScaleFactor, $nOffsetX, $nOffsetY);          # => isa 'Geo::Geos::Noding::Noder'

    $sn->isIntegerPrecision;        # => ''
    $sn->getNodedSubstrings->[0];   # => isa 'Geo::Geos::Noding::SegmentString';

SEE ALSO (C++ classes docs)

GEOS C++ Library

geos::noding::ScaledNoder

SEE ALSO

Geo::Geos

Geo::Geos::Noding::Noder

Geo::Geos::Noding::SegmentString

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.