ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/mgflib/context.c
(Generate patch)

Comparing ray/src/cv/mgflib/context.c (file contents):
Revision 1.5 by greg, Fri Jun 24 16:28:15 1994 UTC vs.
Revision 1.13 by greg, Fri Jul 1 18:06:56 1994 UTC

# Line 26 | Line 26 | static C_VERTEX                c_unvertex = C_DEFVERTEX;
26  
27                                  /* the current contexts */
28   C_COLOR         *c_ccolor = &c_uncolor;
29 + char            *c_ccname = NULL;
30   C_MATERIAL      *c_cmaterial = &c_unmaterial;
31 + char            *c_cmname = NULL;
32   C_VERTEX        *c_cvertex = &c_unvertex;
33 + char            *c_cvname = NULL;
34  
35   static LUTAB    clr_tab = LU_SINIT(free,free);  /* color lookup table */
36   static LUTAB    mat_tab = LU_SINIT(free,free);  /* material lookup table */
# Line 58 | Line 61 | register char  **av;
61                  if (ac == 1) {          /* set unnamed color context */
62                          c_uncolor = c_dfcolor;
63                          c_ccolor = &c_uncolor;
64 +                        c_ccname = NULL;
65                          return(MG_OK);
66                  }
67                  lp = lu_find(&clr_tab, av[1]);  /* lookup context */
68                  if (lp == NULL)
69                          return(MG_EMEM);
70 +                c_ccolor = (C_COLOR *)lp->data;
71                  if (ac == 2) {          /* reestablish previous context */
72 <                        if (lp->data == NULL)
72 >                        if (c_ccolor == NULL)
73                                  return(MG_EUNDEF);
69 –                        c_ccolor = (C_COLOR *)lp->data;
74                          return(MG_OK);
75                  }
76                  if (av[2][0] != '=' || av[2][1])
77                          return(MG_ETYPE);
78 <                if (lp->key == NULL) {  /* create new color context */
78 >                if (c_ccolor == NULL) { /* create new color context */
79                          lp->key = (char *)malloc(strlen(av[1])+1);
80                          if (lp->key == NULL)
81                                  return(MG_EMEM);
# Line 79 | Line 83 | register char  **av;
83                          lp->data = (char *)malloc(sizeof(C_COLOR));
84                          if (lp->data == NULL)
85                                  return(MG_EMEM);
86 +                        c_ccolor = (C_COLOR *)lp->data;
87 +                        c_ccolor->clock = 0;
88                  }
89 <                c_ccolor = (C_COLOR *)lp->data;
89 >                c_ccname = lp->key;
90 >                i = c_ccolor->clock;
91                  if (ac == 3) {          /* use default template */
92                          *c_ccolor = c_dfcolor;
93 +                        c_ccolor->clock = i + 1;
94                          return(MG_OK);
95                  }
96                  lp = lu_find(&clr_tab, av[3]);  /* lookup template */
# Line 91 | Line 99 | register char  **av;
99                  if (lp->data == NULL)
100                          return(MG_EUNDEF);
101                  *c_ccolor = *(C_COLOR *)lp->data;
102 <                if (ac > 4)
95 <                        return(MG_EARGC);
102 >                c_ccolor->clock = i + 1;
103                  return(MG_OK);
104          case MG_E_CXY:          /* assign CIE XY value */
105                  if (ac != 3)
# Line 105 | Line 112 | register char  **av;
112                  if (c_ccolor->cx < 0. | c_ccolor->cy < 0. |
113                                  c_ccolor->cx + c_ccolor->cy > 1.)
114                          return(MG_EILL);
115 +                c_ccolor->clock++;
116                  return(MG_OK);
117          case MG_E_CSPEC:        /* assign spectral values */
118                  if (ac < 5)
# Line 140 | Line 148 | register char  **av;
148                                          w, (C_COLOR *)lp->data);
149                          wsum += w;
150                  }
151 +                c_ccolor->clock++;
152                  return(MG_OK);
153          }
154          return(MG_EUNK);
# Line 151 | Line 160 | c_hmaterial(ac, av)            /* handle material entity */
160   int     ac;
161   register char   **av;
162   {
163 +        int     i;
164          register LUENT  *lp;
165  
166          switch (mg_entity(av[0])) {
# Line 160 | Line 170 | register char  **av;
170                  if (ac == 1) {          /* set unnamed material context */
171                          c_unmaterial = c_dfmaterial;
172                          c_cmaterial = &c_unmaterial;
173 +                        c_cmname = NULL;
174                          return(MG_OK);
175                  }
176                  lp = lu_find(&mat_tab, av[1]);  /* lookup context */
177                  if (lp == NULL)
178                          return(MG_EMEM);
179 +                c_cmaterial = (C_MATERIAL *)lp->data;
180                  if (ac == 2) {          /* reestablish previous context */
181 <                        if (lp->data == NULL)
181 >                        if (c_cmaterial == NULL)
182                                  return(MG_EUNDEF);
171 –                        c_cmaterial = (C_MATERIAL *)lp->data;
183                          return(MG_OK);
184                  }
185                  if (av[2][0] != '=' || av[2][1])
186                          return(MG_ETYPE);
187 <                if (lp->key == NULL) {  /* create new material context */
187 >                if (c_cmaterial == NULL) {      /* create new material */
188                          lp->key = (char *)malloc(strlen(av[1])+1);
189                          if (lp->key == NULL)
190                                  return(MG_EMEM);
# Line 181 | Line 192 | register char  **av;
192                          lp->data = (char *)malloc(sizeof(C_MATERIAL));
193                          if (lp->data == NULL)
194                                  return(MG_EMEM);
195 +                        c_cmaterial = (C_MATERIAL *)lp->data;
196 +                        c_cmaterial->clock = 0;
197                  }
198 <                c_cmaterial = (C_MATERIAL *)lp->data;
198 >                c_cmname = lp->key;
199 >                i = c_cmaterial->clock;
200                  if (ac == 3) {          /* use default template */
201                          *c_cmaterial = c_dfmaterial;
202 <                        c_cmaterial->name = lp->key;
202 >                        c_cmaterial->clock = i + 1;
203                          return(MG_OK);
204                  }
205                  lp = lu_find(&mat_tab, av[3]);  /* lookup template */
# Line 194 | Line 208 | register char  **av;
208                  if (lp->data == NULL)
209                          return(MG_EUNDEF);
210                  *c_cmaterial = *(C_MATERIAL *)lp->data;
211 <                c_cmaterial->name = lp->key;
198 <                c_cmaterial->clock = 1;
199 <                if (ac > 4)
200 <                        return(MG_EARGC);
211 >                c_cmaterial->clock = i + 1;
212                  return(MG_OK);
213          case MG_E_RD:           /* set diffuse reflectance */
214                  if (ac != 2)
# Line 230 | Line 241 | register char  **av;
241                  if (c_cmaterial->td < 0. | c_cmaterial->td > 1.)
242                          return(MG_EILL);
243                  c_cmaterial->td_c = *c_ccolor;
244 +                c_cmaterial->clock++;
245                  return(MG_OK);
246          case MG_E_RS:           /* set specular reflectance */
247                  if (ac != 3)
# Line 257 | Line 269 | register char  **av;
269                  c_cmaterial->ts_c = *c_ccolor;
270                  c_cmaterial->clock++;
271                  return(MG_OK);
272 +        case MG_E_SIDES:        /* set number of sides */
273 +                if (ac != 2)
274 +                        return(MG_EARGC);
275 +                if (!isint(av[1]))
276 +                        return(MG_ETYPE);
277 +                i = atoi(av[1]);
278 +                if (i == 1)
279 +                        c_cmaterial->sided = 1;
280 +                else if (i == 2)
281 +                        c_cmaterial->sided = 0;
282 +                else
283 +                        return(MG_EILL);
284 +                c_cmaterial->clock++;
285 +                return(MG_OK);
286          }
287          return(MG_EUNK);
288   }
# Line 267 | Line 293 | c_hvertex(ac, av)              /* handle a vertex entity */
293   int     ac;
294   register char   **av;
295   {
296 +        int     i;
297          register LUENT  *lp;
298  
299          switch (mg_entity(av[0])) {
# Line 276 | Line 303 | register char  **av;
303                  if (ac == 1) {          /* set unnamed vertex context */
304                          c_unvertex = c_dfvertex;
305                          c_cvertex = &c_unvertex;
306 +                        c_cvname = NULL;
307                          return(MG_OK);
308                  }
309                  lp = lu_find(&vtx_tab, av[1]);  /* lookup context */
310                  if (lp == NULL)
311                          return(MG_EMEM);
312 +                c_cvertex = (C_VERTEX *)lp->data;
313                  if (ac == 2) {          /* reestablish previous context */
314 <                        if (lp->data == NULL)
314 >                        if (c_cvertex == NULL)
315                                  return(MG_EUNDEF);
287 –                        c_cvertex = (C_VERTEX *)lp->data;
316                          return(MG_OK);
317                  }
318                  if (av[2][0] != '=' || av[2][1])
319                          return(MG_ETYPE);
320 <                if (lp->key == NULL) {  /* create new vertex context */
320 >                if (c_cvertex == NULL) {        /* create new vertex context */
321                          lp->key = (char *)malloc(strlen(av[1])+1);
322                          if (lp->key == NULL)
323                                  return(MG_EMEM);
# Line 297 | Line 325 | register char  **av;
325                          lp->data = (char *)malloc(sizeof(C_VERTEX));
326                          if (lp->data == NULL)
327                                  return(MG_EMEM);
328 +                        c_cvertex = (C_VERTEX *)lp->data;
329                  }
330 <                c_cvertex = (C_VERTEX *)lp->data;
330 >                c_cvname = lp->key;
331 >                i = c_cvertex->clock;
332                  if (ac == 3) {          /* use default template */
333                          *c_cvertex = c_dfvertex;
334 +                        c_cvertex->clock = i + 1;
335                          return(MG_OK);
336                  }
337                  lp = lu_find(&vtx_tab, av[3]);  /* lookup template */
# Line 309 | Line 340 | register char  **av;
340                  if (lp->data == NULL)
341                          return(MG_EUNDEF);
342                  *c_cvertex = *(C_VERTEX *)lp->data;
343 <                if (ac > 4)
313 <                        return(MG_EARGC);
343 >                c_cvertex->clock = i + 1;
344                  return(MG_OK);
345          case MG_E_POINT:        /* set point */
346                  if (ac != 4)
# Line 320 | Line 350 | register char  **av;
350                  c_cvertex->p[0] = atof(av[1]);
351                  c_cvertex->p[1] = atof(av[2]);
352                  c_cvertex->p[2] = atof(av[3]);
353 +                c_cvertex->clock++;
354                  return(MG_OK);
355          case MG_E_NORMAL:       /* set normal */
356                  if (ac != 4)
# Line 330 | Line 361 | register char  **av;
361                  c_cvertex->n[1] = atof(av[2]);
362                  c_cvertex->n[2] = atof(av[3]);
363                  (void)normalize(c_cvertex->n);
364 +                c_cvertex->clock++;
365                  return(MG_OK);
366          }
367          return(MG_EUNK);
# Line 351 | Line 383 | c_clearall()                   /* empty context tables */
383   }
384  
385  
386 + C_MATERIAL *
387 + c_getmaterial(name)             /* get a named material */
388 + char    *name;
389 + {
390 +        register LUENT  *lp;
391 +
392 +        if ((lp = lu_find(&mat_tab, name)) == NULL)
393 +                return(NULL);
394 +        return((C_MATERIAL *)lp->data);
395 + }
396 +
397 +
398   C_VERTEX *
399   c_getvert(name)                 /* get a named vertex */
400   char    *name;
# Line 363 | Line 407 | char   *name;
407   }
408  
409  
410 + C_COLOR *
411 + c_getcolor(name)                /* get a named color */
412 + char    *name;
413 + {
414 +        register LUENT  *lp;
415 +
416 +        if ((lp = lu_find(&clr_tab, name)) == NULL)
417 +                return(NULL);
418 +        return((C_COLOR *)lp->data);
419 + }
420 +
421 +
422   int
423   c_isgrey(clr)                   /* check if color is grey */
424   register C_COLOR        *clr;
425   {
426 <        if (!clr->flags)
426 >        if (!(clr->flags & (C_CSXY|C_CSSPEC)))
427                  return(1);              /* no settings == grey */
428          c_ccvt(clr, C_CSXY);
429          return(clr->cx >= .323 && clr->cx <= .343 &&
# Line 385 | Line 441 | int    fl;
441  
442          if (clr->flags & fl)            /* already done */
443                  return;
444 <        if (!(clr->flags & (C_SXY|C_SSPEC))     /* nothing set */
444 >        if (!(clr->flags & (C_CSXY|C_CSSPEC)))  /* nothing set! */
445                  *clr = c_dfcolor;
446          else if (fl & C_CSXY) {         /* cspec -> cxy */
447                  x = y = z = 0.;
# Line 465 | Line 521 | char   **av;
521                          clr->ssum += clr->ssamp[i];
522                  }
523          clr->flags = C_CDSPEC|C_CSSPEC;
524 +        clr->clock++;
525          free((MEM_PTR)va);
526          return(MG_OK);
527   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines