X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=knifeblock-knives-filter;fp=knifeblock-knives-filter;h=17cff7401bbd1f0cf8cdafa52a560c4b541a4b27;hp=bb832cffc98bcd0016f20aef486bea2a23c3d120;hb=b2627110242e632df39b9d7e310111860a0c1990;hpb=592784ed37ec57de0a94e8ead8f9420f0e555f36 diff --git a/knifeblock-knives-filter b/knifeblock-knives-filter index bb832cf..17cff74 100755 --- a/knifeblock-knives-filter +++ b/knifeblock-knives-filter @@ -14,7 +14,7 @@ my ($wknife,$wparts) = $want =~ m/^(\d)([a-z]+)$/ or die; sub want ($) { my ($colournum) = @_; - my $knife = ($colournum-1) % $nknives; + my $knife = $nknives-1 - ($colournum-1) % $nknives; return 0 unless $knife == $wknife; my $part = $part_order[ floor(($colournum-1) / $nknives) ]; die "huh colour $colournum?" unless defined $part;