1
0
mirror of git://projects.qi-hardware.com/antorcha.git synced 2024-11-01 18:12:49 +02:00
antorcha/tornado/fw/txt/stretch
Werner Almesberger a5694eba05 tornado/fw/txt/: tools for text conversion
txt2xbm: convert text to XBM, using ghostscript
stretch: resample XBM with rotation correction (x-axis only)
xbm2gp: convert XBM to gnuplot, taking into account rotation
plot: plot xbm2gp output
t: run all the above to display "TEST"
2012-12-04 00:56:36 -03:00

79 lines
1.2 KiB
Perl
Executable File

#!/usr/bin/perl
$L = 15; # bytes per line
sub pick
{
local ($x, $y) = @_;
my $i = $x+$y*$X;
return ((hex $p[$i >> 3]) >> ($i & 7)) & 1;
}
$f = 0.001*shift @ARGV;
while (<>) {
if (/#define\s+(\S+)_width\s+(\d+)/) {
print;
$N = $1;
$X = $2;
next;
}
if (/#define\s+\S+_height\s+(\d+)/) {
print;
$Y = $1;
next;
}
chop;
next unless /\s*0x/;
s/^\s*//;
s/(,|};)$//;
push(@p, split /,/);
}
FIRST: for ($x0 = 0; $x0 != $X; $x0++) {
for ($y = 0; $y != $Y; $y++) {
last FIRST if &pick($x0, $y);
}
}
for ($x = $x0; $x != $X; $x++) {
for ($y = 0; $y != $Y; $y++) {
$x1 = $x if &pick($x, $y);
}
}
$w = ($x1-$x0)+1;
$off = int(($X-$x1+$x0)/2);
#print STDERR "$X $x0 $x1 $w $off\n";
# x' = x*(1+y*f)
# x'/(1+y*f) = x
# x'
for ($y = 0; $y != $Y; $y++) {
for ($x = 0; $x != $X; $x += 8) {
$v = 0;
for ($i = 0; $i != 8; $i++) {
$t = $x+$i-$X/2;
$t = int($t*(1-$y*$f)-$off+$X/2);
next if $t < 0 || $t >= $X;
$v |= 1 << $i if &pick($t, $y);
}
push(@r, sprintf("0x%02x", $v));
}
}
print "static char ${N}_bits[] = {\n";
$i = 0;
for (@r) {
print " " if !($i % $L);
print $_;
last if $i == $#r;
$i++;
print ",";
print "\n" if !($i % $L);
}
print "};\n";