Vorlage:Bitpad

Verwendung der Vorlage:Bitpad:

{{Bitpad|size=5 |1|1|1|1|1 |1|0|0|0|1 |1|0|0|0|1 |1|0|0|0|1 |1|1|1|1|1}}

{{Bitpad|size=10 |0|0|0|0|0 |0|1|0|1|0 |0|0|0|0|0 |1|0|0|0|1 |0|1|1|1|0}}

{{Bitpad|size=15 |1|0|0|0|1 |0|1|0|1|0 |0|0|1|0|0 |0|1|0|1|0 |1|0|0|0|1}}

{{Bitpad|size=20 |1|0|1|0|1 |0|1|0|1|0 |1|0|1|0|1 |0|1|0|1|0 |1|0|1|0|1}}

erzeugt:

Herstellung anderer Feldgrößen

Folgendes Perl-Skript dient der Herstellung quadratischer Bitpad-Felder. Über die Anzahl der Felder $fields kann die Größe angepasst werden. Die Anzahl entspricht dem Quadrat der Seitenlänge.

my $fields=225;

open(OUT,"> bitpad.dat");
print OUT "{| style=\"border-collapse:collapse\"\n";
for (my $i=1; $i<=$fields; $i++)
{
  print OUT "|{{ #switch: {{{$i}}} | 0 = [[Bild:White.jpg|{{{size}}}px]] | 1 = [[Bild:Black.jpg|{{{size}}}px]] | <center>{{{$i}}}</center> }}\n";
  if (($i % sqrt($fields)) eq 0 && $i != $fields) { print OUT "|-\n" }
}
print OUT "|}\n";
close(OUT)