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=7d4d8d863540c672f7bfb4400cef72000e397de4;hb=HEAD;hpb=5a71ec62cbc229ecc398e46456e0617cea483a7b

diff --git a/quacks-ingredients-counts b/quacks-ingredients-counts
index 7d4d8d8..5377cbc 100755
--- a/quacks-ingredients-counts
+++ b/quacks-ingredients-counts
@@ -5,36 +5,71 @@ use strict;
 use Data::Dumper;
 use POSIX;
 
+our $which = shift @ARGV;
+
+sub xdata ($) {
+    my ($cb) = @_;
+    return unless $which eq 'Base';
+    foreach my $count (qw(1 2 3)) {
+	foreach my $nspots (qw(0 1 2 3 4)) {
+	    $_ = $cb->($count,$nspots)."\t".$_;
+	}
+    }
+}
+
 $_=<DATA>; chomp or die;
+xdata sub {
+    my ($xcount,$xnspots) = @_;
+    "${xcount}x". (qw(Zero One Two Three Four)[$xnspots]);
+};
 our @names = split /\t/, $_;
 
 our %count;
 
-foreach my $nspots (qw(1 2 3 4)) {
+foreach my $nspots (qw(1 2 3 4 0)) {
     $_=<DATA>; chomp or die;
+    xdata sub {
+	my ($xcount,$xnspots) = @_;
+	$xnspots == $nspots and "$xcount+0";
+    };
     my @l = split /\t/, $_;
-    foreach my $i (0..$#names) { $count{$names[$i]}{$nspots} = $l[$i] || 0; }
+    foreach my $i (0..$#names) {
+	$_ = $l[$i] || '0+0';
+	$_ ||= 0;
+	m/\+/ or die "$which $nspots ?";
+	
+	$count{$names[$i]}{$nspots} =
+	    $which eq 'All'     ? $` + $' :
+	    $which eq 'Base'    ? $`      :
+	    $which eq 'Witches' ?      $' :
+	    die "$which ?";
+    }
 }
 
 $_ = Dumper(\%count);
 s{^}{// }mg;
+#print STDERR;
 
 our $name;
 our $total_count;
+our $total_real_count;
 our $max_nrows=0;
 our $max_rowsz=0;
 
 sub wrtoplevel () {
-    print "module $name(){ ////toplevel\n";
     my $cs = $count{$name};
     my $total = 0; $total += $_ foreach values %$cs;
+    return unless $total;
+    print "module ${which}_$name(){ ////toplevel\n";
     my $rowsz = ceil(sqrt($total));
     my $nrows = ceil($total / $rowsz);
     $total_count += $total;
+    $total_real_count += $total if $name =~ m/^[A-Z][a-z]+$/;
     $max_nrows = $nrows if $nrows > $max_nrows;
     $max_rowsz = $rowsz if $rowsz > $max_rowsz;
     my $ix = 0;
-    print "// total=$total, rowsz=$rowsz, nrows=$nrows\n";
+    printf "// %s  %-10s  total=%2d  rowsz=$rowsz  nrows=$nrows\n",
+	$which, "$name", $total;
     foreach my $nspots (sort keys %$cs) {
 	my $c = $cs->{$nspots};
 	print <<END;
@@ -61,15 +96,16 @@ foreach $name (sort keys %count) {
 }
 
 print <<END;
-// total_count=$total_count
-// max_rowsz=$max_rowsz max_nrows=$max_nrows
+// $which  total_count=$total_count   total_real_count=$total_real_count
+// $which  max_rowsz=$max_rowsz       max_nrows=$max_nrows
 END
 
 STDOUT->error and die $!;
 
 __DATA__
-White	Green	Blue	Red	Yellow	Purple	Black	Orange
-20	15	14	12	13	15	18	20
-8	10	10	8	6
-4
-	13	10	10	10
+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