From d34fd844a497acdd1cee8c5ab2b79307ca862965 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 21 Oct 2014 20:19:53 +0200
Subject: [PATCH] Remove wireframe.pl from the gcode-refactoring branch so that
 we can merge it into master

---
 utils/wireframe.pl | 98 ----------------------------------------------
 1 file changed, 98 deletions(-)
 delete mode 100755 utils/wireframe.pl

diff --git a/utils/wireframe.pl b/utils/wireframe.pl
deleted file mode 100755
index 7a533aa2b..000000000
--- a/utils/wireframe.pl
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/usr/bin/perl
-# This script exports experimental G-code for wireframe printing
-# (inspired by the brilliant WirePrint concept)
-
-use strict;
-use warnings;
-
-BEGIN {
-    use FindBin;
-    use lib "$FindBin::Bin/../lib";
-}
-
-use Getopt::Long qw(:config no_auto_abbrev);
-use PDF::API2;
-use Slic3r;
-use Slic3r::ExtrusionPath ':roles';
-use Slic3r::Geometry qw(scale unscale X Y);
-
-my %opt = (
-    step_height => 10,
-);
-{
-    my %options = (
-        'help'                  => sub { usage() },
-        'output|o=s'            => \$opt{output_file},
-        'step-height|h=f'       => \$opt{step_height},
-        'nozzle-angle|a=f'      => \$opt{nozzle_angle},
-    );
-    GetOptions(%options) or usage(1);
-    $opt{output_file} or usage(1);
-    ### Input file is not needed until we use hard-coded geometry:
-    ### $ARGV[0] or usage(1);
-}
-
-{
-    my $flow = Slic3r::Flow->new(
-        width           => 0.35,
-        height          => 0.35,
-        nozzle_diameter => 0.35,
-        bridge          => 1,
-    );
-    
-    my $section;
-    
-    # build a square section
-    {
-        my $dist = 2 * $opt{step_height};  # horizontal step
-        my $side_modules = 3;
-        my @points = (
-            [0,0],
-            (map [$_*$dist, 0], 1..$side_modules),
-            (map [$side_modules*$dist, $_*$dist], 1..$side_modules),
-            (map [($_-1)*$dist, $side_modules*$dist], reverse 1..$side_modules),
-            (map [0, ($_-1)*$dist], reverse 1..$side_modules),
-        );
-        pop @points;  # prevent coinciding endpoints
-        $section = Slic3r::Polygon->new_scale(@points);
-    }
-    my $section_loop = Slic3r::ExtrusionLoop->new_from_paths(
-        Slic3r::ExtrusionPath->new(
-            polyline        => $section->split_at_first_point,
-            role            => EXTR_ROLE_BRIDGE,
-            mm3_per_mm      => $flow->mm3_per_mm,
-            width           => $flow->width,
-            height          => $flow->height,
-        )
-    );
-    
-    my $vertical_steps = 3;
-    
-    open my $fh, '>', $opt{output_file};
-    my $gcodegen = Slic3r::GCode::Base->new;
-    
-    print $fh "G21 ; set units to millimeters\n";
-    print $fh "G90 ; use absolute coordinates\n";
-    
-    # print one section on layer 0
-    $gcodegen->extrude_loop($section_loop);
-    
-    close $fh;
-}
-
-sub usage {
-    my ($exit_code) = @_;
-    
-    print <<"EOF";
-Usage: wireframe.pl [ OPTIONS ] file.stl
-
-    --help              Output this usage screen and exit
-    --output, -o        Write to the specified file
-    --step-height, -h   Use the specified step height
-    --nozzle-angle, -a  Max nozzle angle
-    
-EOF
-    exit ($exit_code || 0);
-}
-
-__END__