chiark / gitweb /
commitid.scad.pl: Introduce autogenerated warning
[reprap-play.git] / knifeblock-knives-filter
index 2b74cac..17cff74 100755 (executable)
@@ -5,18 +5,21 @@ use POSIX;
 
 our %want;
 
-our @part_order = qw(h b);
+our $nknives = 3;
+
+our @part_order = qw(h b l);
 
 my $want = shift @ARGV;
 my ($wknife,$wparts) = $want =~ m/^(\d)([a-z]+)$/ or die;
 
 sub want ($) {
     my ($colournum) = @_;
-    my $knife = ($colournum-1) % 3;
+    my $knife = $nknives-1 - ($colournum-1) % $nknives;
     return 0 unless $knife == $wknife;
-    my $part = $part_order[ floor(($colournum-1) / 3) ];
+    my $part = $part_order[ floor(($colournum-1) / $nknives) ];
     die "huh colour $colournum?" unless defined $part;
     return 0 unless $part =~ m/[$wparts]/o;
+    print STDERR "$0: including colour $colournum ($knife $part)\n";
     return 1;
 }