Ported make_clockwise() and make_counter_clockwise()

This commit is contained in:
Alessandro Ranellucci 2013-07-16 21:09:29 +02:00
parent fe061b19ad
commit f7ada2b5db
5 changed files with 29 additions and 19 deletions

View file

@ -15,24 +15,6 @@ sub wkt {
return sprintf "POLYGON((%s))", join ',', map "$_->[0] $_->[1]", @$self;
}
sub make_counter_clockwise {
my $self = shift;
if (!$self->is_counter_clockwise) {
$self->reverse;
return 1;
}
return 0;
}
sub make_clockwise {
my $self = shift;
if ($self->is_counter_clockwise) {
$self->reverse;
return 1;
}
return 0;
}
sub merge_continuous_lines {
my $self = shift;