[ViewVC] Diff of: radiance/ray/src/cv/mgflib/parser.c

Comparing ray/src/cv/mgflib/parser.c (file contents):
Revision 1.3 by greg, Wed Jun 22 17:15:49 1994 UTC vs.
Revision 1.6 by greg, Fri Jun 24 16:28:18 1994 UTC

+                e_ies(),                /* IES luminaire file */
+                e_include(),            /* include file */
+                e_sph(),                /* sphere */
-+
+                e_cmix(),               /* color mixtures */
-+
+                e_cspec(),              /* color spectra */
+                e_cyl(),                /* cylinder */
+                e_cone(),               /* cone */
-+
+                e_prism(),              /* prism */
+                e_ring(),               /* ring */
+                e_torus();              /* torus */
+                ineed |= 1<<MG_E_POINT|1<<MG_E_NORMAL|1<<MG_E_VERTEX;
+        } else
+                uneed |= 1<<MG_E_POINT|1<<MG_E_NORMAL|1<<MG_E_VERTEX|1<<MG_E_XF;
-+
+        if (mg_ehand[MG_E_PRISM] == NULL) {
-+
+                mg_ehand[MG_E_PRISM] = e_prism;
-+
+                ineed |= 1<<MG_E_POINT|1<<MG_E_VERTEX;
-+
+        } else
-+
+                uneed |= 1<<MG_E_POINT|1<<MG_E_VERTEX|1<<MG_E_XF;
+        if (mg_ehand[MG_E_TORUS] == NULL) {
+                mg_ehand[MG_E_TORUS] = e_torus;
+                ineed |= 1<<MG_E_POINT|1<<MG_E_NORMAL|1<<MG_E_VERTEX;
+        } else
+                uneed |= 1<<MG_E_POINT|1<<MG_E_NORMAL|1<<MG_E_VERTEX|1<<MG_E_XF;
-+
+        if (mg_ehand[MG_E_COLOR] != NULL) {
-+
+                if (mg_ehand[MG_E_CMIX] == NULL) {
-+
+                        mg_ehand[MG_E_CMIX] = e_cmix;
-+
+                        ineed |= 1<<MG_E_COLOR|1<<MG_E_CXY|1<<MG_E_CSPEC|1<<MG_E_CMIX;
-+
+                }
-+
+                if (mg_ehand[MG_E_CSPEC] == NULL) {
-+
+                        mg_ehand[MG_E_CSPEC] = e_cspec;
-+
+                        ineed |= 1<<MG_E_COLOR|1<<MG_E_CXY|1<<MG_E_CSPEC|1<<MG_E_CMIX;
-+
+                }
-+
+        }
+                                        /* check for consistency */
+        if (mg_ehand[MG_E_FACE] != NULL)
+                uneed |= 1<<MG_E_POINT|1<<MG_E_VERTEX|1<<MG_E_XF;
-<
+        if (mg_ehand[MG_E_CXY] != NULL)
->
+        if (mg_ehand[MG_E_CXY] != NULL || mg_ehand[MG_E_CSPEC] != NULL ||
->
+                        mg_ehand[MG_E_CMIX] != NULL)
+                uneed |= 1<<MG_E_COLOR;
+        if (mg_ehand[MG_E_RD] != NULL || mg_ehand[MG_E_TD] != NULL ||
+                        mg_ehand[MG_E_ED] != NULL ||
+                e_supp[MG_E_POINT] = c_hvertex;
+        if (ineed & 1<<MG_E_NORMAL && mg_ehand[MG_E_NORMAL] != c_hvertex)
+                e_supp[MG_E_NORMAL] = c_hvertex;
-+
+        if (ineed & 1<<MG_E_COLOR && mg_ehand[MG_E_COLOR] != c_hcolor)
-+
+                e_supp[MG_E_COLOR] = c_hcolor;
-+
+        if (ineed & 1<<MG_E_CXY && mg_ehand[MG_E_CXY] != c_hcolor)
-+
+                e_supp[MG_E_CXY] = c_hcolor;
-+
+        if (ineed & 1<<MG_E_CSPEC && mg_ehand[MG_E_CSPEC] != c_hcolor)
-+
+                e_supp[MG_E_CSPEC] = c_hcolor;
-+
+        if (ineed & 1<<MG_E_CMIX && mg_ehand[MG_E_CMIX] != c_hcolor)
-+
+                e_supp[MG_E_CMIX] = c_hcolor;
+                                        /* discard remaining entities */
+        for (i = 0; i < MG_NENTITIES; i++)
+                if (mg_ehand[i] == NULL)
+                        if ((rv = handle_it(MG_E_FACE, 5, fent)) != MG_OK)
+                                return(rv);
-+
+        }
-+
+        return(MG_OK);
-+
+}
-+
-+
-+
+static int
-+
+e_prism(ac, av)                 /* turn a prism into polygons */
-+
+int     ac;
-+
+char    **av;
-+
+{
-+
+        static char     p[3][24];
-+
+        static char     *vent[4] = {mg_ename[MG_E_VERTEX],NULL,"="};
-+
+        static char     *pent[5] = {mg_ename[MG_E_POINT],p[0],p[1],p[2]};
-+
+        char    *newav[MG_MAXARGC], nvn[MG_MAXARGC-1][8];
-+
+        double  length;
-+
+        FVECT   v1, v2, v3, norm;
-+
+        register C_VERTEX       *cv;
-+
+        C_VERTEX        *cv0;
-+
+        int     rv;
-+
+        register int    i, j;
-+
-+
+        if (ac < 5)
-+
+                return(MG_EARGC);
-+
+        if (!isflt(av[ac-1]))
-+
+                return(MG_ETYPE);
-+
+        length = atof(av[ac-1]);
-+
+        if (length <= FTINY && length >= -FTINY)
-+
+                return(MG_EILL);
-+
+                                        /* do bottom face */
-+
+        newav[0] = mg_ename[MG_E_FACE];
-+
+        for (i = 1; i < ac-1; i++)
-+
+                newav[i] = av[i];
-+
+        newav[i] = NULL;
-+
+        if ((rv = handle_it(MG_E_FACE, i, newav)) != MG_OK)
-+
+                return(rv);
-+
+                                        /* compute face normal */
-+
+        if ((cv0 = c_getvert(av[2])) == NULL)
-+
+                return(MG_EUNDEF);
-+
+        norm[0] = norm[1] = norm[2] = 0.;
-+
+        v1[0] = v1[1] = v1[2] = 0.;
-+
+        for (i = 2; i < ac-1; i++) {
-+
+                if ((cv = c_getvert(av[i])) == NULL)
-+
+                        return(MG_EUNDEF);
-+
+                v2[0] = cv->p[0] - cv0->p[0];
-+
+                v2[1] = cv->p[1] - cv0->p[1];
-+
+                v2[2] = cv->p[2] - cv0->p[2];
-+
+                fcross(v3, v1, v2);
-+
+                norm[0] += v3[0];
-+
+                norm[1] += v3[1];
-+
+                norm[2] += v3[2];
-+
+                VCOPY(v1, v2);
-+
+        }
-+
+        if (normalize(norm) == 0.)
-+
+                return(MG_EILL);
-+
+                                        /* create moved vertices */
-+
+        for (i = 1; i < ac-1; i++) {
-+
+                sprintf(nvn[i-1], "_pv%d", i);
-+
+                vent[1] = nvn[i-1];
-+
+                if ((rv = handle_it(MG_E_VERTEX, 3, vent)) != MG_OK)
-+
+                        return(rv);
-+
+                cv = c_getvert(av[i]);          /* checked above */
-+
+                for (j = 0; j < 3; j++)
-+
+                        sprintf(p[j], FLTFMT, cv->p[j] - length*norm[j]);
-+
+                if ((rv = handle_it(MG_E_POINT, 4, pent)) != MG_OK)
-+
+                        return(rv);
-+
+                newav[ac-1-i] = nvn[i-1];       /* reverse */
-+
+        }
-+
+                                                /* do top face */
-+
+        if ((rv = handle_it(MG_E_FACE, ac-1, newav)) != MG_OK)
-+
+                return(rv);
-+
+                                                /* do the side faces */
-+
+        newav[5] = NULL;
-+
+        newav[3] = av[ac-2];
-+
+        newav[4] = nvn[ac-3];
-+
+        for (i = 1; i < ac-1; i++) {
-+
+                newav[1] = nvn[i-1];
-+
+                newav[2] = av[i];
-+
+                if ((rv = handle_it(MG_E_FACE, 5, newav)) != MG_OK)
-+
+                        return(rv);
-+
+                newav[3] = newav[2];
-+
+                newav[4] = newav[1];
-+
+        }
-+
+        return(MG_OK);
-+
+}
-+
-+
-+
+static int
-+
+e_cspec(ac, av)                 /* handle spectral color */
-+
+int     ac;
-+
+char    **av;
-+
+{
-+
+        static char     xbuf[24], ybuf[24];
-+
+        static char     *ccom[4] = {mg_ename[MG_E_CXY], xbuf, ybuf};
-+
+        int     rv;
-+
-+
+        c_ccvt(c_ccolor, C_CSXY);
-+
+                                /* if it's really their handler, use it */
-+
+        if (mg_ehand[MG_E_CXY] != c_hcolor) {
-+
+                sprintf(xbuf, "%.4f", c_ccolor->cx);
-+
+                sprintf(ybuf, "%.4f", c_ccolor->cy);
-+
+                if ((rv = handle_it(MG_E_CXY, 3, ccom)) != MG_OK)
-+
+                        return(rv);
-+
+        }
-+
+        return(MG_OK);
-+
+}
-+
-+
-+
+static int
-+
+e_cmix(ac, av)                  /* handle mixing of colors */
-+
+int     ac;
-+
+char    **av;
-+
+{
-+
+        char    wl[2][6], vbuf[C_CNSS][24];
-+
+        char    *newav[C_CNSS+4];
-+
+        int     rv;
-+
+        register int    i;
-+
+        /*
-+
+         * Contorted logic works as follows:
-+
+         *      1. the colors are already mixed in c_hcolor() support function
-+
+         *      2. if we would handle a spectral result, make sure it's not
-+
+         *      3. if c_hcolor() would handle a spectral result, don't bother
-+
+         *      4. otherwise, make cspec entity and pass it to their handler
-+
+         *      5. if we have only xy results, handle it as c_spec() would
-+
+         */
-+
+        if (mg_ehand[MG_E_CSPEC] == e_cspec)
-+
+                c_ccvt(c_ccolor, C_CSXY);
-+
+        else if (c_ccolor->flags & C_CDSPEC) {
-+
+                if (mg_ehand[MG_E_CSPEC] != c_hcolor) {
-+
+                        sprintf(wl[0], "%d", C_CMINWL);
-+
+                        sprintf(wl[1], "%d", C_CMAXWL);
-+
+                        newav[0] = mg_ename[MG_E_CSPEC];
-+
+                        newav[1] = wl[0];
-+
+                        newav[2] = wl[1];
-+
+                        for (i = 0; i < C_CNSS; i++) {
-+
+                                sprintf(vbuf[i], "%.6f",
-+
+                                                (double)c_ccolor->ssamp[i] /
-+
+                                                c_ccolor->ssum);
-+
+                                newav[i+3] = vbuf[i];
-+
+                        }
-+
+                        newav[C_CNSS+3] = NULL;
-+
+                        if ((rv = handle_it(MG_E_CSPEC, C_CNSS+3, newav)) != MG_OK)
-+
+                                return(rv);
-+
+                }
-+
+                return(MG_OK);
-+
+        }
-+
+        if (mg_ehand[MG_E_CXY] != c_hcolor) {
-+
+                sprintf(vbuf[0], "%.4f", c_ccolor->cx);
-+
+                sprintf(vbuf[1], "%.4f", c_ccolor->cy);
-+
+                newav[0] = mg_ename[MG_E_CXY];
-+
+                newav[1] = vbuf[0];
-+
+                newav[2] = vbuf[1];
-+
+                newav[3] = NULL;
-+
+                if ((rv = handle_it(MG_E_CXY, 3, newav)) != MG_OK)
-+
+                        return(rv);
+        return(MG_OK);

Diff Legend

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

Comparing ray/src/cv/mgflib/parser.c (file contents): Revision 1.3 by greg, Wed Jun 22 17:15:49 1994 UTC vs. Revision 1.6 by greg, Fri Jun 24 16:28:18 1994 UTC

Diff Legend

Comparing ray/src/cv/mgflib/parser.c (file contents):
Revision 1.3 by greg, Wed Jun 22 17:15:49 1994 UTC vs.
Revision 1.6 by greg, Fri Jun 24 16:28:18 1994 UTC