Removed chained_path_points()

This commit is contained in:
Alessandro Ranellucci 2013-11-23 21:42:01 +01:00
parent 0516aac715
commit 0045f84ed2
3 changed files with 5 additions and 10 deletions

View file

@ -7,7 +7,7 @@ our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
PI X Y Z A B X1 Y1 X2 Y2 Z1 Z2 MIN MAX epsilon slope line_atan lines_parallel
line_point_belongs_to_segment points_coincide distance_between_points
chained_path_items chained_path_points normalize tan move_points_3D
chained_path_items normalize tan move_points_3D
point_in_polygon point_in_segment segment_in_segment
polyline_lines polygon_lines
point_along_segment polygon_segment_having_point polygon_has_subsegment
@ -578,11 +578,6 @@ sub chained_path_items {
return [ map $_->[1], @$items[@indices] ];
}
sub chained_path_points {
my ($points, $start_near) = @_;
return [ @$points[ @{chained_path_from($points, $start_near)} ] ];
}
sub douglas_peucker {
my ($points, $tolerance) = @_;
no warnings "recursion";