This file is indexed.

/usr/bin/gcode_sectioncut is in slic3r 1.1.7+dfsg-2+b1.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#!/usr/bin/perl
# This script generates section cuts from a given G-Code file

use strict;
use warnings;

BEGIN {
    use FindBin;
    use lib "$FindBin::Bin/../lib";
}

use Getopt::Long qw(:config no_auto_abbrev);
use IO::All;
use List::Util qw(max);
use Slic3r;
use Slic3r::Geometry qw(X Y A B X1 Y1 X2 Y2);
use Slic3r::Geometry::Clipper qw(JT_SQUARE);
use Slic3r::Test;
use SVG;

my %opt = (
    layer_height    => 0.2,
    extrusion_width => 0.5,
    scale           => 30,
);
{
    my %options = (
        'help'                  => sub { usage() },
        'layer-height|h=f'      => \$opt{layer_height},
        'extrusion-width|w=f'   => \$opt{extrusion_width},
        'scale|s=i'             => \$opt{scale},
    );
    GetOptions(%options) or usage(1);
    $ARGV[0] or usage(1);
}

{
    my $input_file = $ARGV[0];
    my $output_file = $input_file;
    $output_file =~ s/\.(?:gcode|gco|ngc|g)$/.svg/;
    
    # read paths
    my %paths = ();    # z => [ path, path ... ]
    Slic3r::GCode::Reader->new->parse(io($input_file)->all, sub {
        my ($self, $cmd, $args, $info) = @_;
        
        if ($cmd eq 'G1' && $info->{extruding}) {
            $paths{ $self->Z } ||= [];
            push @{ $paths{ $self->Z } }, Slic3r::Line->new(
                [ $self->X, $self->Y ],
                [ $info->{new_X}, $info->{new_Y} ],
            );
        }
    });
    
    # calculate print extents
    my $bounding_box = Slic3r::Geometry::BoundingBox->new_from_points([ map @$_, map @$_, values %paths ]);
    
    # calculate section line
    my $section_y = $bounding_box->center->[Y];
    my $section_line = [
        [ $bounding_box->x_min, $section_y ],
        [ $bounding_box->x_max, $section_y ],
    ];
    
    # initialize output
    my $max_z = max(keys %paths);
    my $svg = SVG->new(
        width  => $opt{scale} * $bounding_box->size->[X],
        height => $opt{scale} * $max_z,
    );
    
    # put everything into a group
    my $g = $svg->group(style => {
        'stroke-width'  => 1,
        'stroke'        => '#444444',
        'fill'          => 'grey',
    });
    
    # draw paths
    foreach my $z (sort keys %paths) {
        foreach my $line (@{ $paths{$z} }) {
            my @intersections = @{intersection_pl(
                [ $section_line ],
                [ _grow($line, $opt{extrusion_width}/2) ],
            )};
            
            $g->rectangle(
                'x'         => $opt{scale} * ($_->[A][X] - $bounding_box->x_min),
                'y'         => $opt{scale} * ($max_z - $z),
                'width'     => $opt{scale} * abs($_->[B][X] - $_->[A][X]),
                'height'    => $opt{scale} * $opt{layer_height},
                'rx'        => $opt{scale} * $opt{layer_height} * 0.35,
                'ry'        => $opt{scale} * $opt{layer_height} * 0.35,
            ) for @intersections;
        }
    }
    
    # write output
    Slic3r::open(\my $fh, '>', $output_file);
    print $fh $svg->xmlify;
    close $fh;
    printf "Section cut SVG written to %s\n", $output_file;
}

# replace built-in Line->grow method which relies on int_offset()
sub _grow {
    my ($line, $distance) = @_;
    
    my $polygon = [ @$line, CORE::reverse @$line[1..($#$line-1)] ];
    return @{Math::Clipper::offset([$polygon], $distance, 100000, JT_SQUARE, 2)};
}

sub usage {
    my ($exit_code) = @_;
    
    print <<"EOF";
Usage: gcode_sectioncut.pl [ OPTIONS ] file.gcode

    --help              Output this usage screen and exit
    --layer-height, -h  Use the specified layer height
    --extrusion-width, -w  Use the specified extrusion width
    --scale             Factor for converting G-code units to SVG units
    
EOF
    exit ($exit_code || 0);
}

__END__