=pod

Number2XBM
Change: Public Domain

2001-07-14  wakaba <wakaba@suika.fam.cx>
	- Data::Number2XBM.pm.
2001-07-09  wakaba
	- Counter.cgi.  Glyphs of numbers are taken from jiskan16.bdf.
1984-**-**  JISC <http://www.jisc.org/>
	- JIS X 9051-1984.

=cut

package Data::Number2XBM;

sub convert {
  my $count = shift;
  my $keta  = shift;

@char0 = ('0x00,0x00,', '0xC0,0x03,', '0x20,0x04,', '0x10,0x08,', '0x10,0x08,', '0x18,0x18,', '0x08,0x10,', '0x08,0x10,', '0x08,0x10,', '0x08,0x10,', '0x18,0x18,', '0x10,0x08,', '0x10,0x08,', '0x20,0x04,', '0xC0,0x03,', '0x00,0x00,', );
@char1 = ('0x00,0x00,', '0x80,0x00,', '0xC0,0x00,', '0xA0,0x00,', '0x90,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0x80,0x00,', '0xE0,0x03,', '0x00,0x00,', );
@char2 = ('0x00,0x00,', '0xE0,0x07,', '0x30,0x08,', '0x18,0x10,', '0x08,0x10,', '0x00,0x10,', '0x00,0x18,', '0x00,0x0C,', '0x00,0x06,', '0x00,0x03,', '0x80,0x01,', '0xC0,0x00,', '0x60,0x00,', '0x30,0x00,', '0xF8,0x1F,', '0x00,0x00,', );
@char3 = ('0x00,0x00,', '0xC0,0x07,', '0x70,0x08,', '0x18,0x10,', '0x00,0x10,', '0x00,0x10,', '0x00,0x08,', '0xE0,0x07,', '0x00,0x08,', '0x00,0x10,', '0x00,0x10,', '0x00,0x10,', '0x00,0x18,', '0x00,0x0E,', '0xF8,0x03,', '0x00,0x00,', );
@char4 = ('0x00,0x00,', '0x00,0x06,', '0x00,0x07,', '0x80,0x05,', '0xC0,0x04,', '0x60,0x04,', '0x30,0x04,', '0x18,0x04,', '0x0C,0x04,', '0x04,0x04,', '0xFC,0x3F,', '0x00,0x04,', '0x00,0x04,', '0x00,0x04,', '0x00,0x1F,', '0x00,0x00,', );
@char5 = ('0x00,0x00,', '0xF8,0x1F,', '0x08,0x00,', '0x08,0x00,', '0x08,0x00,', '0x08,0x00,', '0xE8,0x07,', '0x18,0x08,', '0x08,0x10,', '0x00,0x10,', '0x00,0x10,', '0x00,0x18,', '0x00,0x0C,', '0x00,0x07,', '0xF8,0x01,', '0x00,0x00,', );
@char6 = ('0x00,0x00,', '0x00,0x0F,', '0xC0,0x01,', '0x60,0x00,', '0x30,0x00,', '0x10,0x00,', '0xD8,0x03,', '0x28,0x0C,', '0x18,0x18,', '0x08,0x10,', '0x08,0x10,', '0x18,0x10,', '0x10,0x18,', '0x30,0x0C,', '0xC0,0x03,', '0x00,0x00,', );
@char7 = ('0x00,0x00,', '0xF8,0x3F,', '0x08,0x10,', '0x08,0x18,', '0x08,0x08,', '0x00,0x0C,', '0x00,0x04,', '0x00,0x06,', '0x00,0x02,', '0x00,0x03,', '0x00,0x01,', '0x00,0x01,', '0x80,0x01,', '0x80,0x00,', '0x80,0x00,', '0x00,0x00,', );
@char8 = ('0x00,0x00,', '0xC0,0x03,', '0x30,0x0C,', '0x18,0x18,', '0x08,0x10,', '0x08,0x10,', '0x10,0x08,', '0xE0,0x07,', '0x10,0x08,', '0x08,0x10,', '0x08,0x10,', '0x08,0x10,', '0x18,0x18,', '0x30,0x0C,', '0xC0,0x03,', '0x00,0x00,', );
@char9 = ('0x00,0x00,', '0xC0,0x03,', '0x30,0x0C,', '0x18,0x08,', '0x08,0x18,', '0x08,0x10,', '0x08,0x10,', '0x18,0x18,', '0x30,0x14,', '0xC0,0x1B,', '0x00,0x08,', '0x00,0x0C,', '0x00,0x06,', '0x80,0x03,', '0xF0,0x00,', '0x00,0x00,', );

$count = substr(('0' x $keta).$count,-$keta);
my @count = split('', $count);
my $width = $keta * 16;

my $ret = <<EOH;
#define c_width ${width}
#define c_height 16
static char c_bits[] = {
EOH

for $j (0...15) {
  for $i (0...($keta-1)) {
    $ret .= ${'char'.$count[$i]}[$j];
  }
  $ret .= "\n";
}

$ret .= '}';

}

1;