ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implement command line options

This commit is contained in:
Stefan `Sec` Zehl 2011-05-15 22:13:43 +02:00
parent 57d578404e
commit 27ad07e791
1 changed files with 21 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
tools/makefont.pl
View File

@ -1,20 +1,11 @@
#!/usr/bin/perl -w #!/usr/bin/perl
use GD; use GD;
use strict; use strict;
use warnings; use warnings;
use Getopt::Long;
$|=1; $|=1;
#for(1..500){
# printf "%3d | %-10s | %-10s\n",
# $_,
# join(" ",map {sprintf "%x",$_} (0,pk_encode_long($_))),
# join(" ",map {sprintf "%x",$_} pk_encode_long($_+16));
#}
#exit(1);
use constant VERBOSE=>0;
### ###
### Configure me ### Configure me
### ###
@ -24,14 +15,19 @@ for(32..126){
$charlist.=chr $_; $charlist.=chr $_;
}; };
my $size=shift||17; # Runtime Options
my ($verbose,$raw);
my $size=17;
my ($font,$title); my ($font,$title);
$font="/usr/local/lib/X11/fonts/bitstream-vera/Vera.ttf"; $font="../ttf/Ubuntu-Regular.ttf";
$title="Bitstream Vera Sans ".$size."pt"; $title="Ubuntu Sans ".$size."pt";
#$font="./Comic_Sans_MS_KOI8.ttf"; GetOptions ("size=i" => \$size, # numeric
#$title="Comic Sans ".$size."pt"; "font=s" => \$font, # string
"verbose" => \$verbose, # flag
"raw" => \$raw, # flag
);
### ###
### Code starts here. ### Code starts here.
@ -140,7 +136,7 @@ for (1..length$charlist){
}; };
# print "<\n"; # print "<\n";
}; };
print "### Start $char\n" if(VERBOSE); print "### Start $char\n" if($verbose);
print C " /* Char ",ord $char," is ",scalar@char,"px wide \@ $offset */\n"; print C " /* Char ",ord $char," is ",scalar@char,"px wide \@ $offset */\n";
@ -186,15 +182,14 @@ for (1..length$charlist){
$c2size+=1; $c2size+=1;
# If encoding is bigger, fall back to original char # If encoding is bigger, fall back to original char
my $rawpretty=0;
if($#enc>$#raw+3){ if($#enc>$#raw+3){
warn "Compression failure: Encoding char $char raw.\n"; warn "Compression failure: Encoding char $char raw.\n";
@enc=(255,$preblank,$postblank,@raw); $raw=1;
$rawpretty=1;
}; };
# Generate C source # Generate C source
if($rawpretty){ if($raw){
@enc=(255,$preblank,$postblank,@raw);
my @out=@enc; my @out=@enc;
printf C " 0x%02x, %2d, %2d, /* rawmode, preblank, postblank */\n", printf C " 0x%02x, %2d, %2d, /* rawmode, preblank, postblank */\n",
(shift@out), (shift@out), (shift@out); (shift@out), (shift@out), (shift@out);
@ -227,7 +222,7 @@ for (1..length$charlist){
$offset+=scalar(@enc); $offset+=scalar(@enc);
if(VERBOSE){ if($verbose){
print "-"x80,"\n"; print "-"x80,"\n";
}; };
}; };
@ -398,11 +393,11 @@ sub make_bytes{
sub do_pk { sub do_pk {
my $char=shift; my $char=shift;
my $size=scalar @$char * $byte; my $size=scalar @$char * $byte;
print "Input char is $size bytes\n" if VERBOSE; print "Input char is $size bytes\n" if $verbose;
$char=pk_dedup($char); $char=pk_dedup($char);
if(VERBOSE){ if($verbose){
for (@$char){ for (@$char){
print "dedup: $_\n"; print "dedup: $_\n";
}; };
@ -410,13 +405,13 @@ sub do_pk {
my @rle=pk_rle ($char); my @rle=pk_rle ($char);
if(VERBOSE){ if($verbose){
print "RLE: ",join(",",@rle),"\n"; print "RLE: ",join(",",@rle),"\n";
}; };
my @enc=pk_encode (@rle); my @enc=pk_encode (@rle);
if(VERBOSE){ if($verbose){
print "encoded stream: ",join(",",@enc),"\n"; print "encoded stream: ",join(",",@enc),"\n";
}; };