Incomplete work to improve support material by avoiding thin columns and making sure everything is supported correctly

This commit is contained in:
Alessandro Ranellucci 2013-08-10 19:39:35 +02:00
parent abb5d1256f
commit 5380b6cb33
2 changed files with 61 additions and 26 deletions

View file

@ -57,7 +57,7 @@ sub output {
}
}
foreach my $type (qw(polygons polylines white_polygons green_polygons red_polygons red_polylines)) {
foreach my $type (qw(polygons polylines white_polygons green_polygons red_polygons red_polylines green_polylines)) {
if ($things{$type}) {
my $method = $type =~ /polygons/ ? 'polygon' : 'polyline';
my ($colour) = $type =~ /^(red|green)_/;