src/px/ra_hexbit.c

#ifndef lint
static const char       RCSid[] = "$Id: ra_hexbit.c,v 3.4 2018/03/20 18:45:04 greg Exp $";
#endif
/*
 * Create a 4x1 hex bitmap from a Radiance picture.
 */

#include  <stdio.h>
#include  <time.h>

#include  "platform.h"
#include  "color.h"
#include  "rtio.h"
#include  "resolu.h"

char  *progname;
int  xmax, ymax;
double  thresh = 0.5;           /* threshold value */
COLR    threshclr;

#define abovethresh(c)  ((c)[EXP]>threshclr[EXP] || \
                        ((c)[EXP]==threshclr[EXP] && (c)[GRN]>threshclr[GRN]))

static void quiterr(char *err);
static void ra2hex(void);


int
main(
        int  argc,
        char  *argv[]
)
{
        int  i;
        
        progname = argv[0];

        for (i = 1; i < argc; i++)
                if (argv[i][0] == '-')
                        switch (argv[i][1]) {
                        case 't':               /* threshold value */
                                thresh = atof(argv[++i]);
                                break;
                        default:
                                goto userr;
                        }
                else
                        break;

        if (i < argc-2)
                goto userr;
        if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
                fprintf(stderr, "%s: can't open input \"%s\"\n",
                                progname, argv[i]);
                exit(1);
        }
        if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
                fprintf(stderr, "%s: can't open output \"%s\"\n",
                                progname, argv[i+1]);
                exit(1);
        }
                                /* assign threshold color */
        setcolr(threshclr, thresh, thresh, thresh);
                                /* binary input */
        SET_FILE_BINARY(stdin);
                                /* get our header */
        if (checkheader(stdin, COLRFMT, NULL) < 0 ||
                        fgetresolu(&xmax, &ymax, stdin) < 0)
                quiterr("bad picture format");
                                /* convert file */
        ra2hex();
        exit(0);
userr:
        fprintf(stderr,
                "Usage: %s [-t thresh] [input [output]]\n", progname);
        exit(1);
}


static void
quiterr(                /* print message and exit */
        char  *err
)
{
        if (err != NULL) {
                fprintf(stderr, "%s: %s\n", progname, err);
                exit(1);
        }
        exit(0);
}


static void
ra2hex(void)            /* convert Radiance scanlines to 4x1 bit hex */
{
        static char     cmap[] = "0123456789ABCDEF";
        COLR    *scanin;
        register int    x, c, t;
        int     y;
                                                /* allocate scanline */
        scanin = (COLR *)malloc(xmax*sizeof(COLR));
        if (scanin == NULL)
                quiterr("out of memory in ra2skel");
                                                /* convert image */
        for (y = ymax-1; y >= 0; y--) {
                if (freadcolrs(scanin, xmax, stdin) < 0)
                        quiterr("error reading Radiance picture");
                c = 0;
                for (x = 0; x < xmax; x++)
                        if ((t = 03 - (x&03)))
                                c |= abovethresh(scanin[x]) << t;
                        else {
                                c |= abovethresh(scanin[x]);
                                putchar(cmap[c]);
                                c = 0;
                        }
                if (t)
                        fputc(cmap[c], stdout);
                fputc('\n', stdout);
                if (ferror(stdout))
                        quiterr("error writing hex bit file");
        }
                                                /* free scanline */
        free((void *)scanin);
}
Revision:	3.5
Committed:	Tue Apr 17 17:42:28 2018 UTC (6 years, 1 month ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R2
Changes since 3.4:	+4 -1 lines
Log Message:	Added missing binary setting for input
#	User	Rev	Content
1	gwlarson	3.1	#ifndef lint
2	greg	3.5	static const char RCSid[] = "$Id: ra_hexbit.c,v 3.4 2018/03/20 18:45:04 greg Exp $";
3	gwlarson	3.1	#endif
4			/*
5			* Create a 4x1 hex bitmap from a Radiance picture.
6			*/
7
8			#include <stdio.h>
9	greg	3.2	#include <time.h>
10	schorsch	3.3
11	greg	3.5	#include "platform.h"
12	gwlarson	3.1	#include "color.h"
13	greg	3.4	#include "rtio.h"
14	gwlarson	3.1	#include "resolu.h"
15
16			char *progname;
17			int xmax, ymax;
18			double thresh = 0.5; /* threshold value */
19			COLR threshclr;
20
21			#define abovethresh(c) ((c)[EXP]>threshclr[EXP] \|\| \
22			((c)[EXP]==threshclr[EXP] && (c)[GRN]>threshclr[GRN]))
23
24	schorsch	3.3	static void quiterr(char *err);
25			static void ra2hex(void);
26
27	gwlarson	3.1
28	schorsch	3.3	int
29			main(
30			int argc,
31			char *argv[]
32			)
33	gwlarson	3.1	{
34			int i;
35
36			progname = argv[0];
37
38			for (i = 1; i < argc; i++)
39			if (argv[i][0] == '-')
40			switch (argv[i][1]) {
41			case 't': /* threshold value */
42			thresh = atof(argv[++i]);
43			break;
44			default:
45			goto userr;
46			}
47			else
48			break;
49
50			if (i < argc-2)
51			goto userr;
52			if (i <= argc-1 && freopen(argv[i], "r", stdin) == NULL) {
53			fprintf(stderr, "%s: can't open input \"%s\"\n",
54			progname, argv[i]);
55			exit(1);
56			}
57			if (i == argc-2 && freopen(argv[i+1], "w", stdout) == NULL) {
58			fprintf(stderr, "%s: can't open output \"%s\"\n",
59			progname, argv[i+1]);
60			exit(1);
61			}
62			/* assign threshold color */
63			setcolr(threshclr, thresh, thresh, thresh);
64	greg	3.5	/* binary input */
65			SET_FILE_BINARY(stdin);
66	gwlarson	3.1	/* get our header */
67			if (checkheader(stdin, COLRFMT, NULL) < 0 \|\|
68			fgetresolu(&xmax, &ymax, stdin) < 0)
69			quiterr("bad picture format");
70			/* convert file */
71			ra2hex();
72			exit(0);
73			userr:
74			fprintf(stderr,
75			"Usage: %s [-t thresh] [input [output]]\n", progname);
76			exit(1);
77			}
78
79
80	schorsch	3.3	static void
81			quiterr( /* print message and exit */
82			char *err
83			)
84	gwlarson	3.1	{
85			if (err != NULL) {
86			fprintf(stderr, "%s: %s\n", progname, err);
87			exit(1);
88			}
89			exit(0);
90			}
91
92
93	schorsch	3.3	static void
94			ra2hex(void) /* convert Radiance scanlines to 4x1 bit hex */
95	gwlarson	3.1	{
96			static char cmap[] = "0123456789ABCDEF";
97			COLR *scanin;
98			register int x, c, t;
99			int y;
100			/* allocate scanline */
101			scanin = (COLR )malloc(xmaxsizeof(COLR));
102			if (scanin == NULL)
103			quiterr("out of memory in ra2skel");
104			/* convert image */
105			for (y = ymax-1; y >= 0; y--) {
106			if (freadcolrs(scanin, xmax, stdin) < 0)
107			quiterr("error reading Radiance picture");
108			c = 0;
109			for (x = 0; x < xmax; x++)
110			if ((t = 03 - (x&03)))
111			c \|= abovethresh(scanin[x]) << t;
112			else {
113			c \|= abovethresh(scanin[x]);
114			putchar(cmap[c]);
115			c = 0;
116			}
117			if (t)
118			fputc(cmap[c], stdout);
119			fputc('\n', stdout);
120			if (ferror(stdout))
121			quiterr("error writing hex bit file");
122			}
123			/* free scanline */
124	greg	3.2	free((void *)scanin);
125	gwlarson	3.1	}