73 lines
3.1 KiB
Perl
73 lines
3.1 KiB
Perl
|
#! /usr/local/bin/perl
|
||
|
|
#
|
||
|
|
# HITXBM.PL - Module required by hitmat.cgi
|
||
|
|
#
|
||
|
|
# Copyright: 1996,1997,1998 by Joe DePasquale
|
||
|
|
# Last revised: January 28, 1997
|
||
|
|
# E-Mail: crypt@getcruising.com
|
||
|
|
# Website: http://www.GetCruising.com
|
||
|
|
#
|
||
|
|
###########################################################################
|
||
|
|
# The bitmap data file @gened is used with the author's permission.
|
||
|
|
# number.xbm (C) 1994 Eugene E. Devereaux <gened@halcyon.com>
|
||
|
|
# Adapted for UUNET (NCSA httpd) by David MacKenzie <djm@va.pubnix.com>
|
||
|
|
###########################################################################
|
||
|
|
|
||
|
|
# Sub: Make an x-bitmap image of the count
|
||
|
|
|
||
|
|
sub makeXbm
|
||
|
|
{
|
||
|
|
($printTtl,$digits,$XBM) = @_;
|
||
|
|
|
||
|
|
$printTtl = substr ($printTtl,0);
|
||
|
|
$pad = $digits - length ($printTtl);
|
||
|
|
$xbmWidth = $digits * 16;
|
||
|
|
|
||
|
|
for ($x=0; $x<$digits; $x++)
|
||
|
|
{ if ($x<$pad) { $printTtl = "0".$printTtl; }
|
||
|
|
push @xbmNbr, substr ($printTtl,$x,1);
|
||
|
|
}
|
||
|
|
|
||
|
|
# assign bitmap byte octals for numbers 0..9 to list of lists
|
||
|
|
@gened = (
|
||
|
|
['00','00','e0','07','f0','0f','30','0c','30','0c','30','0c','30','0c','30','0c',
|
||
|
|
'30','0c','30','0c','30','0c','30','0c','30','0c','f0','0f','e0','07','00','00'],
|
||
|
|
['00','00','80','01','c0','01','e0','01','80','01','80','01','80','01','80','01',
|
||
|
|
'80','01','80','01','80','01','80','01','80','01','e0','07','e0','07','00','00'],
|
||
|
|
['00','00','e0','07','f8','1f','18','18','18','18','18','1c','00','0e','00','07',
|
||
|
|
'80','03','c0','01','e0','00','70','00','38','00','f8','1f','f8','1f','00','00'],
|
||
|
|
['00','00','f0','07','f0','0f','30','0c','00','0c','00','0c','00','0c','c0','0f',
|
||
|
|
'c0','0f','00','0c','00','0c','00','0c','30','0c','f0','0f','f0','07','00','00'],
|
||
|
|
['00','00','00','06','00','0f','80','0f','c0','0d','e0','0c','70','0c','f0','0f',
|
||
|
|
'f0','0f','00','0c','00','0c','00','0c','00','0c','00','0c','00','0c','00','00'],
|
||
|
|
['00','00','e0','0f','f0','0f','30','00','30','00','30','00','30','00','f0','07',
|
||
|
|
'e0','0f','00','0c','00','0c','00','0c','30','0c','f0','07','e0','03','00','00'],
|
||
|
|
['00','00','20','00','30','00','30','00','30','00','30','00','30','00','f0','07',
|
||
|
|
'f0','0f','30','0c','30','0c','30','0c','30','0c','f0','0f','e0','0f','00','00'],
|
||
|
|
['00','00','f0','0f','f0','0f','30','0c','30','0c','00','06','00','03','00','03',
|
||
|
|
'80','01','80','01','c0','00','c0','00','60','00','60','00','60','00','00','00'],
|
||
|
|
['00','00','e0','07','f0','0f','30','0c','30','0c','30','0c','60','06','c0','03',
|
||
|
|
'c0','03','60','06','30','0c','30','0c','30','0c','f0','0f','e0','07','00','00'],
|
||
|
|
['00','00','e0','07','f0','0f','30','0c','30','0c','30','0c','e0','0f','c0','0f',
|
||
|
|
'00','0e','00','0e','00','07','80','03','c0','01','e0','00','60','00','00','00'],
|
||
|
|
);
|
||
|
|
|
||
|
|
# create image file of printTtl
|
||
|
|
open (XBM,">$XBM");
|
||
|
|
flock (XBM,2); seek (XBM,0,0);
|
||
|
|
print (XBM "#define hit_width $xbmWidth\n");
|
||
|
|
print (XBM "#define hit_height 16\n");
|
||
|
|
print (XBM "static char hit_bits[] = {\n");
|
||
|
|
|
||
|
|
for ($y=0; $y<=30; $y=$y+2)
|
||
|
|
{ foreach $x (@xbmNbr)
|
||
|
|
{ print (XBM "0x$gened[$x][$y],0x$gened[$x][$y+1],");
|
||
|
|
}
|
||
|
|
print (XBM "\n");
|
||
|
|
}
|
||
|
|
print (XBM "};\n");
|
||
|
|
truncate (XBM,tell(XBM)); close (XBM);
|
||
|
|
} # end makeXbm
|
||
|
|
|
||
|
|
1; # return true
|