src/px/pflip.c

/* Copyright (c) 1991 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "$SunId$ LBL";
#endif

/*
 * flip picture file horizontally and/or vertically
 */

#include <stdio.h>

#include "color.h"

#include "resolu.h"

int     order;                          /* input orientation */
int     xres, yres;                     /* resolution (scanlen, nscans) */

long    *scanpos;                       /* scanline positions */

int     fhoriz=0, fvert=0;              /* flip flags */

int     correctorder = 0;               /* correcting orientation? */

FILE    *fin;                           /* input file */

char    *progname;


int
neworder()                      /* figure out new order from old */
{
        register int  no;

        if (correctorder)
                return(order);          /* just leave it */
        if ((no = order) & YMAJOR) {
                if (fhoriz) no ^= XDECR;
                if (fvert) no ^= YDECR;
        } else {
                if (fhoriz) no ^= YDECR;
                if (fvert) no ^= XDECR;
        }
        return(no);
}


main(argc, argv)
int     argc;
char    *argv[];
{
        int     i;

        progname = argv[0];

        for (i = 1; i < argc; i++)
                if (!strcmp(argv[i], "-h"))
                        fhoriz++;
                else if (!strcmp(argv[i], "-v"))
                        fvert++;
                else if (!strcmp(argv[i], "-c"))
                        correctorder++;
                else
                        break;
        if (i >= argc || argv[i][0] == '-') {
                fprintf(stderr, "Usage: %s [-h][-v][-c] infile [outfile]\n",
                                progname);
                exit(1);
        }
        if ((fin = fopen(argv[i], "r")) == NULL) {
                fprintf(stderr, "%s: cannot open\n", argv[1]);
                exit(1);
        }
        if (i < argc-1 && freopen(argv[i+1], "w", stdout) == NULL) {
                fprintf(stderr, "%s: cannot open\n", argv[i+1]);
                exit(1);
        }
                                        /* transfer header */
        if (checkheader(fin, COLRFMT, stdout) < 0) {
                fprintf(stderr, "%s: input not a Radiance picture\n",
                                progname);
                exit(1);
        }
                                        /* add new header info. */
        printargs(i, argv, stdout);
        fputformat(COLRFMT, stdout);
        putchar('\n');
                                        /* get picture size */
        if ((order = fgetresolu(&xres, &yres, fin)) < 0) {
                fprintf(stderr, "%s: bad picture size\n", progname);
                exit(1);
        }
                                        /* write new picture size */
        fputresolu(neworder(), xres, yres, stdout);
                                        /* goto end if vertical flip */
        if (fvert)
                scanfile();
        flip();                         /* flip the image */
        exit(0);
}


memerr()
{
        fprintf(stderr, "%s: out of memory\n", progname);
        exit(1);
}


scanfile()                              /* scan to the end of file */
{
        extern long     ftell();
        COLR    *scanin;
        int     y;

        if ((scanpos = (long *)malloc(yres*sizeof(long))) == NULL)
                memerr();
        if ((scanin = (COLR *)malloc(xres*sizeof(COLR))) == NULL)
                memerr();
        for (y = yres-1; y >= 0; y--) {
                scanpos[y] = ftell(fin);
                if (freadcolrs(scanin, xres, fin) < 0) {
                        fprintf(stderr, "%s: read error\n", progname);
                        exit(1);
                }
        }
        free((char *)scanin);
}


flip()                                  /* flip the picture */
{
        COLR    *scanin, *scanout;
        int     y;
        register int    x;

        if ((scanin = (COLR *)malloc(xres*sizeof(COLR))) == NULL)
                memerr();
        if (fhoriz) {
                if ((scanout = (COLR *)malloc(xres*sizeof(COLR))) == NULL)
                        memerr();
        } else
                scanout = scanin;
        for (y = yres-1; y >= 0; y--) {
                if (fvert && fseek(fin, scanpos[yres-1-y], 0) == EOF) {
                        fprintf(stderr, "%s: seek error\n", progname);
                        exit(1);
                }
                if (freadcolrs(scanin, xres, fin) < 0) {
                        fprintf(stderr, "%s: read error\n", progname);
                        exit(1);
                }
                if (fhoriz)
                        for (x = 0; x < xres; x++)
                                copycolr(scanout[x], scanin[xres-1-x]);
                if (fwritecolrs(scanout, xres, stdout) < 0) {
                        fprintf(stderr, "%s: write error\n", progname);
                        exit(1);
                }
        }
        free((char *)scanin);
        free((char *)scanout);
}
Revision:	2.1
Committed:	Tue Nov 12 16:04:49 1991 UTC (32 years, 5 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 1.5:	+0 -0 lines
Log Message:	updated revision number for release 2.0
#	User	Rev	Content
1	greg	1.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			* flip picture file horizontally and/or vertically
9			*/
10
11	greg	1.3	#include <stdio.h>
12	greg	1.1
13			#include "color.h"
14
15	greg	1.5	#include "resolu.h"
16	greg	1.1
17	greg	1.5	int order; /* input orientation */
18			int xres, yres; /* resolution (scanlen, nscans) */
19
20	greg	1.1	long scanpos; / scanline positions */
21
22	greg	1.5	int fhoriz=0, fvert=0; /* flip flags */
23	greg	1.1
24	greg	1.5	int correctorder = 0; /* correcting orientation? */
25
26	greg	1.1	FILE fin; / input file */
27
28			char *progname;
29
30
31	greg	1.5	int
32			neworder() /* figure out new order from old */
33			{
34			register int no;
35
36			if (correctorder)
37			return(order); /* just leave it */
38			if ((no = order) & YMAJOR) {
39			if (fhoriz) no ^= XDECR;
40			if (fvert) no ^= YDECR;
41			} else {
42			if (fhoriz) no ^= YDECR;
43			if (fvert) no ^= XDECR;
44			}
45			return(no);
46			}
47
48
49	greg	1.1	main(argc, argv)
50			int argc;
51			char *argv[];
52			{
53			int i;
54
55			progname = argv[0];
56
57			for (i = 1; i < argc; i++)
58			if (!strcmp(argv[i], "-h"))
59			fhoriz++;
60			else if (!strcmp(argv[i], "-v"))
61			fvert++;
62	greg	1.5	else if (!strcmp(argv[i], "-c"))
63			correctorder++;
64	greg	1.1	else
65			break;
66			if (i >= argc \|\| argv[i][0] == '-') {
67	greg	1.5	fprintf(stderr, "Usage: %s [-h][-v][-c] infile [outfile]\n",
68	greg	1.1	progname);
69			exit(1);
70			}
71			if ((fin = fopen(argv[i], "r")) == NULL) {
72			fprintf(stderr, "%s: cannot open\n", argv[1]);
73			exit(1);
74			}
75			if (i < argc-1 && freopen(argv[i+1], "w", stdout) == NULL) {
76			fprintf(stderr, "%s: cannot open\n", argv[i+1]);
77			exit(1);
78			}
79			/* transfer header */
80	greg	1.4	if (checkheader(fin, COLRFMT, stdout) < 0) {
81			fprintf(stderr, "%s: input not a Radiance picture\n",
82			progname);
83			exit(1);
84			}
85	greg	1.1	/* add new header info. */
86	greg	1.2	printargs(i, argv, stdout);
87	greg	1.4	fputformat(COLRFMT, stdout);
88	greg	1.1	putchar('\n');
89			/* get picture size */
90	greg	1.5	if ((order = fgetresolu(&xres, &yres, fin)) < 0) {
91	greg	1.1	fprintf(stderr, "%s: bad picture size\n", progname);
92			exit(1);
93			}
94			/* write new picture size */
95	greg	1.5	fputresolu(neworder(), xres, yres, stdout);
96	greg	1.1	/* goto end if vertical flip */
97			if (fvert)
98			scanfile();
99			flip(); /* flip the image */
100			exit(0);
101			}
102
103
104			memerr()
105			{
106			fprintf(stderr, "%s: out of memory\n", progname);
107			exit(1);
108			}
109
110
111			scanfile() /* scan to the end of file */
112			{
113			extern long ftell();
114			COLR *scanin;
115			int y;
116
117			if ((scanpos = (long )malloc(yressizeof(long))) == NULL)
118			memerr();
119			if ((scanin = (COLR )malloc(xressizeof(COLR))) == NULL)
120			memerr();
121			for (y = yres-1; y >= 0; y--) {
122			scanpos[y] = ftell(fin);
123			if (freadcolrs(scanin, xres, fin) < 0) {
124			fprintf(stderr, "%s: read error\n", progname);
125			exit(1);
126			}
127			}
128			free((char *)scanin);
129			}
130
131
132			flip() /* flip the picture */
133			{
134			COLR scanin, scanout;
135			int y;
136			register int x;
137
138			if ((scanin = (COLR )malloc(xressizeof(COLR))) == NULL)
139			memerr();
140			if (fhoriz) {
141			if ((scanout = (COLR )malloc(xressizeof(COLR))) == NULL)
142			memerr();
143			} else
144			scanout = scanin;
145			for (y = yres-1; y >= 0; y--) {
146			if (fvert && fseek(fin, scanpos[yres-1-y], 0) == EOF) {
147			fprintf(stderr, "%s: seek error\n", progname);
148			exit(1);
149			}
150			if (freadcolrs(scanin, xres, fin) < 0) {
151			fprintf(stderr, "%s: read error\n", progname);
152			exit(1);
153			}
154			if (fhoriz)
155			for (x = 0; x < xres; x++)
156			copycolr(scanout[x], scanin[xres-1-x]);
157			if (fwritecolrs(scanout, xres, stdout) < 0) {
158			fprintf(stderr, "%s: write error\n", progname);
159			exit(1);
160			}
161			}
162			free((char *)scanin);
163			free((char *)scanout);
164			}