Vorlage:Bitpad: Unterschied zwischen den Versionen

Aus Shadowhelix
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 106: Zeile 106:
|1|0|1|0|1}}
|1|0|1|0|1}}
|}
|}
==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|Bitpad]]
[[Kategorie:!Vorlagen|Bitpad]]
</noinclude>
</noinclude>

Version vom 3. Juli 2008, 20:01 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:

Black.jpg Black.jpg Black.jpg Black.jpg Black.jpg
Black.jpg White.jpg White.jpg White.jpg Black.jpg
Black.jpg White.jpg White.jpg White.jpg Black.jpg
Black.jpg White.jpg White.jpg White.jpg Black.jpg
Black.jpg Black.jpg Black.jpg Black.jpg Black.jpg
White.jpg White.jpg White.jpg White.jpg White.jpg
White.jpg Black.jpg White.jpg Black.jpg White.jpg
White.jpg White.jpg White.jpg White.jpg White.jpg
Black.jpg White.jpg White.jpg White.jpg Black.jpg
White.jpg Black.jpg Black.jpg Black.jpg White.jpg
Black.jpg White.jpg White.jpg White.jpg Black.jpg
White.jpg Black.jpg White.jpg Black.jpg White.jpg
White.jpg White.jpg Black.jpg White.jpg White.jpg
White.jpg Black.jpg White.jpg Black.jpg White.jpg
Black.jpg White.jpg White.jpg White.jpg Black.jpg
Black.jpg White.jpg Black.jpg White.jpg Black.jpg
White.jpg Black.jpg White.jpg Black.jpg White.jpg
Black.jpg White.jpg Black.jpg White.jpg Black.jpg
White.jpg Black.jpg White.jpg Black.jpg White.jpg
Black.jpg White.jpg Black.jpg White.jpg Black.jpg


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)