knifeblock: wip, before recenter

[reprap-play.git] / knifeblock-knives-filter

diff --git a/knifeblock-knives-filter b/knifeblock-knives-filter
index 2b74cac465d0f247dac997f312b00f393f5d3e9b..b2a26dd24c0925c53cf1ae14f4f051e2338bb6d8 100755 (executable)
--- a/knifeblock-knives-filter
+++ b/knifeblock-knives-filter
@@ -17,6 +17,7 @@ sub want ($) {
     my $part = $part_order[ floor(($colournum-1) / 3) ];
     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;
 }