X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=quacks-ingredients-counts;h=5377cbcb1d53e18e982b95d4bddbbe898d3e5ed5;hp=6fb5a040e1f7963887440bd9bb121f4b2b568a27;hb=HEAD;hpb=d37bf8375b0efdc271e01eb9cfa22defbded385d

diff --git a/quacks-ingredients-counts b/quacks-ingredients-counts
index 6fb5a04..5377cbc 100755
--- a/quacks-ingredients-counts
+++ b/quacks-ingredients-counts
@@ -11,7 +11,7 @@ sub xdata ($) {
     my ($cb) = @_;
     return unless $which eq 'Base';
     foreach my $count (qw(1 2 3)) {
-	foreach my $nspots (qw(1 2 3 4)) {
+	foreach my $nspots (qw(0 1 2 3 4)) {
 	    $_ = $cb->($count,$nspots)."\t".$_;
 	}
     }
@@ -20,7 +20,7 @@ sub xdata ($) {
 $_=<DATA>; chomp or die;
 xdata sub {
     my ($xcount,$xnspots) = @_;
-    "${xcount}x". (qw(X One Two Three Four)[$xnspots]);
+    "${xcount}x". (qw(Zero One Two Three Four)[$xnspots]);
 };
 our @names = split /\t/, $_;
 
@@ -103,9 +103,9 @@ END
 STDOUT->error and die $!;
 
 __DATA__
-White	Green	Blue	Red	Yellow	Purple	Black	Orange	WhiteSpare
-20+6	15+10	14+8	12+6	13+6	15+8	18+8	20+12	1+0
-8+3	10+5	10+5	8+5	6+5				1+0
-4+2								1+0
+White	Green	Blue	Red	Yellow	Purple	Black	Orange	Orange6	Loco	WhiteSpare
+21+6	15+10	14+8	12+6	13+6	15+8	18+8	20+12			1+0
+9+3	10+5	10+5	8+5	6+5						1+0
+5+2										1+0
 	13+5	10+5	10+5	10+5
-
+								0+20	0+25