juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-19 11:23:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

New wkt() method for debugging

Browse Source
This commit is contained in:
Alessandro Ranellucci
2012-11-06 20:31:50 +01:00
parent 1db614a5a9
commit e21c806ee9
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Slic3r/Polygon.pm
View File

@@ -19,6 +19,11 @@ sub boost_linestring {
return Boost::Geometry::Utils::linestring([@$self, $self->[0]]); return Boost::Geometry::Utils::linestring([@$self, $self->[0]]);
} }
sub wkt {
my $self = shift;
return sprintf "POLYGON((%s))", join ',', map "$_->[0] $_->[1]", @$self;
}
sub is_counter_clockwise { sub is_counter_clockwise {
my $self = shift; my $self = shift;
return Slic3r::Geometry::Clipper::is_counter_clockwise($self); return Slic3r::Geometry::Clipper::is_counter_clockwise($self);