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)
