Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
our $max_rowsz=0;
sub wrtoplevel () {
- print "module ${which}_$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;
$nspots = 4;
};
}
-module Witches_WhiteSpare(){ ////toplevel
module Witches_Yellow(){ ////toplevel
// Witches Yellow total=16 rowsz=4 nrows=4
union(){