/* pbmupc.c - create a Universal Product Code bitmap
**
** Copyright (C) 1988 by Jef Poskanzer.
**
** Permission to use, copy, modify, and distribute this software and its
** documentation for any purpose and without fee is hereby granted, provided
** that the above copyright notice appear in all copies and that both that
** copyright notice and this permission notice appear in supporting
** documentation. This software is provided "as is" without express or
** implied warranty.
*/
#include <string.h>
#include "pbm.h"
#define MARGIN 20
#define DIGIT_WIDTH 14
#define DIGIT_HEIGHT 23
#define LINE1_WIDTH 2
#define LINE2_WIDTH ( 2 * LINE1_WIDTH )
#define LINE3_WIDTH ( 3 * LINE1_WIDTH )
#define LINE4_WIDTH ( 4 * LINE1_WIDTH )
#define LINES_WIDTH ( 7 * LINE1_WIDTH )
#define SHORT_HEIGHT ( 8 * LINES_WIDTH )
#define TALL_HEIGHT ( SHORT_HEIGHT + DIGIT_HEIGHT / 2 )
static int alldig ARGS(( char* cp ));
static void putdigit ARGS(( int d, bit** bits, int row0, int col0 ));
static int addlines ARGS(( int d, bit** bits, int row0, int col0, int height, bit color ));
static int rect ARGS(( bit** bits, int row0, int col0, int height, int width, bit color ));
int
main( argc, argv )
int argc;
char* argv[];
{
register bit** bits;
int argn, style, rows, cols, row, digrow, col, digcolofs;
char* typecode;
char* manufcode;
char* prodcode;
int sum, p, lc0, lc1, lc2, lc3, lc4, rc0, rc1, rc2, rc3, rc4;
const char* const usage = "[-s1|-s2] <type> <manufac> <product>";
pbm_init( &argc, argv );
argn = 1;
style = 1;
/* Check for flags. */
while ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' )
{
if ( pm_keymatch( argv[argn], "-s1", 3 ) )
style = 1;
else if ( pm_keymatch( argv[argn], "-s2", 3 ) )
style = 2;
else
pm_usage( usage );
argn++;
}
if ( argn + 3 < argc )
pm_usage( usage );
typecode = argv[argn];
manufcode = argv[argn + 1];
prodcode = argv[argn + 2];
argn += 3;
if ( argn != argc )
pm_usage( usage );
if ( strlen( typecode ) != 1 || ( ! alldig( typecode ) ) ||
strlen( manufcode ) != 5 || ( ! alldig ( manufcode ) ) ||
strlen( prodcode ) != 5 || ( ! alldig ( prodcode ) ) )
pm_error(
"type code must be one digit, and\n manufacturer and product codes must be five digits" );
p = typecode[0] - '0';
lc0 = manufcode[0] - '0';
lc1 = manufcode[1] - '0';
lc2 = manufcode[2] - '0';
lc3 = manufcode[3] - '0';
lc4 = manufcode[4] - '0';
rc0 = prodcode[0] - '0';
rc1 = prodcode[1] - '0';
rc2 = prodcode[2] - '0';
rc3 = prodcode[3] - '0';
rc4 = prodcode[4] - '0';
sum = ( 10 - ( ( ( p + lc1 + lc3 + rc0 + rc2 + rc4 ) * 3 + lc0 + lc2 + lc4 + rc1 + rc3 ) % 10 ) ) % 10;
rows = 2 * MARGIN + SHORT_HEIGHT + DIGIT_HEIGHT;
cols = 2 * MARGIN + 12 * LINES_WIDTH + 11 * LINE1_WIDTH;
bits = pbm_allocarray( cols, rows );
(void) rect( bits, 0, 0, rows, cols, PBM_WHITE );
row = MARGIN;
digrow = row + SHORT_HEIGHT;
col = MARGIN;
digcolofs = ( LINES_WIDTH - DIGIT_WIDTH ) / 2;
if ( style == 1 )
putdigit( p, bits, digrow, col - DIGIT_WIDTH - LINE1_WIDTH );
else if ( style == 2 )
putdigit(
p, bits, row + SHORT_HEIGHT / 2, col - DIGIT_WIDTH - LINE1_WIDTH );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_BLACK );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_WHITE );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_BLACK );
col = addlines( p, bits, row, col, TALL_HEIGHT, PBM_WHITE );
putdigit( lc0, bits, digrow, col + digcolofs );
col = addlines( lc0, bits, row, col, SHORT_HEIGHT, PBM_WHITE );
putdigit( lc1, bits, digrow, col + digcolofs );
col = addlines( lc1, bits, row, col, SHORT_HEIGHT, PBM_WHITE );
putdigit( lc2, bits, digrow, col + digcolofs );
col = addlines( lc2, bits, row, col, SHORT_HEIGHT, PBM_WHITE );
putdigit( lc3, bits, digrow, col + digcolofs );
col = addlines( lc3, bits, row, col, SHORT_HEIGHT, PBM_WHITE );
putdigit( lc4, bits, digrow, col + digcolofs );
col = addlines( lc4, bits, row, col, SHORT_HEIGHT, PBM_WHITE );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_WHITE );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_BLACK );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_WHITE );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_BLACK );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_WHITE );
putdigit( rc0, bits, digrow, col + digcolofs );
col = addlines( rc0, bits, row, col, SHORT_HEIGHT, PBM_BLACK );
putdigit( rc1, bits, digrow, col + digcolofs );
col = addlines( rc1, bits, row, col, SHORT_HEIGHT, PBM_BLACK );
putdigit( rc2, bits, digrow, col + digcolofs );
col = addlines( rc2, bits, row, col, SHORT_HEIGHT, PBM_BLACK );
putdigit( rc3, bits, digrow, col + digcolofs );
col = addlines( rc3, bits, row, col, SHORT_HEIGHT, PBM_BLACK );
putdigit( rc4, bits, digrow, col + digcolofs );
col = addlines( rc4, bits, row, col, SHORT_HEIGHT, PBM_BLACK );
col = addlines( sum, bits, row, col, TALL_HEIGHT, PBM_BLACK );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_BLACK );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_WHITE );
col = rect( bits, row, col, TALL_HEIGHT, LINE1_WIDTH, PBM_BLACK );
if ( style == 1 )
putdigit( sum, bits, digrow, col + LINE1_WIDTH );
pbm_writepbm( stdout, bits, cols, rows, 0 );
pm_close( stdout );
exit( 0 );
}
static int
alldig( cp )
char* cp;
{
for ( ; *cp != '\0'; cp++ )
if ( *cp < '0' || *cp > '9' )
return 0;
return 1;
}
static void
putdigit( d, bits, row0, col0 )
int d;
bit** bits;
int row0, col0;
{
int row, col;
static bit digits[10][DIGIT_HEIGHT][DIGIT_WIDTH] = {
/* 0 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,1,1,1,1,1,1,0,0,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,1,1,1,0,0,0,0,1,1,1,0,0},
{0,0,1,1,0,0,0,0,0,0,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,0,1,1,0,0,0,0,0,0,1,1,0,0},
{0,0,1,1,1,0,0,0,0,1,1,1,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,0,0,1,1,1,1,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 1 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,1,1,1,0,0,0,0,0,0},
{0,0,0,0,1,1,1,1,0,0,0,0,0,0},
{0,0,0,1,1,1,1,1,0,0,0,0,0,0},
{0,0,1,1,1,0,1,1,0,0,0,0,0,0},
{0,0,1,1,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 2 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,1,1,1,1,0,0,0,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,1,1,1,1,0,0,1,1,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,0,0},
{0,1,1,0,0,0,0,0,0,0,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,1,1,0},
{0,0,0,0,0,0,0,0,0,0,1,1,1,0},
{0,0,0,0,0,0,0,0,0,1,1,1,0,0},
{0,0,0,0,0,0,0,0,1,1,1,0,0,0},
{0,0,0,0,0,0,0,1,1,1,0,0,0,0},
{0,0,0,0,0,0,1,1,1,0,0,0,0,0},
{0,0,0,0,0,1,1,1,0,0,0,0,0,0},
{0,0,0,0,1,1,1,0,0,0,0,0,0,0},
{0,0,0,1,1,1,0,0,0,0,0,0,0,0},
{0,0,1,1,1,0,0,0,0,0,0,0,0,0},
{0,1,1,1,0,0,0,0,0,0,0,0,0,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 3 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,1,1,1,0},
{0,0,0,0,0,0,0,0,0,1,1,1,0,0},
{0,0,0,0,0,0,0,0,1,1,1,0,0,0},
{0,0,0,0,0,0,0,1,1,1,0,0,0,0},
{0,0,0,0,0,0,1,1,1,0,0,0,0,0},
{0,0,0,0,0,1,1,1,1,0,0,0,0,0},
{0,0,0,0,0,1,1,1,1,1,1,0,0,0},
{0,0,0,0,0,0,0,0,1,1,1,1,0,0},
{0,0,0,0,0,0,0,0,0,0,1,1,0,0},
{0,0,0,0,0,0,0,0,0,0,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,1,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,0,0},
{0,0,1,1,1,1,0,0,1,1,1,1,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,0,0,0,1,1,1,1,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 4 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,1,1,1,0,0,0,0,0,0},
{0,0,0,0,0,1,1,0,0,0,0,0,0,0},
{0,0,0,0,1,1,1,0,0,0,0,0,0,0},
{0,0,0,0,1,1,0,0,0,0,0,0,0,0},
{0,0,0,1,1,1,0,0,0,0,0,0,0,0},
{0,0,0,1,1,0,0,0,1,1,0,0,0,0},
{0,0,1,1,1,0,0,0,1,1,0,0,0,0},
{0,0,1,1,0,0,0,0,1,1,0,0,0,0},
{0,1,1,1,0,0,0,0,1,1,0,0,0,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 5 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,1,1,1,1,1,1,0,0,0,0,0},
{0,1,1,1,1,1,1,1,1,1,1,0,0,0},
{0,0,0,0,0,0,0,0,1,1,1,1,0,0},
{0,0,0,0,0,0,0,0,0,0,1,1,0,0},
{0,0,0,0,0,0,0,0,0,0,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,1,1,0},
{0,0,0,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,1,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,0,0},
{0,0,1,1,1,1,0,0,1,1,1,1,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,0,0,0,1,1,1,1,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 6 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,1,1,0,0,0,0,0},
{0,0,0,0,0,0,1,1,1,0,0,0,0,0},
{0,0,0,0,0,1,1,1,0,0,0,0,0,0},
{0,0,0,0,1,1,1,0,0,0,0,0,0,0},
{0,0,0,1,1,1,0,0,0,0,0,0,0,0},
{0,0,0,1,1,0,0,0,0,0,0,0,0,0},
{0,0,1,1,1,0,0,0,0,0,0,0,0,0},
{0,0,1,1,0,1,1,1,1,0,0,0,0,0},
{0,0,1,1,1,1,1,1,1,1,1,0,0,0},
{0,1,1,1,1,1,0,0,1,1,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,0,1,1,0,0,0,0,0,0,1,1,0,0},
{0,0,1,1,1,1,0,0,1,1,1,1,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,0,0,0,1,1,1,1,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 7 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,1,1,1,1,1,1,1,1,1,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,1,1,1,0},
{0,0,0,0,0,0,0,0,0,0,1,1,0,0},
{0,0,0,0,0,0,0,0,0,1,1,1,0,0},
{0,0,0,0,0,0,0,0,0,1,1,0,0,0},
{0,0,0,0,0,0,0,0,1,1,1,0,0,0},
{0,0,0,0,0,0,0,0,1,1,0,0,0,0},
{0,0,0,0,0,0,0,1,1,1,0,0,0,0},
{0,0,0,0,0,0,0,1,1,0,0,0,0,0},
{0,0,0,0,0,0,1,1,1,0,0,0,0,0},
{0,0,0,0,0,0,1,1,0,0,0,0,0,0},
{0,0,0,0,0,1,1,1,0,0,0,0,0,0},
{0,0,0,0,0,1,1,0,0,0,0,0,0,0},
{0,0,0,0,0,1,1,0,0,0,0,0,0,0},
{0,0,0,0,1,1,1,0,0,0,0,0,0,0},
{0,0,0,0,1,1,0,0,0,0,0,0,0,0},
{0,0,0,0,1,1,0,0,0,0,0,0,0,0},
{0,0,0,0,1,1,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 8 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,1,1,1,1,1,1,1,1,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,0,1,1,1,0,0,0,0,1,1,1,0,0},
{0,0,0,1,1,1,0,0,1,1,1,0,0,0},
{0,0,0,0,1,1,1,1,1,1,0,0,0,0},
{0,0,0,0,1,1,1,1,1,1,0,0,0,0},
{0,0,0,1,1,1,0,0,1,1,1,0,0,0},
{0,0,1,1,1,0,0,0,0,1,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,0,1,1,1,1,1,1,1,1,1,1,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
},
/* 9 */
{
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,1,1,1,1,0,0,0,0,0},
{0,0,0,1,1,1,1,1,1,1,1,0,0,0},
{0,0,1,1,1,1,0,0,1,1,1,1,0,0},
{0,0,1,1,0,0,0,0,0,0,1,1,0,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,0,0,0,0,0,0,0,0,1,1,0},
{0,1,1,1,0,0,0,0,0,0,1,1,1,0},
{0,0,1,1,0,0,0,0,0,0,1,1,1,0},
{0,0,1,1,1,1,0,0,1,1,1,1,1,0},
{0,0,0,1,1,1,1,1,1,1,1,1,0,0},
{0,0,0,0,0,1,1,1,1,0,1,1,0,0},
{0,0,0,0,0,0,0,0,0,1,1,1,0,0},
{0,0,0,0,0,0,0,0,0,1,1,0,0,0},
{0,0,0,0,0,0,0,0,1,1,1,0,0,0},
{0,0,0,0,0,0,0,1,1,1,0,0,0,0},
{0,0,0,0,0,0,1,1,1,0,0,0,0,0},
{0,0,0,0,0,1,1,1,0,0,0,0,0,0},
{0,0,0,0,0,1,1,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0,0,0}
}
};
for ( row = 0; row < DIGIT_HEIGHT; row++ )
for ( col = 0; col < DIGIT_WIDTH; col++ )
bits[row0 + row][col0 + col] = digits[d][row][col];
}
static int
addlines( int d, bit** bits, int row0, int col0, int height, bit color )
{
switch ( d )
{
case 0:
col0 = rect( bits, row0, col0, height, LINE3_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
break;
case 1:
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
break;
case 2:
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
break;
case 3:
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE4_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
break;
case 4:
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE3_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
break;
case 5:
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE3_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
break;
case 6:
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE4_WIDTH, 1 - color );
break;
case 7:
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE3_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
break;
case 8:
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE3_WIDTH, 1 - color );
break;
case 9:
col0 = rect( bits, row0, col0, height, LINE3_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, 1 - color );
col0 = rect( bits, row0, col0, height, LINE1_WIDTH, color );
col0 = rect( bits, row0, col0, height, LINE2_WIDTH, 1 - color );
break;
default:
pm_error( "can't happen" );
}
return col0;
}
static int
rect( bit** bits, int row0, int col0, int height, int width, bit color )
{
int row, col;
for ( row = row0; row < row0 + height; row++ )
for ( col = col0; col < col0 + width; col++ )
bits[row][col] = color;
return col0 + width;
}