f/mini-led-cube
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Small script fix.

Browse source
This commit is contained in:
Kai Lauterbach 2013-09-07 23:48:31 +02:00
parent 4788e00042
commit ba3b4d7daf
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/list2cube.pl
View file

@ -5,6 +5,7 @@
# license: GPL v3 # license: GPL v3
# #
use Time::HiRes qw(usleep nanosleep);
my @list = <STDIN>; my @list = <STDIN>;
my $i = 0; my $i = 0;
@ -15,7 +16,10 @@ foreach my $line (@list)
{ {
my $frame = hex(substr($line,2,8)); my $frame = hex(substr($line,2,8));
print "Adding ". $line. " with ". ($frame >> 27). " delay\n"; print "Adding ". $line. " with ". ($frame >> 27). " delay\n";
system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $line"); my $cframe = $frame & 0x07ffffff;
#printf("0x%08x\n", $cframe);
system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $cframe");
usleep(250000);
$i++; $i++;
} }
} }