X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=knifeblock-knives-filter;h=17cff7401bbd1f0cf8cdafa52a560c4b541a4b27;hp=a5bee25d983ab825d8ca38ca539d6d08de3ce800;hb=3c75c6575c9ec874afd93fe9d2e1c7f28390806f;hpb=417af8f1eacc6741344b9812ca7be6acebd263a1

diff --git a/knifeblock-knives-filter b/knifeblock-knives-filter
index a5bee25..17cff74 100755
--- a/knifeblock-knives-filter
+++ b/knifeblock-knives-filter
@@ -5,6 +5,8 @@ use POSIX;
 
 our %want;
 
+our $nknives = 3;
+
 our @part_order = qw(h b l);
 
 my $want = shift @ARGV;
@@ -12,9 +14,9 @@ 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";