60 lines
836 B
Perl
60 lines
836 B
Perl
#!/usr/bin/perl -w
|
|
#
|
|
# author: Kai Lauterbach (klaute at gmail dot com)
|
|
# date: 01/2012
|
|
# license: GPL v3
|
|
#
|
|
#
|
|
|
|
use strict;
|
|
use Time::HiRes qw(usleep nanosleep);
|
|
|
|
my $odelay = 0;
|
|
my $olayer = 0;
|
|
my $oled = 0;
|
|
|
|
print "./frame2cube.pl ";
|
|
for (my $i = 0; $i < 32; $i++)
|
|
{
|
|
print "\"";
|
|
my $r = 0;
|
|
while ($r < 1 || $r > 5 || $odelay == $r)
|
|
{
|
|
$r = int(rand(6));
|
|
}
|
|
$odelay = $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)
|
|
{
|
|
$r = int(rand(4));
|
|
}
|
|
$olayer = $r;
|
|
print $r;
|
|
print ",";
|
|
$r = 0;
|
|
while ($r < 1 || $r > 9 || $oled == $r)
|
|
{
|
|
$r = int(rand(10));
|
|
}
|
|
$oled = $r;
|
|
print $r;
|
|
}
|
|
|