src/px/psum.c

#ifndef lint
static const char       RCSid[] = "$Id: psum.c,v 2.7 2004/01/02 12:47:01 schorsch Exp $";
#endif
/*
 *  psum.c - program to sum pictures.
 *
 *     10/14/86
 */

#include  <stdio.h>
#include  <math.h>

#include  "color.h"
#include  "resolu.h"
#include  "rterror.h"


#define  MAXFILE        8

int  xsiz, ysiz;

char  *progname;

char  *fname[MAXFILE];                  /* the file names */
FILE  *fptr[MAXFILE];                   /* the file pointers */
COLOR  scale[MAXFILE];                  /* scaling factors */
int  nfile;                             /* number of files */

static gethfunc tabputs;
static void psum(void);


static int
tabputs(                        /* print line preceded by a tab */
        char    *s,
        void    *p
)
{
        putc('\t', stdout);
        return(fputs(s, stdout));
}


int
main(
        int  argc,
        char  *argv[]
)
{
        double  d;
        int  xres, yres;
        int  an;

        progname = argv[0];

        nfile = 0;
        setcolor(scale[0], 1.0, 1.0, 1.0);

        for (an = 1; an < argc; an++) {
                if (nfile >= MAXFILE) {
                        fprintf(stderr, "%s: too many files\n", progname);
                        quit(1);
                }
                if (argv[an][0] == '-')
                        switch (argv[an][1]) {
                        case 's':
                                d = atof(argv[an+1]);
                                switch (argv[an][2]) {
                                case '\0':
                                        scalecolor(scale[nfile], d);
                                        break;
                                case 'r':
                                        colval(scale[nfile],RED) *= d;
                                        break;
                                case 'g':
                                        colval(scale[nfile],GRN) *= d;
                                        break;
                                case 'b':
                                        colval(scale[nfile],BLU) *= d;
                                        break;
                                default:
                                        goto unkopt;
                                }
                                an++;
                                continue;
                        case '\0':
                                fptr[nfile] = stdin;
                                fname[nfile] = "<stdin>";
                                break;
                        default:;
                        unkopt:
                                fprintf(stderr, "%s: unknown option: %s\n",
                                                progname, argv[an]);
                                quit(1);
                        }
                else if ((fptr[nfile] = fopen(argv[an], "r")) == NULL) {
                        fprintf(stderr, "%s: can't open file: %s\n",
                                                progname, argv[an]);
                        quit(1);
                } else
                        fname[nfile] = argv[an];
                                                /* get header */
                fputs(fname[nfile], stdout);
                fputs(":\n", stdout);
                getheader(fptr[nfile], tabputs, NULL);
                                                /* get picture size */
                if (fgetresolu(&xres, &yres, fptr[nfile]) != (YMAJOR|YDECR)) {
                        fprintf(stderr, "%s: bad picture size\n", progname);
                        quit(1);
                } else if (nfile == 0) {
                        xsiz = xres;
                        ysiz = yres;
                } else if (xres != xsiz || yres != ysiz) {
                        fprintf(stderr, "%s: pictures are different sizes\n",
                                        progname);
                        quit(1);
                }
                nfile++;
                setcolor(scale[nfile], 1.0, 1.0, 1.0);
        }
                                        /* add new header info. */
        printargs(argc, argv, stdout);
        putchar('\n');
        fputresolu(YMAJOR|YDECR, xsiz, ysiz, stdout);

        psum();
        
        quit(0);
        return 0; /* pro forma return */
}


static void
psum(void)                              /* sum the files */
{
        COLOR  *scanin, *scanout;
        int  y, i;
        register int  x;

        scanin = (COLOR *)malloc(xsiz*sizeof(COLOR));
        scanout = (COLOR *)malloc(xsiz*sizeof(COLOR));
        if (scanin == NULL || scanout == NULL) {
                fprintf(stderr, "%s: out of memory\n", progname);
                quit(1);
        }
        for (y = ysiz-1; y >= 0; y--) {
                for (x = 0; x < xsiz; x++)
                        setcolor(scanout[x], 0.0, 0.0, 0.0);
                for (i = 0; i < nfile; i++) {
                        if (freadscan(scanin, xsiz, fptr[i]) < 0) {
                                fprintf(stderr, "%s: read error on file: %s\n",
                                                progname, fname[i]);
                                quit(1);
                        }
                        for (x = 0; x < xsiz; x++)
                                multcolor(scanin[x], scale[i]);
                        for (x = 0; x < xsiz; x++)
                                addcolor(scanout[x], scanin[x]);
                }
                if (fwritescan(scanout, xsiz, stdout) < 0) {
                        fprintf(stderr, "%s: write error\n", progname);
                        quit(1);
                }
        }
        free((void *)scanin);
        free((void *)scanout);
}


void
quit(           /* exit gracefully */
        int  code
)
{
        exit(code);
}
Revision:	2.8
Committed:	Sun Mar 28 20:33:14 2004 UTC (20 years, 1 month ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R6P1, rad3R6
Changes since 2.7:	+14 -7 lines
Log Message:	Continued ANSIfication, and other fixes and clarifications.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	2.8	static const char RCSid[] = "$Id: psum.c,v 2.7 2004/01/02 12:47:01 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* psum.c - program to sum pictures.
6			*
7			* 10/14/86
8			*/
9
10			#include <stdio.h>
11	greg	2.3	#include <math.h>
12
13	greg	1.1	#include "color.h"
14	schorsch	2.6	#include "resolu.h"
15			#include "rterror.h"
16	greg	1.1
17
18			#define MAXFILE 8
19
20			int xsiz, ysiz;
21
22			char *progname;
23
24			char fname[MAXFILE]; / the file names */
25			FILE fptr[MAXFILE]; / the file pointers */
26			COLOR scale[MAXFILE]; /* scaling factors */
27			int nfile; /* number of files */
28
29	schorsch	2.7	static gethfunc tabputs;
30	schorsch	2.8	static void psum(void);
31
32	greg	1.1
33	schorsch	2.7
34			static int
35			tabputs( /* print line preceded by a tab */
36			char *s,
37			void *p
38			)
39	greg	1.1	{
40			putc('\t', stdout);
41	gwlarson	2.4	return(fputs(s, stdout));
42	greg	1.1	}
43
44
45	schorsch	2.8	int
46			main(
47			int argc,
48			char *argv[]
49			)
50	greg	1.1	{
51	greg	2.2	double d;
52	greg	1.1	int xres, yres;
53			int an;
54
55			progname = argv[0];
56
57			nfile = 0;
58			setcolor(scale[0], 1.0, 1.0, 1.0);
59
60			for (an = 1; an < argc; an++) {
61			if (nfile >= MAXFILE) {
62			fprintf(stderr, "%s: too many files\n", progname);
63			quit(1);
64			}
65			if (argv[an][0] == '-')
66			switch (argv[an][1]) {
67			case 's':
68			d = atof(argv[an+1]);
69			switch (argv[an][2]) {
70			case '\0':
71			scalecolor(scale[nfile], d);
72			break;
73			case 'r':
74			colval(scale[nfile],RED) *= d;
75			break;
76			case 'g':
77			colval(scale[nfile],GRN) *= d;
78			break;
79			case 'b':
80			colval(scale[nfile],BLU) *= d;
81			break;
82			default:
83			goto unkopt;
84			}
85			an++;
86			continue;
87			case '\0':
88			fptr[nfile] = stdin;
89			fname[nfile] = "<stdin>";
90			break;
91			default:;
92			unkopt:
93			fprintf(stderr, "%s: unknown option: %s\n",
94			progname, argv[an]);
95			quit(1);
96			}
97			else if ((fptr[nfile] = fopen(argv[an], "r")) == NULL) {
98			fprintf(stderr, "%s: can't open file: %s\n",
99			progname, argv[an]);
100			quit(1);
101			} else
102			fname[nfile] = argv[an];
103			/* get header */
104			fputs(fname[nfile], stdout);
105			fputs(":\n", stdout);
106	schorsch	2.6	getheader(fptr[nfile], tabputs, NULL);
107	greg	1.1	/* get picture size */
108	greg	1.2	if (fgetresolu(&xres, &yres, fptr[nfile]) != (YMAJOR\|YDECR)) {
109	greg	1.1	fprintf(stderr, "%s: bad picture size\n", progname);
110			quit(1);
111			} else if (nfile == 0) {
112			xsiz = xres;
113			ysiz = yres;
114			} else if (xres != xsiz \|\| yres != ysiz) {
115			fprintf(stderr, "%s: pictures are different sizes\n",
116			progname);
117			quit(1);
118			}
119			nfile++;
120			setcolor(scale[nfile], 1.0, 1.0, 1.0);
121			}
122			/* add new header info. */
123			printargs(argc, argv, stdout);
124	greg	1.2	putchar('\n');
125			fputresolu(YMAJOR\|YDECR, xsiz, ysiz, stdout);
126	greg	1.1
127			psum();
128
129			quit(0);
130	schorsch	2.8	return 0; /* pro forma return */
131	greg	1.1	}
132
133
134	schorsch	2.8	static void
135			psum(void) /* sum the files */
136	greg	1.1	{
137			COLOR scanin, scanout;
138			int y, i;
139			register int x;
140
141			scanin = (COLOR )malloc(xsizsizeof(COLOR));
142			scanout = (COLOR )malloc(xsizsizeof(COLOR));
143			if (scanin == NULL \|\| scanout == NULL) {
144			fprintf(stderr, "%s: out of memory\n", progname);
145			quit(1);
146			}
147			for (y = ysiz-1; y >= 0; y--) {
148			for (x = 0; x < xsiz; x++)
149			setcolor(scanout[x], 0.0, 0.0, 0.0);
150			for (i = 0; i < nfile; i++) {
151			if (freadscan(scanin, xsiz, fptr[i]) < 0) {
152			fprintf(stderr, "%s: read error on file: %s\n",
153			progname, fname[i]);
154			quit(1);
155			}
156			for (x = 0; x < xsiz; x++)
157			multcolor(scanin[x], scale[i]);
158			for (x = 0; x < xsiz; x++)
159			addcolor(scanout[x], scanin[x]);
160			}
161			if (fwritescan(scanout, xsiz, stdout) < 0) {
162			fprintf(stderr, "%s: write error\n", progname);
163			quit(1);
164			}
165			}
166	greg	2.5	free((void *)scanin);
167			free((void *)scanout);
168	greg	1.1	}
169
170
171	greg	2.5	void
172	schorsch	2.8	quit( /* exit gracefully */
173			int code
174			)
175	greg	1.1	{
176			exit(code);
177			}