ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/gen/genbox.c
Revision: 2.6
Committed: Sun Jun 8 12:03:09 2003 UTC (20 years, 10 months ago) by schorsch
Content type: text/plain
Branch: MAIN
Changes since 2.5: +94 -88 lines
Log Message: 
Reduced compile warnings/errors on Windows.

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 schorsch 2.6 static const char RCSid[] = "$Id: genbox.c,v 2.5 2003/02/22 02:07:23 greg Exp $";
3 greg 1.1 #endif
4     /*
5     * genbox.c - generate a parallelepiped.
6     *
7     * 1/8/86
8     */
9    
10     #include <stdio.h>
11    
12 greg 2.5 #include <stdlib.h>
13    
14 greg 2.3 #include <math.h>
15    
16 greg 1.1
17     char let[]="0123456789._ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
18    
19     char *cmtype; /* ppd material type */
20    
21     char *cname; /* ppd name */
22    
23     double size[3]; /* ppd size */
24    
25     double bevel = 0.0; /* bevel amount */
26    
27 greg 2.5 int rounde = 0; /* boolean true for rounde edges */
28 greg 1.1
29     int reverse = 0; /* boolean true for reversed normals */
30    
31    
32 schorsch 2.6
33     static void
34     vertex(v)
35     register int v;
36     {
37     register int i;
38    
39     for (i = 0; i < 3; i++) {
40     if (v & 010)
41     printf("\t%18.12g", v & 01 ? size[i]-bevel : bevel);
42     else
43     printf("\t%18.12g", v & 01 ? size[i] : 0.0);
44     v >>= 1;
45     }
46     printf("\n");
47     }
48    
49    
50     static void
51     side(a, b, c, d) /* generate a rectangular face */
52     int a, b, c, d;
53     {
54     printf("\n%s polygon %s.%c%c%c%c\n", cmtype, cname,
55     let[a], let[b], let[c], let[d]);
56     printf("0\n0\n12\n");
57     if (reverse) {
58     vertex(d);
59     vertex(c);
60     vertex(b);
61     vertex(a);
62     } else {
63     vertex(a);
64     vertex(b);
65     vertex(c);
66     vertex(d);
67     }
68     }
69    
70    
71     static void
72     corner(a, b, c) /* generate a triangular face */
73     int a, b, c;
74     {
75     printf("\n%s polygon %s.%c%c%c\n", cmtype, cname,
76     let[a], let[b], let[c]);
77     printf("0\n0\n9\n");
78     if (reverse) {
79     vertex(c);
80     vertex(b);
81     vertex(a);
82     } else {
83     vertex(a);
84     vertex(b);
85     vertex(c);
86     }
87     }
88    
89    
90     static void
91     cylinder(v0, v1) /* generate a cylinder */
92     int v0, v1;
93     {
94     printf("\n%s cylinder %s.%c%c\n", cmtype, cname, v0+'0', v1+'0');
95     printf("0\n0\n7\n");
96     vertex(v0);
97     vertex(v1);
98     printf("\t%18.12g\n", bevel);
99     }
100    
101    
102     sphere(v0) /* generate a sphere */
103     int v0;
104     {
105     printf("\n%s sphere %s.%c\n", cmtype, cname, v0+'0');
106     printf("0\n0\n4\n");
107     vertex(v0);
108     printf("\t%18.12g\n", bevel);
109     }
110    
111    
112     printhead(ac, av) /* print command header */
113     register int ac;
114     register char **av;
115     {
116     putchar('#');
117     while (ac--) {
118     putchar(' ');
119     fputs(*av++, stdout);
120     }
121     putchar('\n');
122     }
123    
124    
125 greg 1.1 main(argc, argv)
126     int argc;
127     char **argv;
128     {
129     int i;
130    
131     if (argc < 6)
132     goto userr;
133    
134     cmtype = argv[1];
135     cname = argv[2];
136     size[0] = atof(argv[3]);
137     size[1] = atof(argv[4]);
138     size[2] = atof(argv[5]);
139    
140     for (i = 6; i < argc; i++) {
141     if (argv[i][0] != '-')
142     goto userr;
143     switch (argv[i][1]) {
144     case 'r':
145 greg 2.5 rounde = 1;
146 greg 1.1 /* fall through */
147     case 'b':
148     bevel = atof(argv[++i]);
149     break;
150     case 'i':
151     reverse = 1;
152     break;
153     default:
154     goto userr;
155     }
156     }
157    
158     printhead(argc, argv);
159    
160     if (bevel > 0.0) {
161     /* minor faces */
162     side(051, 055, 054, 050);
163     side(064, 066, 062, 060);
164     side(032, 033, 031, 030);
165     side(053, 052, 056, 057);
166     side(065, 061, 063, 067);
167     side(036, 034, 035, 037);
168     }
169 greg 2.5 if (bevel > 0.0 && !rounde) {
170 greg 1.1 /* bevel faces */
171     side(031, 051, 050, 030);
172     side(060, 062, 032, 030);
173     side(050, 054, 064, 060);
174     side(034, 036, 066, 064);
175     side(037, 057, 056, 036);
176     side(052, 062, 066, 056);
177     side(052, 053, 033, 032);
178     side(057, 067, 063, 053);
179     side(061, 031, 033, 063);
180     side(065, 067, 037, 035);
181     side(055, 051, 061, 065);
182     side(034, 054, 055, 035);
183     /* bevel corners */
184     corner(030, 050, 060);
185     corner(051, 031, 061);
186     corner(032, 062, 052);
187     corner(064, 054, 034);
188     corner(036, 056, 066);
189     corner(065, 035, 055);
190     corner(053, 063, 033);
191     corner(037, 067, 057);
192     }
193 greg 2.5 if (bevel > 0.0 && rounde) {
194     /* rounde edges */
195 greg 1.1 cylinder(070, 071);
196     cylinder(070, 074);
197     cylinder(070, 072);
198     cylinder(073, 071);
199     cylinder(073, 072);
200     cylinder(073, 077);
201     cylinder(075, 071);
202     cylinder(075, 074);
203     cylinder(075, 077);
204     cylinder(076, 072);
205     cylinder(076, 074);
206     cylinder(076, 077);
207 greg 2.5 /* rounde corners */
208 greg 1.1 sphere(070);
209     sphere(071);
210     sphere(072);
211     sphere(073);
212     sphere(074);
213     sphere(075);
214     sphere(076);
215     sphere(077);
216     }
217     if (bevel == 0.0 ) {
218     /* only need major faces */
219     side(1, 5, 4, 0);
220     side(4, 6, 2, 0);
221     side(2, 3, 1, 0);
222     side(3, 2, 6, 7);
223     side(5, 1, 3, 7);
224     side(6, 4, 5, 7);
225     }
226     exit(0);
227     userr:
228     fprintf(stderr, "Usage: %s ", argv[0]);
229     fprintf(stderr, "material name xsize ysize zsize ");
230 greg 2.5 fprintf(stderr, "[-i] [-b bevel | -r rounde]\n");
231 greg 1.1 exit(1);
232     }
233