ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/pcompos.c
Revision: 2.2
Committed: Thu Dec 19 14:51:50 1991 UTC (32 years, 10 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.1: +0 -1 lines
Log Message:
eliminated atof declarations for NeXT

File Contents

# Content
1 /* Copyright (c) 1991 Regents of the University of California */
2
3 #ifndef lint
4 static char SCCSid[] = "$SunId$ LBL";
5 #endif
6
7 /*
8 * pcompos.c - program to composite pictures.
9 *
10 * 6/30/87
11 */
12
13 #include <stdio.h>
14
15 #include "color.h"
16
17 #include "resolu.h"
18
19 #define MAXFILE 32
20
21 /* output picture size */
22 int xsiz = 0;
23 int ysiz = 0;
24 /* input dimensions */
25 int xmin = 0;
26 int ymin = 0;
27 int xmax = 0;
28 int ymax = 0;
29
30 COLR bgcolr = BLKCOLR; /* background color */
31
32 int labelht = 24; /* label height */
33
34 int checkthresh = 0; /* check threshold value */
35
36 char *progname;
37
38 struct {
39 char *name; /* file or command name */
40 FILE *fp; /* stream pointer */
41 int xres, yres; /* picture size */
42 int xloc, yloc; /* anchor point */
43 int hasmin, hasmax; /* has threshold values */
44 COLR thmin, thmax; /* thresholds */
45 } input[MAXFILE]; /* our input files */
46
47 int nfile; /* number of files */
48
49 int wrongformat = 0;
50
51 FILE *popen(), *lblopen();
52
53
54 tabputs(s) /* print line preceded by a tab */
55 char *s;
56 {
57 char fmt[32];
58
59 if (isformat(s)) {
60 formatval(fmt, s);
61 wrongformat = strcmp(fmt, COLRFMT);
62 } else {
63 putc('\t', stdout);
64 fputs(s, stdout);
65 }
66 }
67
68
69 main(argc, argv)
70 int argc;
71 char *argv[];
72 {
73 int ncolumns = 0;
74 int autolabel = 0;
75 int curcol = 0, curx = 0, cury = 0;
76 char *thislabel;
77 int an;
78
79 progname = argv[0];
80
81 for (an = 1; an < argc && argv[an][0] == '-'; an++)
82 switch (argv[an][1]) {
83 case 'x':
84 xmax = xsiz = atoi(argv[++an]);
85 break;
86 case 'y':
87 ymax = ysiz = atoi(argv[++an]);
88 break;
89 case 'b':
90 setcolr(bgcolr, atof(argv[an+1]),
91 atof(argv[an+2]),
92 atof(argv[an+3]));
93 an += 3;
94 break;
95 case 'a':
96 ncolumns = atoi(argv[++an]);
97 break;
98 case 'l':
99 switch (argv[an][2]) {
100 case 'a':
101 autolabel++;
102 break;
103 case 'h':
104 labelht = atoi(argv[++an]);
105 break;
106 case '\0':
107 goto dofiles;
108 default:
109 goto userr;
110 }
111 break;
112 case '\0':
113 case 't':
114 goto dofiles;
115 default:
116 goto userr;
117 }
118 dofiles:
119 for (nfile = 0; an < argc; nfile++) {
120 if (nfile >= MAXFILE)
121 goto toomany;
122 if (autolabel)
123 thislabel = argv[an];
124 else
125 thislabel = NULL;
126 input[nfile].hasmin = input[nfile].hasmax = 0;
127 while (an < argc && (argv[an][0] == '-' || argv[an][0] == '+'))
128 switch (argv[an][1]) {
129 case 't':
130 checkthresh = 1;
131 if (argv[an][0] == '-') {
132 input[nfile].hasmin = 1;
133 setcolr(input[nfile].thmin,
134 atof(argv[an+1]),
135 atof(argv[an+1]),
136 atof(argv[an+1]));
137 } else {
138 input[nfile].hasmax = 1;
139 setcolr(input[nfile].thmax,
140 atof(argv[an+1]),
141 atof(argv[an+1]),
142 atof(argv[an+1]));
143 }
144 an += 2;
145 break;
146 case 'l':
147 if (strcmp(argv[an], "-l"))
148 goto userr;
149 thislabel = argv[++an];
150 break;
151 case '\0':
152 if (argv[an][0] == '-')
153 goto getfile;
154 goto userr;
155 default:
156 goto userr;
157 }
158 getfile:
159 if (argc-an < (ncolumns ? 1 : 3))
160 goto userr;
161 if (!strcmp(argv[an], "-")) {
162 input[nfile].name = "<stdin>";
163 input[nfile].fp = stdin;
164 } else {
165 input[nfile].name = argv[an];
166 if ((input[nfile].fp = argv[an][0] == '!' ?
167 popen(argv[an]+1, "r") :
168 fopen(argv[an], "r")) == NULL) {
169 perror(argv[an]);
170 quit(1);
171 }
172 }
173 an++;
174 /* get header */
175 printf("%s:\n", input[nfile].name);
176 getheader(input[nfile].fp, tabputs, NULL);
177 if (wrongformat) {
178 fprintf(stderr, "%s: not a Radiance picture\n",
179 input[nfile].name);
180 quit(1);
181 }
182 /* get picture size */
183 if (fgetresolu(&input[nfile].xres, &input[nfile].yres,
184 input[nfile].fp) < 0) {
185 fprintf(stderr, "%s: bad picture size\n",
186 input[nfile].name);
187 quit(1);
188 }
189 if (ncolumns > 0) {
190 if (curcol >= ncolumns) {
191 cury = ymax;
192 curx = 0;
193 curcol = 0;
194 }
195 input[nfile].xloc = curx;
196 input[nfile].yloc = cury;
197 curx += input[nfile].xres;
198 curcol++;
199 } else {
200 input[nfile].xloc = atoi(argv[an++]);
201 input[nfile].yloc = atoi(argv[an++]);
202 }
203 if (input[nfile].xloc < xmin)
204 xmin = input[nfile].xloc;
205 if (input[nfile].yloc < ymin)
206 ymin = input[nfile].yloc;
207 if (input[nfile].xloc+input[nfile].xres > xmax)
208 xmax = input[nfile].xloc+input[nfile].xres;
209 if (input[nfile].yloc+input[nfile].yres > ymax)
210 ymax = input[nfile].yloc+input[nfile].yres;
211 if (thislabel != NULL) {
212 if (++nfile >= MAXFILE)
213 goto toomany;
214 input[nfile].name = "<Label>";
215 input[nfile].hasmin = input[nfile].hasmax = 0;
216 if ((input[nfile].fp = lblopen(thislabel,
217 &input[nfile].xres,
218 &input[nfile].yres)) == NULL)
219 goto labelerr;
220 input[nfile].xloc = input[nfile-1].xloc;
221 input[nfile].yloc = input[nfile-1].yloc +
222 input[nfile-1].yres-input[nfile].yres;
223 }
224 }
225 if (xsiz <= 0)
226 xsiz = xmax;
227 if (ysiz <= 0)
228 ysiz = ymax;
229 /* add new header info. */
230 printargs(argc, argv, stdout);
231 fputformat(COLRFMT, stdout);
232 putchar('\n');
233 fprtresolu(xsiz, ysiz, stdout);
234
235 compos();
236
237 quit(0);
238 userr:
239 fprintf(stderr, "Usage: %s [-x xr][-y yr][-b r g b][-a n][-la][-lh h] ",
240 progname);
241 fprintf(stderr, "[-t min1][+t max1][-l lab] pic1 x1 y1 ..\n");
242 quit(1);
243 toomany:
244 fprintf(stderr, "%s: only %d files and labels allowed\n",
245 progname, MAXFILE);
246 quit(1);
247 labelerr:
248 fprintf(stderr, "%s: error opening label\n", progname);
249 quit(1);
250 }
251
252
253 compos() /* composite pictures */
254 {
255 COLR *scanin, *scanout;
256 int y;
257 register int x, i;
258
259 scanin = (COLR *)malloc((xmax-xmin)*sizeof(COLR));
260 if (scanin == NULL)
261 goto memerr;
262 scanin -= xmin;
263 if (checkthresh) {
264 scanout = (COLR *)malloc(xsiz*sizeof(COLR));
265 if (scanout == NULL)
266 goto memerr;
267 } else
268 scanout = scanin;
269 for (y = ymax-1; y >= 0; y--) {
270 for (x = 0; x < xsiz; x++)
271 copycolr(scanout[x], bgcolr);
272 for (i = 0; i < nfile; i++) {
273 if (input[i].yloc > y ||
274 input[i].yloc+input[i].yres <= y)
275 continue;
276 if (freadcolrs(scanin+input[i].xloc,
277 input[i].xres, input[i].fp) < 0) {
278 fprintf(stderr, "%s: read error (y==%d)\n",
279 input[i].name,
280 y-input[i].yloc);
281 quit(1);
282 }
283 if (y >= ysiz)
284 continue;
285 if (checkthresh) {
286 x = input[i].xloc+input[i].xres;
287 if (x > xsiz)
288 x = xsiz;
289 for (x--; x >= 0 && x >= input[i].xloc; x--) {
290 if (input[i].hasmin &&
291 cmpcolr(scanin[x], input[i].thmin) <= 0)
292 continue;
293 if (input[i].hasmax &&
294 cmpcolr(scanin[x], input[i].thmax) >= 0)
295 continue;
296 copycolr(scanout[x], scanin[x]);
297 }
298 }
299 }
300 if (y >= ysiz)
301 continue;
302 if (fwritecolrs(scanout, xsiz, stdout) < 0) {
303 perror(progname);
304 quit(1);
305 }
306 }
307 return;
308 memerr:
309 perror(progname);
310 quit(1);
311 }
312
313
314 int
315 cmpcolr(c1, c2) /* compare two colr's (improvisation) */
316 register COLR c1, c2;
317 {
318 register int i, j;
319
320 j = 4; /* check exponents first! */
321 while (j--)
322 if (i = c1[j] - c2[j])
323 return(i);
324 return(0);
325 }
326
327
328 FILE *
329 lblopen(s, xp, yp) /* open pipe to label generator */
330 char *s;
331 int *xp, *yp;
332 {
333 char com[128];
334 FILE *fp;
335
336 sprintf(com, "psign -h %d '%.30s' | pfilt -1 -x /2 -y /2",
337 2*labelht, s);
338 if ((fp = popen(com, "r")) == NULL)
339 return(NULL);
340 if (checkheader(fp, COLRFMT, NULL) < 0)
341 goto err;
342 if (fgetresolu(xp, yp, fp) < 0)
343 goto err;
344 return(fp);
345 err:
346 pclose(fp);
347 return(NULL);
348 }
349
350
351 quit(code) /* exit gracefully */
352 int code;
353 {
354 exit(code);
355 }