src/px/ra_hexbit.c

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

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