ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/gen/genbox.c
Revision: 2.8
Committed: Sat Jul 25 19:18:01 2020 UTC (3 years, 9 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad5R3
Changes since 2.7: +13 -35 lines
Log Message: 
fix(genbox, genprism, gensky): normalizing headers for Windows

File Contents

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