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

Simple tool to convert commandline parameste data to 32bit frame data.

Browse source
This commit is contained in:
Kai Lauterbach 2011-12-29 22:33:48 +01:00
parent 805d8a8af3
commit c1fcb4135e
1 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
tools/param2HexFrame.pl Normal file
View file

@ -0,0 +1,42 @@
#!/usr/bin/perl -w
use strict;
for (my $i=0; $i<=$#ARGV; $i++)
{
print "Frame $i = ";
my @list = split(",", $ARGV[$i]);
my $frame = 0;
my $first = 1;
my $ebene = 0;
my $bit = 0;
if ($#list >= 0 && $#list <= 9)
{
my $ele = 0;
foreach my $ele (@list)
{
if ($first == 1)
{
$ebene = ($ele - 1) * 9;
$first = 2;
} elsif ($first == 2) {
$first = 0;
if ($ele < 32)
{
$frame |= $ele << 27;
}
} else {
if ($ele < 10)
{
$bit = $ebene + $ele-1;
$frame |= (1 << $bit);
}
}
}
printf("0x%08x = ", $frame);
printf("0b%032b\n", $frame);
}
}