New blink effect added.

This commit is contained in:
Kai Lauterbach 2012-01-30 10:29:27 +01:00
parent 12db72659f
commit 41b924ecbe
2 changed files with 19 additions and 2 deletions

View file

@ -23,7 +23,24 @@ for (my $i = 0; $i < 32; $i++)
$r = int(rand(6));
}
$odelay = $r;
print $r. ";";
print $odelay;
led();
led();
$r = int(rand(10));
led() if ($r % 2);
print "\" ";
}
exit 0;
sub led
{
my $r = 0;
print ";";
$r = 0;
while ($r < 1 || $r > 3 || $olayer == $r)
{
@ -39,6 +56,5 @@ for (my $i = 0; $i < 32; $i++)
}
$oled = $r;
print $r;
print "\" ";
}

View file

@ -1,2 +1,3 @@
perl ./frame2cube.pl "2;3,2,5,8" "2;3,3,5,7" "2;3,4,5,6;" "2;3,1,5,9" "5;2,2,5,8" "5;2,3,5,7" "5;2,4,5,6" "5;2,1,5,9" "8;1,2,5,8" "8;1,3,5,7" "8;1,4,5,6" "8;1,1,5,9" "8;1,4,5,6" "8;1,3,5,7" "8;1,2,5,8" "5;2,1,5,9" "5;2,4,5,6" "5;2,3,5,7" "5;2,2,5,8" "2;3,1,5,9" "2;3,4,5,6;" "2;3,3,5,7" "2;3,2,5,8" "8;2,5" "5;1,5;2,2,4,6,8;3,5" "5;1,2,4,6,8;2,1,2,3,4,6,7,8,9;3,2,4,6,8" "5;1,1,2,3,4,6,7,8,9;2,2,4,6,8;3,1,2,3,4,6,7,8,9" "5;1,2,4,6,8;2,2,4,6,8;3,2,4,6,8" "5;1,5;2,2,4,6,8;3,5" "5;2,5" "5;2,5;3,5" "10;3,5"
perl ./frame2cube.pl "2;1,9;3,2" "1;1,7" "2;3,4;1,8" "1;3,8,1,3" "2;3,1;3,5" "1;2,1" "2;1,7;2,3" "1;2,6" "2;2,6;1,9" "1;3,3" "2;3,1,7;1,7" "1;3,3,4" "2;1,1;3,3" "1;2,9" "2;2,2;2,7" "1;1,1" "2;1,9,4;2,4" "1;1,5" "2;2,1;1,7" "1;1,7" "2;1,1;3,8" "1;3,3" "2;3,4;2,6" "1;1,9" "2;1,2;3,3" "1;1,9;2,4" "2;1,6;3,2" "1;3,9" "2;2,8;3,3" "1;1,3,2" "1;1,3;2,6" "2;1,8;3,5" "1;2,3,8"
perl ./frame2cube.pl "5;2,1;3,2" "3;1,4;2,8;1,6" "1;2,1;3,4" "3;1,3;2,2" "2;1,3;2,8" "1;1,1;3,5;2,8" "4;3,4;1,5" "3;3,3;1,2;3,4" "2;2,7;3,1;1,8" "1;2,9;1,5;2,2" "5;3,8;1,2;2,1" "2;1,7;2,4;3,6" "1;1,2;2,8;3,9" "3;2,5;3,1;2,3" "2;1,1;3,4;2,6" "1;1,8;3,2;2,8" "5;1,7;3,9" "1;1,4;3,9;2,3" "3;1,7;3,5" "2;1,9;2,3" "3;1,7;3,2;1,8" "1;3,6;2,5" "4;3,4;2,7" "2;3,8;1,5;2,3" "1;3,2;1,9" "5;3,5;1,9;2,5" "1;1,6;2,8;3,9" "5;1,4;3,5" "2;2,1;1,3" "3;3,9;1,2" "5;3,5;1,9;3,5" "3;1,7;2,1"