Vorlage:Bitpad: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Loki (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
K (Vorlagen-Kategorie umbenannt) |
||
| (3 dazwischenliegende Versionen von einem anderen Benutzer werden nicht angezeigt) | |||
| Zeile 107: | Zeile 107: | ||
|} | |} | ||
[[Kategorie:!Vorlagen]] | |||
==Herstellung anderer Feldgrößen== | |||
Folgendes Perl-Skript dient der Herstellung quadratischer Bitpad-Felder. Über die Anzahl der Felder <tt>$fields</tt> kann die Größe angepasst werden. Die Anzahl entspricht dem Quadrat der Seitenlänge. | |||
<pre> | |||
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) | |||
</pre> | |||
[[Kategorie:!Vorlagen/Gimmick|Bitpad]] | |||
</noinclude> | </noinclude> | ||
Aktuelle Version vom 2. Mai 2013, 15:44 Uhr
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)