chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
poster-tube-lid: abolish top_thick (which is now not really meaningful)
[reprap-play.git]
/
knifeblock-knives-filter
diff --git
a/knifeblock-knives-filter
b/knifeblock-knives-filter
index 2b74cac465d0f247dac997f312b00f393f5d3e9b..17cff7401bbd1f0cf8cdafa52a560c4b541a4b27 100755
(executable)
--- a/
knifeblock-knives-filter
+++ b/
knifeblock-knives-filter
@@
-5,18
+5,21
@@
use POSIX;
our %want;
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 $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;
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;
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;
}
return 1;
}