ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/pflip.c
Revision: 2.9
Committed: Tue Aug 8 18:04:41 2006 UTC (17 years, 7 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad4R1, rad4R0, rad3R8, rad3R9
Changes since 2.8: +2 -2 lines
Log Message:
Fixed error reporting

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: pflip.c,v 2.8 2004/03/28 20:33:14 schorsch Exp $";
3 #endif
4 /*
5 * flip picture file horizontally and/or vertically
6 */
7
8 #include <stdio.h>
9 #include <time.h>
10 #include <string.h>
11
12 #include "platform.h"
13 #include "color.h"
14 #include "resolu.h"
15
16 int order; /* input orientation */
17 int xres, yres; /* resolution (scanlen, nscans) */
18
19 long *scanpos; /* scanline positions */
20
21 int fhoriz=0, fvert=0; /* flip flags */
22
23 int correctorder = 0; /* correcting orientation? */
24
25 FILE *fin; /* input file */
26
27 char *progname;
28
29
30 static void memerr(void);
31 static void scanfile(void);
32 static void flip(void);
33
34
35 static int
36 neworder(void) /* figure out new order from old */
37 {
38 register int no;
39
40 if (correctorder)
41 return(order); /* just leave it */
42 if ((no = order) & YMAJOR) {
43 if (fhoriz) no ^= XDECR;
44 if (fvert) no ^= YDECR;
45 } else {
46 if (fhoriz) no ^= YDECR;
47 if (fvert) no ^= XDECR;
48 }
49 return(no);
50 }
51
52 int
53 main(
54 int argc,
55 char *argv[]
56 )
57 {
58 static char picfmt[LPICFMT+1] = PICFMT;
59 int i, rval;
60 SET_DEFAULT_BINARY();
61 SET_FILE_BINARY(stdout);
62 progname = argv[0];
63
64 for (i = 1; i < argc; i++)
65 if (!strcmp(argv[i], "-h"))
66 fhoriz++;
67 else if (!strcmp(argv[i], "-v"))
68 fvert++;
69 else if (!strcmp(argv[i], "-c"))
70 correctorder++;
71 else
72 break;
73 if (i >= argc || argv[i][0] == '-') {
74 fprintf(stderr, "Usage: %s [-h][-v][-c] infile [outfile]\n",
75 progname);
76 exit(1);
77 }
78 if ((fin = fopen(argv[i], "r")) == NULL) {
79 fprintf(stderr, "%s: cannot open\n", argv[i]);
80 exit(1);
81 }
82 if (i < argc-1 && freopen(argv[i+1], "w", stdout) == NULL) {
83 fprintf(stderr, "%s: cannot open\n", argv[i+1]);
84 exit(1);
85 }
86 /* transfer header */
87 if ((rval = checkheader(fin, picfmt, stdout)) < 0) {
88 fprintf(stderr, "%s: input not a Radiance picture\n",
89 progname);
90 exit(1);
91 }
92 if (rval)
93 fputformat(picfmt, stdout);
94 /* add new header info. */
95 printargs(i, argv, stdout);
96 putchar('\n');
97 /* get picture size */
98 if ((order = fgetresolu(&xres, &yres, fin)) < 0) {
99 fprintf(stderr, "%s: bad picture size\n", progname);
100 exit(1);
101 }
102 /* write new picture size */
103 fputresolu(neworder(), xres, yres, stdout);
104 /* goto end if vertical flip */
105 if (fvert)
106 scanfile();
107 flip(); /* flip the image */
108 exit(0);
109 }
110
111
112 static void
113 memerr(void)
114 {
115 fprintf(stderr, "%s: out of memory\n", progname);
116 exit(1);
117 }
118
119
120 static void
121 scanfile(void) /* scan to the end of file */
122 {
123 extern long ftell();
124 COLR *scanin;
125 int y;
126
127 if ((scanpos = (long *)malloc(yres*sizeof(long))) == NULL)
128 memerr();
129 if ((scanin = (COLR *)malloc(xres*sizeof(COLR))) == NULL)
130 memerr();
131 for (y = yres-1; y > 0; y--) {
132 scanpos[y] = ftell(fin);
133 if (freadcolrs(scanin, xres, fin) < 0) {
134 fprintf(stderr, "%s: read error\n", progname);
135 exit(1);
136 }
137 }
138 scanpos[0] = ftell(fin);
139 free((void *)scanin);
140 }
141
142
143 static void
144 flip(void) /* flip the picture */
145 {
146 COLR *scanin, *scanout;
147 int y;
148 register int x;
149
150 if ((scanin = (COLR *)malloc(xres*sizeof(COLR))) == NULL)
151 memerr();
152 if (fhoriz) {
153 if ((scanout = (COLR *)malloc(xres*sizeof(COLR))) == NULL)
154 memerr();
155 } else
156 scanout = scanin;
157 for (y = yres-1; y >= 0; y--) {
158 if (fvert && fseek(fin, scanpos[yres-1-y], 0) == EOF) {
159 fprintf(stderr, "%s: seek error\n", progname);
160 exit(1);
161 }
162 if (freadcolrs(scanin, xres, fin) < 0) {
163 fprintf(stderr, "%s: read error\n", progname);
164 exit(1);
165 }
166 if (fhoriz)
167 for (x = 0; x < xres; x++)
168 copycolr(scanout[x], scanin[xres-1-x]);
169 if (fwritecolrs(scanout, xres, stdout) < 0) {
170 fprintf(stderr, "%s: write error\n", progname);
171 exit(1);
172 }
173 }
174 free((void *)scanin);
175 if (fhoriz)
176 free((void *)scanout);
177 }