view release on metacpan or  search on metacpan

script/hex2font.pl  view on Meta::CPAN

}

sub c_bits8 ($) { my $n = shift; my $o = 0; $n & (1<<$_) and $o++ for 0..7; $o}
my @c_bits = map c_bits8 $_, 0..0xFF;

_test_encodes_line(), exit if $opt{test_calc_line};

my %filter;
if (exists $opt{filterFile}) {
  my $str = do {local $/; open my $f, '<', $opt{'filterFile'} or die "Cannot open filterfile $opt{'filterFile'}"; <$f>};
  $str =~ s/^\x{feff}?##.*//mg;		# Skip comments and BOM
#  warn "<<$str>>";
  $str =~ s/\b([\dA-F]{4,6})\b/chr hex $1/gei;
  my @c = grep /\S/, split //, $str;
  @filter{@c} = (1) x @c;
}

my @rotate = ([0..0xFF],	# In 90deg increments, act on bitmaps of neighbors
	      [map 0xFF & (($_ << 2) | ($_ >> 6)), 0..0xFF]);
for my $i (2, 3) {
  my $prev = $i - 1;