src/rt/lookamb.c

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

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

/*
 *  lookamb.c - program to examine ambient components.
 *
 *     10/8/86
 */

#include  <stdio.h>

#ifdef MSDOS
#include  <fcntl.h>
#endif

#include  "color.h"

#include  "ambient.h"


int  dataonly = 0;
int  header = 1;
int  reverse = 0;

AMBVAL  av;


main(argc, argv)                /* load ambient values from a file */
char  *argv[];
{
        FILE  *fp;
        int  i;

        for (i = 1; i < argc; i++)
                if (argv[i][0] == '-')
                        switch (argv[i][1]) {
                        case 'd':
                                dataonly = 1;
                                break;
                        case 'r':
                                reverse = 1;
                                break;
                        case 'h':
                                header = 0;
                                break;
                        default:
                                fprintf(stderr, "%s: unknown option '%s'\n",
                                                argv[0], argv[i]);
                                return(1);
                        }
                else
                        break;

        if (i >= argc)
                fp = stdin;
        else if ((fp = fopen(argv[i], "r")) == NULL) {
                fprintf(stderr, "%s: file not found\n", argv[i]);
                return(1);
        }
        if (reverse) {
                if (header) {
                        if (checkheader(fp, "ascii", stdout) < 0)
                                goto formaterr;
                } else
                        printargs(argc, argv, stdout);
                fputformat(AMBFMT, stdout);
                putchar('\n');
#ifdef MSDOS
                setmode(fileno(stdout), O_BINARY);
#endif
                putambmagic(stdout);
                writamb(fp);
        } else {
#ifdef MSDOS
                setmode(fileno(fp), O_BINARY);
#endif
                if (checkheader(fp, AMBFMT, header ? stdout : (FILE *)NULL) < 0)
                        goto formaterr;
                if (!hasambmagic(fp))
                        goto formaterr;
                if (header) {
                        fputformat("ascii", stdout);
                        putchar('\n');
                }
                lookamb(fp);
        }
        fclose(fp);
        return(0);
formaterr:
        fprintf(stderr, "%s: format error on input\n", argv[0]);
        exit(1);
}


lookamb(fp)                     /* get ambient values from a file */
FILE  *fp;
{
        while (readambval(&av, fp)) {
                if (dataonly) {
                        printf("%f\t%f\t%f\t", av.pos[0], av.pos[1], av.pos[2]);
                        printf("%f\t%f\t%f\t", av.dir[0], av.dir[1], av.dir[2]);
                        printf("%d\t%f\t%f\t", av.lvl, av.weight, av.rad);
                        printf("%e\t%e\t%e\t", colval(av.val,RED),
                                                colval(av.val,GRN),
                                                colval(av.val,BLU));
                        printf("%f\t%f\t%f\t", av.gpos[0],
                                        av.gpos[1], av.gpos[2]);
                        printf("%f\t%f\t%f\n", av.gdir[0],
                                        av.gdir[1], av.gdir[2]);
                } else {
                        printf("\nPosition:\t%f\t%f\t%f\n", av.pos[0],
                                        av.pos[1], av.pos[2]);
                        printf("Direction:\t%f\t%f\t%f\n", av.dir[0],
                                        av.dir[1], av.dir[2]);
                        printf("Lvl,Wt,Rad:\t%d\t\t%f\t%f\n", av.lvl,
                                        av.weight, av.rad);
                        printf("Value:\t\t%e\t%e\t%e\n", colval(av.val,RED),
                                        colval(av.val,GRN), colval(av.val,BLU));
                        printf("Pos.Grad:\t%f\t%f\t%f\n", av.gpos[0],
                                        av.gpos[1], av.gpos[2]);
                        printf("Dir.Grad:\t%f\t%f\t%f\n", av.gdir[0],
                                        av.gdir[1], av.gdir[2]);
                }
                if (ferror(stdout))
                        exit(1);
        }
}


writamb(fp)                     /* write binary ambient values */
FILE  *fp;
{
        for ( ; ; ) {
                if (!dataonly)
                        fscanf(fp, "%*s");
                if (fscanf(fp, "%f %f %f",
                                &av.pos[0], &av.pos[1], &av.pos[2]) != 3)
                        return;
                if (!dataonly)
                        fscanf(fp, "%*s");
                if (fscanf(fp, "%f %f %f",
                                &av.dir[0], &av.dir[1], &av.dir[2]) != 3)
                        return;
                if (!dataonly)
                        fscanf(fp, "%*s");
                if (fscanf(fp, "%d %f %f",
                                &av.lvl, &av.weight, &av.rad) != 3)
                        return;
                if (!dataonly)
                        fscanf(fp, "%*s");
                if (fscanf(fp, "%f %f %f",
                                &av.val[RED], &av.val[GRN], &av.val[BLU]) != 3)
                        return;
                if (!dataonly)
                        fscanf(fp, "%*s");
                if (fscanf(fp, "%f %f %f",
                                &av.gpos[0], &av.gpos[1], &av.gpos[2]) != 3)
                        return;
                if (!dataonly)
                        fscanf(fp, "%*s");
                if (fscanf(fp, "%f %f %f",
                                &av.gdir[0], &av.gdir[1], &av.gdir[2]) != 3)
                        return;
                av.next = NULL;
                writambval(&av, stdout);
                if (ferror(stdout))
                        exit(1);
        }
}
Revision:	2.4
Committed:	Thu Oct 15 21:13:13 1992 UTC (33 years ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.3:	+10 -0 lines
Log Message:	added setmode(fd,O_BINARY) where needed for MSDOS
#	User	Rev	Content
1	greg	1.3	/* Copyright (c) 1991 Regents of the University of California */
2	greg	1.1
3			#ifndef lint
4			static char SCCSid[] = "$SunId$ LBL";
5			#endif
6
7			/*
8			* lookamb.c - program to examine ambient components.
9			*
10			* 10/8/86
11			*/
12
13			#include <stdio.h>
14
15	greg	2.4	#ifdef MSDOS
16			#include <fcntl.h>
17			#endif
18
19	greg	1.1	#include "color.h"
20
21	greg	1.4	#include "ambient.h"
22	greg	1.1
23
24			int dataonly = 0;
25	greg	2.3	int header = 1;
26	greg	1.1	int reverse = 0;
27
28			AMBVAL av;
29
30
31			main(argc, argv) /* load ambient values from a file */
32			char *argv[];
33			{
34			FILE *fp;
35			int i;
36
37			for (i = 1; i < argc; i++)
38			if (argv[i][0] == '-')
39			switch (argv[i][1]) {
40			case 'd':
41			dataonly = 1;
42			break;
43			case 'r':
44			reverse = 1;
45			break;
46	greg	2.3	case 'h':
47			header = 0;
48			break;
49	greg	1.1	default:
50			fprintf(stderr, "%s: unknown option '%s'\n",
51			argv[0], argv[i]);
52			return(1);
53			}
54			else
55			break;
56
57			if (i >= argc)
58			fp = stdin;
59			else if ((fp = fopen(argv[i], "r")) == NULL) {
60			fprintf(stderr, "%s: file not found\n", argv[i]);
61			return(1);
62			}
63	greg	2.3	if (reverse) {
64			if (header) {
65			if (checkheader(fp, "ascii", stdout) < 0)
66			goto formaterr;
67			} else
68			printargs(argc, argv, stdout);
69			fputformat(AMBFMT, stdout);
70			putchar('\n');
71	greg	2.4	#ifdef MSDOS
72			setmode(fileno(stdout), O_BINARY);
73			#endif
74	greg	2.3	putambmagic(stdout);
75	greg	1.1	writamb(fp);
76	greg	2.3	} else {
77	greg	2.4	#ifdef MSDOS
78			setmode(fileno(fp), O_BINARY);
79			#endif
80	greg	2.3	if (checkheader(fp, AMBFMT, header ? stdout : (FILE *)NULL) < 0)
81			goto formaterr;
82			if (!hasambmagic(fp))
83			goto formaterr;
84			if (header) {
85			fputformat("ascii", stdout);
86			putchar('\n');
87			}
88	greg	1.1	lookamb(fp);
89	greg	2.3	}
90	greg	1.1	fclose(fp);
91			return(0);
92	greg	2.3	formaterr:
93			fprintf(stderr, "%s: format error on input\n", argv[0]);
94			exit(1);
95	greg	1.1	}
96
97
98			lookamb(fp) /* get ambient values from a file */
99			FILE *fp;
100			{
101	greg	2.2	while (readambval(&av, fp)) {
102	greg	1.1	if (dataonly) {
103			printf("%f\t%f\t%f\t", av.pos[0], av.pos[1], av.pos[2]);
104			printf("%f\t%f\t%f\t", av.dir[0], av.dir[1], av.dir[2]);
105			printf("%d\t%f\t%f\t", av.lvl, av.weight, av.rad);
106	greg	1.5	printf("%e\t%e\t%e\t", colval(av.val,RED),
107	greg	1.1	colval(av.val,GRN),
108			colval(av.val,BLU));
109	greg	1.4	printf("%f\t%f\t%f\t", av.gpos[0],
110			av.gpos[1], av.gpos[2]);
111	greg	1.5	printf("%f\t%f\t%f\n", av.gdir[0],
112	greg	1.4	av.gdir[1], av.gdir[2]);
113	greg	1.1	} else {
114			printf("\nPosition:\t%f\t%f\t%f\n", av.pos[0],
115			av.pos[1], av.pos[2]);
116			printf("Direction:\t%f\t%f\t%f\n", av.dir[0],
117			av.dir[1], av.dir[2]);
118			printf("Lvl,Wt,Rad:\t%d\t\t%f\t%f\n", av.lvl,
119			av.weight, av.rad);
120			printf("Value:\t\t%e\t%e\t%e\n", colval(av.val,RED),
121			colval(av.val,GRN), colval(av.val,BLU));
122	greg	1.4	printf("Pos.Grad:\t%f\t%f\t%f\n", av.gpos[0],
123			av.gpos[1], av.gpos[2]);
124			printf("Dir.Grad:\t%f\t%f\t%f\n", av.gdir[0],
125			av.gdir[1], av.gdir[2]);
126	greg	1.1	}
127			if (ferror(stdout))
128			exit(1);
129			}
130			}
131
132
133			writamb(fp) /* write binary ambient values */
134			FILE *fp;
135			{
136			for ( ; ; ) {
137			if (!dataonly)
138			fscanf(fp, "%*s");
139	greg	1.3	if (fscanf(fp, "%f %f %f",
140	greg	1.1	&av.pos[0], &av.pos[1], &av.pos[2]) != 3)
141			return;
142			if (!dataonly)
143			fscanf(fp, "%*s");
144	greg	1.3	if (fscanf(fp, "%f %f %f",
145	greg	1.1	&av.dir[0], &av.dir[1], &av.dir[2]) != 3)
146			return;
147			if (!dataonly)
148			fscanf(fp, "%*s");
149			if (fscanf(fp, "%d %f %f",
150			&av.lvl, &av.weight, &av.rad) != 3)
151			return;
152			if (!dataonly)
153			fscanf(fp, "%*s");
154			if (fscanf(fp, "%f %f %f",
155			&av.val[RED], &av.val[GRN], &av.val[BLU]) != 3)
156			return;
157	greg	1.4	if (!dataonly)
158			fscanf(fp, "%*s");
159			if (fscanf(fp, "%f %f %f",
160			&av.gpos[0], &av.gpos[1], &av.gpos[2]) != 3)
161			return;
162			if (!dataonly)
163			fscanf(fp, "%*s");
164			if (fscanf(fp, "%f %f %f",
165			&av.gdir[0], &av.gdir[1], &av.gdir[2]) != 3)
166			return;
167			av.next = NULL;
168	greg	2.2	writambval(&av, stdout);
169	greg	1.1	if (ferror(stdout))
170			exit(1);
171			}
172			}