src/px/glimage.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  glimage.c - program to dump pixel file NeWS window
 *
 *     1/24/89
 */

#include  <stdio.h>

#include  <gl.h>

#include  <time.h>

#include  "color.h"

#include  "resolu.h"


main(argc, argv)                                /* print a picture */
int  argc;
char  *argv[];
{
        char  *fname;
        FILE  *input;
        int  xres, yres;
        int  winorgx, winorgy;
        COLR  *scanline;
        long  *winout;
        int  i;
        register int  j;

        fname = argv[1];
        if (fname == NULL) {
                input = stdin;
                fname = "<stdin>";
        } else if ((input = fopen(fname, "r")) == NULL) {
                perror(fname);
                exit(1);
        }
                                /* discard header */
        if (checkheader(input, COLRFMT, NULL) < 0) {
                fprintf(stderr, "%s: not a Radiance picture\n", fname);
                exit(1);
        }
                                /* get picture dimensions */
        if (fgetresolu(&xres, &yres, input) < 0) {
                fprintf(stderr, "%s: bad picture size\n", fname);
                exit(1);
        }
        prefsize(xres, yres);
        winopen("newsimage");
        RGBmode();
        gconfig();
        RGBcolor(0,0,0);
        clear();
        getorigin(&winorgx,&winorgy);
        winout = (long *)malloc(xres*sizeof(long));
        scanline = (COLR *)malloc(xres*sizeof(COLR));
        if (winout == NULL || scanline == NULL) {
                perror(argv[0]);
                exit(1);
        }
        for (i = yres-1; i >= 0; i--) {
                if (freadcolrs(scanline, xres, input) < 0) {
                        fprintf(stderr, "%s: read error (y=%d)\n", fname, i);
                        exit(1);
                }
                normcolrs(scanline, xres, 0);
                for (j = 0; j < xres; j++) {
                        winout[j] = 255L<<24;
                        winout[j] |= (long)scanline[j][BLU]<<16;
                        winout[j] |= (long)scanline[j][GRN]<<8;
                        winout[j] |= (long)scanline[j][RED];
                }
                lrectwrite(0,i,xres-1,i,winout);
        }
        pause();
        exit(0);
}
Revision:	2.2
Committed:	Sat Feb 22 02:07:27 2003 UTC (21 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R6P1, rad3R5, rad3R6
Changes since 2.1:	+3 -4 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	Content
1	#ifndef lint
2	static const char RCSid[] = "$Id$";
3	#endif
4	/*
5	* glimage.c - program to dump pixel file NeWS window
6	*
7	* 1/24/89
8	*/
9
10	#include <stdio.h>
11
12	#include <gl.h>
13
14	#include <time.h>
15
16	#include "color.h"
17
18	#include "resolu.h"
19
20
21	main(argc, argv) /* print a picture */
22	int argc;
23	char *argv[];
24	{
25	char *fname;
26	FILE *input;
27	int xres, yres;
28	int winorgx, winorgy;
29	COLR *scanline;
30	long *winout;
31	int i;
32	register int j;
33
34	fname = argv[1];
35	if (fname == NULL) {
36	input = stdin;
37	fname = "<stdin>";
38	} else if ((input = fopen(fname, "r")) == NULL) {
39	perror(fname);
40	exit(1);
41	}
42	/* discard header */
43	if (checkheader(input, COLRFMT, NULL) < 0) {
44	fprintf(stderr, "%s: not a Radiance picture\n", fname);
45	exit(1);
46	}
47	/* get picture dimensions */
48	if (fgetresolu(&xres, &yres, input) < 0) {
49	fprintf(stderr, "%s: bad picture size\n", fname);
50	exit(1);
51	}
52	prefsize(xres, yres);
53	winopen("newsimage");
54	RGBmode();
55	gconfig();
56	RGBcolor(0,0,0);
57	clear();
58	getorigin(&winorgx,&winorgy);
59	winout = (long )malloc(xressizeof(long));
60	scanline = (COLR )malloc(xressizeof(COLR));
61	if (winout == NULL \|\| scanline == NULL) {
62	perror(argv[0]);
63	exit(1);
64	}
65	for (i = yres-1; i >= 0; i--) {
66	if (freadcolrs(scanline, xres, input) < 0) {
67	fprintf(stderr, "%s: read error (y=%d)\n", fname, i);
68	exit(1);
69	}
70	normcolrs(scanline, xres, 0);
71	for (j = 0; j < xres; j++) {
72	winout[j] = 255L<<24;
73	winout[j] \|= (long)scanline[j][BLU]<<16;
74	winout[j] \|= (long)scanline[j][GRN]<<8;
75	winout[j] \|= (long)scanline[j][RED];
76	}
77	lrectwrite(0,i,xres-1,i,winout);
78	}
79	pause();
80	exit(0);
81	}