New blink effect added.
This commit is contained in:
parent
12db72659f
commit
41b924ecbe
2 changed files with 19 additions and 2 deletions
|
@ -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 "\" ";
|
||||
}
|
||||
|
||||
|
|
|
@ -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"
|
||||
|
|
Loading…
Reference in a new issue