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.6 by greg, Fri Jun 24 17:15:47 1994 UTC vs.
Revision 1.12 by greg, Fri Jul 1 10:18:38 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 267 | Line 279 | c_hvertex(ac, av)              /* handle a vertex entity */
279   int     ac;
280   register char   **av;
281   {
282 +        int     i;
283          register LUENT  *lp;
284  
285          switch (mg_entity(av[0])) {
# Line 276 | Line 289 | register char  **av;
289                  if (ac == 1) {          /* set unnamed vertex context */
290                          c_unvertex = c_dfvertex;
291                          c_cvertex = &c_unvertex;
292 +                        c_cvname = NULL;
293                          return(MG_OK);
294                  }
295                  lp = lu_find(&vtx_tab, av[1]);  /* lookup context */
296                  if (lp == NULL)
297                          return(MG_EMEM);
298 +                c_cvertex = (C_VERTEX *)lp->data;
299                  if (ac == 2) {          /* reestablish previous context */
300 <                        if (lp->data == NULL)
300 >                        if (c_cvertex == NULL)
301                                  return(MG_EUNDEF);
287 –                        c_cvertex = (C_VERTEX *)lp->data;
302                          return(MG_OK);
303                  }
304                  if (av[2][0] != '=' || av[2][1])
305                          return(MG_ETYPE);
306 <                if (lp->key == NULL) {  /* create new vertex context */
306 >                if (c_cvertex == NULL) {        /* create new vertex context */
307                          lp->key = (char *)malloc(strlen(av[1])+1);
308                          if (lp->key == NULL)
309                                  return(MG_EMEM);
# Line 297 | Line 311 | register char  **av;
311                          lp->data = (char *)malloc(sizeof(C_VERTEX));
312                          if (lp->data == NULL)
313                                  return(MG_EMEM);
314 +                        c_cvertex = (C_VERTEX *)lp->data;
315                  }
316 <                c_cvertex = (C_VERTEX *)lp->data;
316 >                c_cvname = lp->key;
317 >                i = c_cvertex->clock;
318                  if (ac == 3) {          /* use default template */
319                          *c_cvertex = c_dfvertex;
320 +                        c_cvertex->clock = i + 1;
321                          return(MG_OK);
322                  }
323                  lp = lu_find(&vtx_tab, av[3]);  /* lookup template */
# Line 309 | Line 326 | register char  **av;
326                  if (lp->data == NULL)
327                          return(MG_EUNDEF);
328                  *c_cvertex = *(C_VERTEX *)lp->data;
329 <                if (ac > 4)
313 <                        return(MG_EARGC);
329 >                c_cvertex->clock = i + 1;
330                  return(MG_OK);
331          case MG_E_POINT:        /* set point */
332                  if (ac != 4)
# Line 320 | Line 336 | register char  **av;
336                  c_cvertex->p[0] = atof(av[1]);
337                  c_cvertex->p[1] = atof(av[2]);
338                  c_cvertex->p[2] = atof(av[3]);
339 +                c_cvertex->clock++;
340                  return(MG_OK);
341          case MG_E_NORMAL:       /* set normal */
342                  if (ac != 4)
# Line 330 | Line 347 | register char  **av;
347                  c_cvertex->n[1] = atof(av[2]);
348                  c_cvertex->n[2] = atof(av[3]);
349                  (void)normalize(c_cvertex->n);
350 +                c_cvertex->clock++;
351                  return(MG_OK);
352          }
353          return(MG_EUNK);
# Line 351 | Line 369 | c_clearall()                   /* empty context tables */
369   }
370  
371  
372 + C_MATERIAL *
373 + c_getmaterial(name)             /* get a named material */
374 + char    *name;
375 + {
376 +        register LUENT  *lp;
377 +
378 +        if ((lp = lu_find(&mat_tab, name)) == NULL)
379 +                return(NULL);
380 +        return((C_MATERIAL *)lp->data);
381 + }
382 +
383 +
384   C_VERTEX *
385   c_getvert(name)                 /* get a named vertex */
386   char    *name;
# Line 363 | Line 393 | char   *name;
393   }
394  
395  
396 + C_COLOR *
397 + c_getcolor(name)                /* get a named color */
398 + char    *name;
399 + {
400 +        register LUENT  *lp;
401 +
402 +        if ((lp = lu_find(&clr_tab, name)) == NULL)
403 +                return(NULL);
404 +        return((C_COLOR *)lp->data);
405 + }
406 +
407 +
408   int
409   c_isgrey(clr)                   /* check if color is grey */
410   register C_COLOR        *clr;
411   {
412 <        if (!clr->flags)
412 >        if (!(clr->flags & (C_CSXY|C_CSSPEC)))
413                  return(1);              /* no settings == grey */
414          c_ccvt(clr, C_CSXY);
415          return(clr->cx >= .323 && clr->cx <= .343 &&
# Line 385 | Line 427 | int    fl;
427  
428          if (clr->flags & fl)            /* already done */
429                  return;
430 <        if (!(clr->flags & (C_CSXY|C_CSSPEC)))  /* nothing set */
430 >        if (!(clr->flags & (C_CSXY|C_CSSPEC)))  /* nothing set! */
431                  *clr = c_dfcolor;
432          else if (fl & C_CSXY) {         /* cspec -> cxy */
433                  x = y = z = 0.;
# Line 465 | Line 507 | char   **av;
507                          clr->ssum += clr->ssamp[i];
508                  }
509          clr->flags = C_CDSPEC|C_CSSPEC;
510 +        clr->clock++;
511          free((MEM_PTR)va);
512          return(MG_OK);
513   }

Diff Legend

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