ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/lookamb.c
Revision: 2.10
Committed: Tue Mar 30 16:13:01 2004 UTC (20 years ago) by schorsch
Content type: text/plain
Branch: MAIN
CVS Tags: rad3R7P2, rad3R7P1, rad4R1, rad4R0, rad3R6, rad3R6P1, rad3R8, rad3R9
Changes since 2.9: +15 -10 lines
Log Message:
Continued ANSIfication. There are only bits and pieces left now.

File Contents

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