"p4label15: Reads text from standard input,",

const char * (UsageLines [] ) = {
"p4label15: Reads text from standard input,",
"writes P4 pbm to standard output using fixed-width.",
"Usage: p4label15 (output image width) (output image height)",
"Only ASCII characters are recognized.",
"",
"January 4, 2023. Latest at gopher://sdf.org/1/users/julianbr",
};
const int NumUsageLines = sizeof (UsageLines)/sizeof (UsageLines [0] );

#define NUM_ROWS 15
#define LETTER_SPACING 1
#define LINE_SPACING 1
#define MARGIN 5
int MaxNumColumns;

int (Outlines [] ) [NUM_ROWS] = {
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0 }, /* ! */
{0, 9, 9, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* " */
{0, 0, 18, 18, 18, 63, 18, 18, 63, 18, 18, 18, 0, 0, 0 }, /* # */
{0, 8, 8, 62, 73, 72, 72, 62, 9, 9, 73, 62, 8, 8, 0 }, /* $ */
{0, 0, 50, 74, 52, 4, 8, 8, 16, 22, 41, 38, 0, 0, 0 }, /* % */
{0, 0, 12, 18, 18, 12, 24, 37, 34, 34, 34, 29, 0, 0, 0 }, /* & */
{0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* ' */
{0, 0, 1, 2, 4, 4, 4, 4, 4, 4, 2, 1, 0, 0, 0 }, /* ( */
{0, 0, 4, 2, 1, 1, 1, 1, 1, 1, 2, 4, 0, 0, 0 }, /* ) */
{0, 0, 0, 0, 0, 18, 12, 63, 12, 18, 0, 0, 0, 0, 0 }, /* * */
{0, 0, 0, 0, 0, 4, 4, 31, 4, 4, 0, 0, 0, 0, 0 }, /* + */
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 0, 0 }, /* , */
{0, 0, 0, 0, 0, 0, 0, 63, 0, 0, 0, 0, 0, 0, 0 }, /* - */
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0 }, /* . */
{0, 0, 1, 1, 2, 2, 4, 4, 8, 8, 16, 16, 0, 0, 0 }, /* / */
{0, 0, 30, 33, 33, 35, 37, 41, 49, 33, 33, 30, 0, 0, 0 }, /* 0 */
{0, 0, 4, 12, 20, 4, 4, 4, 4, 4, 4, 31, 0, 0, 0 }, /* 1 */
{0, 0, 30, 33, 33, 1, 2, 4, 8, 16, 32, 63, 0, 0, 0 }, /* 2 */
{0, 0, 30, 33, 33, 1, 14, 1, 1, 33, 33, 30, 0, 0, 0 }, /* 3 */
{0, 0, 1, 3, 5, 9, 17, 33, 63, 1, 1, 1, 0, 0, 0 }, /* 4 */
{0, 0, 63, 32, 32, 32, 62, 1, 1, 1, 33, 30, 0, 0, 0 }, /* 5 */
{0, 0, 14, 16, 32, 32, 62, 33, 33, 33, 33, 30, 0, 0, 0 }, /* 6 */
{0, 0, 63, 1, 1, 2, 2, 4, 4, 8, 8, 8, 0, 0, 0 }, /* 7 */
{0, 0, 30, 33, 33, 33, 30, 33, 33, 33, 33, 30, 0, 0, 0 }, /* 8 */
{0, 0, 30, 33, 33, 33, 33, 31, 1, 1, 2, 28, 0, 0, 0 }, /* 9 */
{0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0 }, /* : */
{0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 2, 0, 0 }, /* ; */
{0, 0, 0, 1, 2, 4, 8, 16, 8, 4, 2, 1, 0, 0, 0 }, /* < */
{0, 0, 0, 0, 0, 0, 63, 0, 63, 0, 0, 0, 0, 0, 0 }, /* = */
{0, 0, 0, 16, 8, 4, 2, 1, 2, 4, 8, 16, 0, 0, 0 }, /* > */
{0, 0, 30, 33, 33, 33, 2, 4, 4, 0, 4, 4, 0, 0, 0 }, /* ? */
{0, 0, 62, 65, 79, 81, 81, 81, 83, 77, 64, 63, 0, 0, 0 }, /* @ */
{0, 0, 30, 33, 33, 33, 33, 63, 33, 33, 33, 33, 0, 0, 0 }, /* A */
{0, 0, 62, 33, 33, 33, 62, 33, 33, 33, 33, 62, 0, 0, 0 }, /* B */
{0, 0, 30, 33, 33, 32, 32, 32, 32, 33, 33, 30, 0, 0, 0 }, /* C */
{0, 0, 60, 34, 33, 33, 33, 33, 33, 33, 34, 60, 0, 0, 0 }, /* D */
{0, 0, 63, 32, 32, 32, 60, 32, 32, 32, 32, 63, 0, 0, 0 }, /* E */
{0, 0, 63, 32, 32, 32, 60, 32, 32, 32, 32, 32, 0, 0, 0 }, /* F */
{0, 0, 30, 33, 33, 32, 32, 39, 33, 33, 33, 30, 0, 0, 0 }, /* G */
{0, 0, 33, 33, 33, 33, 63, 33, 33, 33, 33, 33, 0, 0, 0 }, /* H */
{0, 0, 7, 2, 2, 2, 2, 2, 2, 2, 2, 7, 0, 0, 0 }, /* I */
{0, 0, 7, 2, 2, 2, 2, 2, 2, 34, 34, 28, 0, 0, 0 }, /* J */
{0, 0, 33, 34, 36, 40, 48, 48, 40, 36, 34, 33, 0, 0, 0 }, /* K */
{0, 0, 32, 32, 32, 32, 32, 32, 32, 32, 32, 63, 0, 0, 0 }, /* L */
{0, 0, 65, 99, 85, 73, 73, 65, 65, 65, 65, 65, 0, 0, 0 }, /* M */
{0, 0, 33, 33, 33, 49, 41, 37, 35, 33, 33, 33, 0, 0, 0 }, /* N */
{0, 0, 30, 33, 33, 33, 33, 33, 33, 33, 33, 30, 0, 0, 0 }, /* O */
{0, 0, 62, 33, 33, 33, 33, 62, 32, 32, 32, 32, 0, 0, 0 }, /* P */
{0, 0, 30, 33, 33, 33, 33, 33, 33, 33, 37, 30, 1, 0, 0 }, /* Q */
{0, 0, 62, 33, 33, 33, 33, 62, 40, 36, 34, 33, 0, 0, 0 }, /* R */
{0, 0, 30, 33, 32, 32, 30, 1, 1, 33, 33, 30, 0, 0, 0 }, /* S */
{0, 0, 127, 8, 8, 8, 8, 8, 8, 8, 8, 8, 0, 0, 0 }, /* T */
{0, 0, 33, 33, 33, 33, 33, 33, 33, 33, 33, 30, 0, 0, 0 }, /* U */
{0, 0, 33, 33, 33, 33, 33, 18, 18, 18, 12, 12, 0, 0, 0 }, /* V */
{0, 0, 65, 65, 65, 65, 65, 73, 73, 85, 99, 65, 0, 0, 0 }, /* W */
{0, 0, 33, 33, 18, 18, 12, 12, 18, 18, 33, 33, 0, 0, 0 }, /* X */
{0, 0, 65, 65, 34, 34, 20, 8, 8, 8, 8, 8, 0, 0, 0 }, /* Y */
{0, 0, 63, 1, 1, 2, 4, 8, 16, 32, 32, 63, 0, 0, 0 }, /* Z */
{0, 0, 7, 4, 4, 4, 4, 4, 4, 4, 4, 7, 0, 0, 0 }, /* [ */
{0, 0, 16, 16, 8, 8, 4, 4, 2, 2, 1, 1, 0, 0, 0 }, /* \ */
{0, 0, 7, 1, 1, 1, 1, 1, 1, 1, 1, 7, 0, 0, 0 }, /* ] */
{0, 0, 4, 10, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* ^ */
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 0 }, /* _ */
{2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* ` */
{0, 0, 0, 0, 0, 30, 1, 31, 33, 33, 33, 31, 0, 0, 0 }, /* a */
{0, 0, 32, 32, 32, 62, 33, 33, 33, 33, 33, 62, 0, 0, 0 }, /* b */
{0, 0, 0, 0, 0, 30, 33, 32, 32, 32, 33, 30, 0, 0, 0 }, /* c */
{0, 0, 1, 1, 1, 31, 33, 33, 33, 33, 33, 31, 0, 0, 0 }, /* d */
{0, 0, 0, 0, 0, 30, 33, 33, 63, 32, 32, 30, 0, 0, 0 }, /* e */
{0, 0, 7, 8, 8, 62, 8, 8, 8, 8, 8, 8, 0, 0, 0 }, /* f */
{0, 0, 0, 0, 0, 31, 33, 33, 33, 33, 33, 31, 1, 1, 30 }, /* g */
{0, 0, 32, 32, 32, 62, 33, 33, 33, 33, 33, 33, 0, 0, 0 }, /* h */
{0, 0, 2, 2, 0, 6, 2, 2, 2, 2, 2, 7, 0, 0, 0 }, /* i */
{0, 0, 2, 2, 0, 6, 2, 2, 2, 2, 2, 2, 34, 34, 14 }, /* j */
{0, 0, 32, 32, 32, 33, 34, 36, 56, 36, 34, 33, 0, 0, 0 }, /* k */
{0, 0, 6, 2, 2, 2, 2, 2, 2, 2, 2, 7, 0, 0, 0 }, /* l */
{0, 0, 0, 0, 0, 126, 73, 73, 73, 73, 73, 73, 0, 0, 0 }, /* m */
{0, 0, 0, 0, 0, 62, 33, 33, 33, 33, 33, 33, 0, 0, 0 }, /* n */
{0, 0, 0, 0, 0, 30, 33, 33, 33, 33, 33, 30, 0, 0, 0 }, /* o */
{0, 0, 0, 0, 0, 62, 33, 33, 33, 33, 33, 62, 32, 32, 32 }, /* p */
{0, 0, 0, 0, 0, 31, 33, 33, 33, 33, 33, 31, 1, 1, 1 }, /* q */
{0, 0, 0, 0, 0, 47, 48, 32, 32, 32, 32, 32, 0, 0, 0 }, /* r */
{0, 0, 0, 0, 0, 31, 32, 32, 30, 1, 1, 62, 0, 0, 0 }, /* s */
{0, 0, 8, 8, 8, 62, 8, 8, 8, 8, 8, 7, 0, 0, 0 }, /* t */
{0, 0, 0, 0, 0, 33, 33, 33, 33, 33, 33, 31, 0, 0, 0 }, /* u */
{0, 0, 0, 0, 0, 33, 33, 33, 18, 18, 12, 12, 0, 0, 0 }, /* v */
{0, 0, 0, 0, 0, 65, 65, 73, 73, 73, 73, 62, 0, 0, 0 }, /* w */
{0, 0, 0, 0, 0, 33, 33, 18, 12, 18, 33, 33, 0, 0, 0 }, /* x */
{0, 0, 0, 0, 0, 33, 33, 33, 33, 33, 33, 31, 1, 1, 30 }, /* y */
{0, 0, 0, 0, 0, 63, 2, 4, 8, 16, 32, 63, 0, 0, 0 }, /* z */
{0, 0, 3, 4, 4, 4, 8, 4, 4, 4, 4, 3, 0, 0, 0 }, /* { */
{0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0 }, /* | */
{0, 0, 12, 2, 2, 2, 1, 2, 2, 2, 2, 12, 0, 0, 0 }, /* } */
{0, 12, 18, 18, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* degree */
{0, 49, 73, 70, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, /* ~ */
};
int NumOutlines = sizeof (Outlines) / sizeof (Outlines [0] );

#include <stdlib.h>
#include <stdio.h>

void WriteLabel (unsigned char (* TextLine) [NUM_ROWS] , int width, int height)
{
int * Outline;
int c, i, j, byte, NumTextLines, NumImageLines, NumChars, MaxNumChars, PowerOf2;
int row, position, NumColumns;

NumImageLines = 0;
printf ("P4\n");
printf ("%d %d\n", width, height);
for (i = 0; i < MARGIN; i++) {
if (NumImageLines < height) {
for (byte = 0; byte < (width + 7)/8; byte++)
putchar (0);
}
NumImageLines++;
}
NumTextLines = 0;
MaxNumChars = 0;
c = getchar ();
while (c != EOF) {
NumChars = 0;
for (i = 0; i < NUM_ROWS; i++) {
for (byte = 0; byte < (width + 7)/8; byte++)
TextLine [byte] [i] = 0;
}
while (c != '\n' && c != EOF) {
if (c - '!' >= 0 && c - '!' < NumOutlines) {
PowerOf2 = 1;
NumColumns = 0;
Outline = Outlines [c - '!'];
for (i = 0; i < NUM_ROWS; i++) {
row = Outline [i];
while (PowerOf2 <= row) {
PowerOf2 *= 2;
NumColumns++;
}
}
if (NumColumns > MaxNumColumns)
NumColumns = MaxNumColumns;
for (i = 0; i < NumColumns; i++) {
position = MARGIN + NumChars*(MaxNumColumns + LETTER_SPACING)
+ (MaxNumColumns - NumColumns)/2 + i;
if (position < width) {
byte = position/8;
for (j = 0; j < NUM_ROWS; j++) {
row = Outline [j];
if (row & (1 << (NumColumns - i - 1) ) )
TextLine [byte] [j] += (1 << (7 - position%8) );
}
}
}
}
NumChars++;
c = getchar ();
}
for (i = 0; i < NUM_ROWS; i++) {
if (NumImageLines < height) {
for (byte = 0; byte < (width + 7)/8; byte++)
putchar (TextLine [byte] [i] );
}
NumImageLines++;
}
for (i = 0; i < LINE_SPACING; i++) {
if (NumImageLines < height) {
for (byte = 0; byte < (width + 7)/8; byte++)
putchar (0);
}
NumImageLines++;
}
if (MaxNumChars < NumChars)
MaxNumChars = NumChars;
NumTextLines++;
if (c != EOF)
c = getchar ();
}
while (NumImageLines < height) {
for (byte = 0; byte < (width + 7)/8; byte++)
putchar (0);
NumImageLines++;
}
fprintf (stderr, "p4label15: Fits");
fprintf (stderr, " %d", 2*MARGIN + MaxNumChars*MaxNumColumns + LETTER_SPACING*(MaxNumChars - 1) );
fprintf (stderr, "x%d,", 2*MARGIN + (NumTextLines - 1)*LINE_SPACING + NumTextLines*NUM_ROWS);
fprintf (stderr, " writing %dx%d.\n", width, height);
}

int main (int argc, char * * argv)
{
unsigned char (* TextLine) [NUM_ROWS];
int i, j, width, height, PowerOf2, row;
char c;

PowerOf2 = 1;
MaxNumColumns = 0;
for (i = 0; i < NumOutlines; i++) {
for (j = 0; j < NUM_ROWS; j++) {
row = Outlines [i] [j];
while (PowerOf2 <= row) {
PowerOf2 *= 2;
MaxNumColumns++;
}
}
}
if (argc == 1) {
for (i = 0; i < NumUsageLines; i++)
printf ("%s\n", UsageLines [i] );
printf ("Each character %dx%d,", MaxNumColumns, NUM_ROWS);
printf (" letter spacing %d, line spacing %d,", LETTER_SPACING, LINE_SPACING);
printf (" margin %d.\n", MARGIN);
}
else if (argc == 3) {
if (
sscanf (argv [1], "%d%c", & width, & c) != 1
|| sscanf (argv [2], "%d%c", & height, & c) != 1
|| width <= 0
|| height <= 0) {
fprintf (stderr, "p4label1528: Improper \"%s\" \"%s\",", argv [1], argv [2] );
fprintf (stderr, " expecting width and height.\n");
}
else {
TextLine = malloc (NUM_ROWS*((width + 7)/8) );
if (TextLine == NULL)
fprintf (stderr, "***p4label15: Not enough memory.\n");
else {
WriteLabel (TextLine, width, height);
free (TextLine);
}
}
}
else
printf ("Usage: %s: (width) (height)\n", argv [0] );
return 0;
}