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

Comparing ray/src/cv/mgflib/parser.c (file contents):
Revision 1.8 by greg, Sat Jun 25 09:48:03 1994 UTC vs.
Revision 1.12 by greg, Fri Jul 22 09:58:49 1994 UTC

# Line 135 | Line 135 | mg_init()                      /* initialize alternate entity handlers */
135          if (mg_ehand[MG_E_RD] != NULL || mg_ehand[MG_E_TD] != NULL ||
136                          mg_ehand[MG_E_ED] != NULL ||
137                          mg_ehand[MG_E_RS] != NULL ||
138 <                        mg_ehand[MG_E_TS] != NULL)
138 >                        mg_ehand[MG_E_TS] != NULL ||
139 >                        mg_ehand[MG_E_SIDES] != NULL)
140                  uneed |= 1<<MG_E_MATERIAL;
141          for (i = 0; i < MG_NENTITIES; i++)
142                  if (uneed & 1<<i && mg_ehand[i] == NULL) {
# Line 170 | Line 171 | int
171   mg_entity(name)                 /* get entity number from its name */
172   char    *name;
173   {
174 <        static LUTAB    ent_tab;        /* entity lookup table */
174 >        static LUTAB    ent_tab = LU_SINIT(NULL,NULL);  /* lookup table */
175          register char   *cp;
176  
177          if (!ent_tab.tsiz) {            /* initialize hash table */
# Line 187 | Line 188 | char   *name;
188   }
189  
190  
191 < static int
192 < handle_it(en, ac, av)           /* pass entity to appropriate handler */
191 > int
192 > mg_handle(en, ac, av)           /* pass entity to appropriate handler */
193   register int    en;
194   int     ac;
195   char    **av;
# Line 210 | Line 211 | mg_open(ctx, fn)                       /* open new input file */
211   register MG_FCTXT       *ctx;
212   char    *fn;
213   {
214 +        static int      nfids;
215          int     olen;
216          register char   *cp;
217  
218 +        ctx->fid = ++nfids;
219          ctx->lineno = 0;
220          if (fn == NULL) {
221                  strcpy(ctx->fname, "<stdin>");
# Line 251 | Line 254 | mg_close()                     /* close input file */
254   }
255  
256  
257 + void
258 + mg_fgetpos(pos)                 /* get current position in input file */
259 + register MG_FPOS        *pos;
260 + {
261 +        extern long     ftell();
262 +
263 +        pos->fid = mg_file->fid;
264 +        pos->lineno = mg_file->lineno;
265 +        pos->offset = ftell(mg_file->fp);
266 + }
267 +
268 +
269   int
270 < mg_rewind()                     /* rewind input file */
270 > mg_fgoto(pos)                   /* reposition input file pointer */
271 > register MG_FPOS        *pos;
272   {
273 <        if (mg_file->lineno == 0)
273 >        if (pos->fid != mg_file->fid)
274 >                return(MG_ESEEK);
275 >        if (pos->lineno == mg_file->lineno)
276                  return(MG_OK);
277          if (mg_file->fp == stdin)
278                  return(MG_ESEEK);       /* cannot seek on standard input */
279 <        if (fseek(mg_file->fp, 0L, 0) == EOF)
279 >        if (fseek(mg_file->fp, pos->offset, 0) == EOF)
280                  return(MG_ESEEK);
281 <        mg_file->lineno = 0;
281 >        mg_file->lineno = pos->lineno;
282          return(MG_OK);
283   }
284  
# Line 309 | Line 327 | mg_parse()                     /* parse current input line */
327                  return(MG_OK);          /* no words in line */
328          *ap = NULL;
329                                          /* else handle it */
330 <        return(handle_it(-1, ap-argv, argv));
330 >        return(mg_handle(-1, ap-argv, argv));
331   }
332  
333  
# Line 344 | Line 362 | mg_clear()                     /* clear parser history */
362   }
363  
364  
347 int
348 mg_iterate(ac, av, f)           /* iterate on statement */
349 int     ac;
350 register char   **av;
351 int     (*f)();
352 {
353        int     niter, rval;
354        register int    i, j;
355        char    *argv[MG_MAXARGC];
356        char    cntbuf[10];
357                                        /* build partial transformation */
358        for (i = 0; i < ac; i++) {
359                if (av[i][0] == '-' && av[i][1] == 'a' && av[i][2] == '\0')
360                        break;
361                argv[i+1] = av[i];
362        }
363        argv[i+1] = NULL;
364        if (i) {                        /* handle transformation */
365                argv[0] = mg_ename[MG_E_XF];
366                if ((rval = handle_it(MG_E_XF, i+1, argv)) != MG_OK)
367                        return(rval);
368        }
369        if (i < ac) {                   /* run array */
370                if (i+1 >= ac || !isint(av[i+1]))
371                        return(MG_ETYPE);
372                niter = atoi(av[i+1]);
373                argv[0] = mg_ename[MG_E_OBJECT];
374                argv[1] = cntbuf;
375                for (j = 2; j+i < ac; j++)
376                        argv[j] = av[j+i];
377                argv[j] = NULL;
378                for (j = 0; j < niter; j++) {
379                        sprintf(cntbuf, "%d", j);
380                        if ((rval = handle_it(MG_E_OBJECT, 2, argv)) != MG_OK)
381                                return(rval);
382                        argv[0] = "-i";
383                        if ((rval = mg_iterate(ac-i, argv, f)) != MG_OK)
384                                return(rval);
385                        argv[0] = mg_ename[MG_E_OBJECT];
386                        if ((rval = handle_it(MG_E_OBJECT, 1, argv)) != MG_OK)
387                                return(rval);
388                }
389        } else if ((rval = (*f)()) != MG_OK)    /* else do this instance */
390                        return(rval);
391        if (i) {                        /* reset the transform */
392                argv[0] = mg_ename[MG_E_XF];
393                argv[1] = NULL;
394                (void)handle_it(MG_E_XF, 1, argv);
395        }
396        return(MG_OK);
397 }
398
399
365   /****************************************************************************
366   *      The following routines handle unsupported entities
367   */
# Line 412 | Line 377 | char   **av;
377  
378  
379   static int
415 reload_file()                   /* reload current MGF file */
416 {
417        register int    rval;
418
419        if ((rval = mg_rewind()) != MG_OK)
420                return(rval);
421        while (mg_read())
422                if ((rval = mg_parse()) != MG_OK)
423                        return(rval);
424        return(MG_OK);
425 }
426
427
428 static int
380   e_include(ac, av)               /* include file */
381   int     ac;
382   char    **av;
383   {
384 +        char    *xfarg[MG_MAXARGC];
385          MG_FCTXT        ictx;
386          int     rv;
387  
# Line 437 | Line 389 | char   **av;
389                  return(MG_EARGC);
390          if ((rv = mg_open(&ictx, av[1])) != MG_OK)
391                  return(rv);
392 <        if ((rv = mg_iterate(ac-2, av+2, reload_file)) != MG_OK) {
393 <                fprintf(stderr, "%s: %d: %s:\n%s", ictx.fname,
394 <                                ictx.lineno, mg_err[rv], ictx.inpline);
395 <                mg_close();
396 <                return(MG_EINCL);
392 >        if (ac > 2) {
393 >                register int    i;
394 >
395 >                xfarg[0] = mg_ename[MG_E_XF];
396 >                for (i = 1; i < ac-1; i++)
397 >                        xfarg[i] = av[i+1];
398 >                xfarg[ac-1] = NULL;
399 >                if ((rv = mg_handle(MG_E_XF, ac-1, xfarg)) != MG_OK)
400 >                        return(rv);
401          }
402 +        while (!feof(mg_file->fp)) {
403 +                while (mg_read())
404 +                        if ((rv = mg_parse()) != MG_OK) {
405 +                                fprintf(stderr, "%s: %d: %s:\n%s", ictx.fname,
406 +                                                ictx.lineno, mg_err[rv],
407 +                                                ictx.inpline);
408 +                                mg_close();
409 +                                return(MG_EINCL);
410 +                        }
411 +                if (ac > 2)
412 +                        if ((rv = mg_handle(MG_E_XF, 1, xfarg)) != MG_OK)
413 +                                return(rv);
414 +        }
415          mg_close();
416          return(MG_OK);
417   }
# Line 490 | Line 459 | char   **av;
459          rad = atof(av[2]);
460                                          /* initialize */
461          warpconends = 1;
462 <        if ((rval = handle_it(MG_E_VERTEX, 3, v2ent)) != MG_OK)
462 >        if ((rval = mg_handle(MG_E_VERTEX, 3, v2ent)) != MG_OK)
463                  return(rval);
464          sprintf(p2x, FLTFMT, cv->p[0]);
465          sprintf(p2y, FLTFMT, cv->p[1]);
466          sprintf(p2z, FLTFMT, cv->p[2]+rad);
467 <        if ((rval = handle_it(MG_E_POINT, 4, p2ent)) != MG_OK)
467 >        if ((rval = mg_handle(MG_E_POINT, 4, p2ent)) != MG_OK)
468                  return(rval);
469          r2[0] = '0'; r2[1] = '\0';
470          for (i = 1; i <= 2*mg_nqcdivs; i++) {
471                  theta = i*(PI/2)/mg_nqcdivs;
472 <                if ((rval = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
472 >                if ((rval = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
473                          return(rval);
474                  sprintf(p2z, FLTFMT, cv->p[2]+rad*cos(theta));
475 <                if ((rval = handle_it(MG_E_VERTEX, 2, v2ent)) != MG_OK)
475 >                if ((rval = mg_handle(MG_E_VERTEX, 2, v2ent)) != MG_OK)
476                          return(rval);
477 <                if ((rval = handle_it(MG_E_POINT, 4, p2ent)) != MG_OK)
477 >                if ((rval = mg_handle(MG_E_POINT, 4, p2ent)) != MG_OK)
478                          return(rval);
479                  strcpy(r1, r2);
480                  sprintf(r2, FLTFMT, rad*sin(theta));
481 <                if ((rval = handle_it(MG_E_CONE, 5, conent)) != MG_OK)
481 >                if ((rval = mg_handle(MG_E_CONE, 5, conent)) != MG_OK)
482                          return(rval);
483          }
484          warpconends = 0;
# Line 564 | Line 533 | char   **av;
533          for (j = 0; j < 3; j++)
534                  sprintf(p2[j], FLTFMT, cv->p[j] +
535                                  .5*sgn*(maxrad-minrad)*cv->n[j]);
536 <        if ((rval = handle_it(MG_E_VERTEX, 4, v2ent)) != MG_OK)
536 >        if ((rval = mg_handle(MG_E_VERTEX, 4, v2ent)) != MG_OK)
537                  return(rval);
538 <        if ((rval = handle_it(MG_E_POINT, 4, p2ent)) != MG_OK)
538 >        if ((rval = mg_handle(MG_E_POINT, 4, p2ent)) != MG_OK)
539                  return(rval);
540          sprintf(r2, FLTFMT, avgrad=.5*(minrad+maxrad));
541                                          /* run outer section */
542          for (i = 1; i <= 2*mg_nqcdivs; i++) {
543                  theta = i*(PI/2)/mg_nqcdivs;
544 <                if ((rval = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
544 >                if ((rval = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
545                          return(rval);
546                  for (j = 0; j < 3; j++)
547                          sprintf(p2[j], FLTFMT, cv->p[j] +
548                                  .5*sgn*(maxrad-minrad)*cos(theta)*cv->n[j]);
549 <                if ((rval = handle_it(MG_E_VERTEX, 2, v2ent)) != MG_OK)
549 >                if ((rval = mg_handle(MG_E_VERTEX, 2, v2ent)) != MG_OK)
550                          return(rval);
551 <                if ((rval = handle_it(MG_E_POINT, 4, p2ent)) != MG_OK)
551 >                if ((rval = mg_handle(MG_E_POINT, 4, p2ent)) != MG_OK)
552                          return(rval);
553                  strcpy(r1, r2);
554                  sprintf(r2, FLTFMT, avgrad + .5*(maxrad-minrad)*sin(theta));
555 <                if ((rval = handle_it(MG_E_CONE, 5, conent)) != MG_OK)
555 >                if ((rval = mg_handle(MG_E_CONE, 5, conent)) != MG_OK)
556                          return(rval);
557          }
558                                          /* run inner section */
# Line 593 | Line 562 | char   **av;
562                  for (j = 0; j < 3; j++)
563                          sprintf(p2[j], FLTFMT, cv->p[j] +
564                                  .5*sgn*(maxrad-minrad)*cos(theta)*cv->n[j]);
565 <                if ((rval = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
565 >                if ((rval = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
566                          return(rval);
567 <                if ((rval = handle_it(MG_E_VERTEX, 2, v2ent)) != MG_OK)
567 >                if ((rval = mg_handle(MG_E_VERTEX, 2, v2ent)) != MG_OK)
568                          return(rval);
569 <                if ((rval = handle_it(MG_E_POINT, 4, p2ent)) != MG_OK)
569 >                if ((rval = mg_handle(MG_E_POINT, 4, p2ent)) != MG_OK)
570                          return(rval);
571                  strcpy(r1, r2);
572                  sprintf(r2, FLTFMT, -avgrad - .5*(maxrad-minrad)*sin(theta));
573 <                if ((rval = handle_it(MG_E_CONE, 5, conent)) != MG_OK)
573 >                if ((rval = mg_handle(MG_E_CONE, 5, conent)) != MG_OK)
574                          return(rval);
575          }
576          warpconends = 0;
# Line 622 | Line 591 | char   **av;
591          avnew[2] = av[2];
592          avnew[3] = av[3];
593          avnew[4] = av[2];
594 <        return(handle_it(MG_E_CONE, 5, avnew));
594 >        return(mg_handle(MG_E_CONE, 5, avnew));
595   }
596  
597  
# Line 664 | Line 633 | char   **av;
633          make_axes(u, v, cv->n);
634          for (j = 0; j < 3; j++)
635                  sprintf(p3[j], FLTFMT, cv->p[j] + maxrad*u[j]);
636 <        if ((rv = handle_it(MG_E_VERTEX, 3, v3ent)) != MG_OK)
636 >        if ((rv = mg_handle(MG_E_VERTEX, 3, v3ent)) != MG_OK)
637                  return(rv);
638 <        if ((rv = handle_it(MG_E_POINT, 4, p3ent)) != MG_OK)
638 >        if ((rv = mg_handle(MG_E_POINT, 4, p3ent)) != MG_OK)
639                  return(rv);
640          if (minrad == 0.) {             /* closed */
641                  v1ent[3] = av[1];
642 <                if ((rv = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
642 >                if ((rv = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
643                          return(rv);
644 <                if ((rv = handle_it(MG_E_NORMAL, 4, nzent)) != MG_OK)
644 >                if ((rv = mg_handle(MG_E_NORMAL, 4, nzent)) != MG_OK)
645                          return(rv);
646                  for (i = 1; i <= 4*mg_nqcdivs; i++) {
647                          theta = i*(PI/2)/mg_nqcdivs;
648 <                        if ((rv = handle_it(MG_E_VERTEX, 4, v2ent)) != MG_OK)
648 >                        if ((rv = mg_handle(MG_E_VERTEX, 4, v2ent)) != MG_OK)
649                                  return(rv);
650                          for (j = 0; j < 3; j++)
651                                  sprintf(p3[j], FLTFMT, cv->p[j] +
652                                                  maxrad*u[j]*cos(theta) +
653                                                  maxrad*v[j]*sin(theta));
654 <                        if ((rv = handle_it(MG_E_VERTEX, 2, v3ent)) != MG_OK)
654 >                        if ((rv = mg_handle(MG_E_VERTEX, 2, v3ent)) != MG_OK)
655                                  return(rv);
656 <                        if ((rv = handle_it(MG_E_POINT, 4, p3ent)) != MG_OK)
656 >                        if ((rv = mg_handle(MG_E_POINT, 4, p3ent)) != MG_OK)
657                                  return(rv);
658 <                        if ((rv = handle_it(MG_E_FACE, 4, fent)) != MG_OK)
658 >                        if ((rv = mg_handle(MG_E_FACE, 4, fent)) != MG_OK)
659                                  return(rv);
660                  }
661          } else {                        /* open */
662 <                if ((rv = handle_it(MG_E_VERTEX, 3, v4ent)) != MG_OK)
662 >                if ((rv = mg_handle(MG_E_VERTEX, 3, v4ent)) != MG_OK)
663                          return(rv);
664                  for (j = 0; j < 3; j++)
665                          sprintf(p4[j], FLTFMT, cv->p[j] + minrad*u[j]);
666 <                if ((rv = handle_it(MG_E_POINT, 4, p4ent)) != MG_OK)
666 >                if ((rv = mg_handle(MG_E_POINT, 4, p4ent)) != MG_OK)
667                          return(rv);
668                  v1ent[3] = "_rv4";
669                  for (i = 1; i <= 4*mg_nqcdivs; i++) {
670                          theta = i*(PI/2)/mg_nqcdivs;
671 <                        if ((rv = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
671 >                        if ((rv = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
672                                  return(rv);
673 <                        if ((rv = handle_it(MG_E_VERTEX, 4, v2ent)) != MG_OK)
673 >                        if ((rv = mg_handle(MG_E_VERTEX, 4, v2ent)) != MG_OK)
674                                  return(rv);
675                          for (j = 0; j < 3; j++) {
676                                  d = u[j]*cos(theta) + v[j]*sin(theta);
677                                  sprintf(p3[j], FLTFMT, cv->p[j] + maxrad*d);
678                                  sprintf(p4[j], FLTFMT, cv->p[j] + minrad*d);
679                          }
680 <                        if ((rv = handle_it(MG_E_VERTEX, 2, v3ent)) != MG_OK)
680 >                        if ((rv = mg_handle(MG_E_VERTEX, 2, v3ent)) != MG_OK)
681                                  return(rv);
682 <                        if ((rv = handle_it(MG_E_POINT, 4, p3ent)) != MG_OK)
682 >                        if ((rv = mg_handle(MG_E_POINT, 4, p3ent)) != MG_OK)
683                                  return(rv);
684 <                        if ((rv = handle_it(MG_E_VERTEX, 2, v4ent)) != MG_OK)
684 >                        if ((rv = mg_handle(MG_E_VERTEX, 2, v4ent)) != MG_OK)
685                                  return(rv);
686 <                        if ((rv = handle_it(MG_E_POINT, 4, p4ent)) != MG_OK)
686 >                        if ((rv = mg_handle(MG_E_POINT, 4, p4ent)) != MG_OK)
687                                  return(rv);
688 <                        if ((rv = handle_it(MG_E_FACE, 5, fent)) != MG_OK)
688 >                        if ((rv = mg_handle(MG_E_FACE, 5, fent)) != MG_OK)
689                                  return(rv);
690                  }
691          }
# Line 798 | Line 767 | char   **av;
767                  else
768                          sprintf(n3[j], FLTFMT, u[j] + w[j]*n2off);
769          }
770 <        if ((rv = handle_it(MG_E_VERTEX, 3, v3ent)) != MG_OK)
770 >        if ((rv = mg_handle(MG_E_VERTEX, 3, v3ent)) != MG_OK)
771                  return(rv);
772 <        if ((rv = handle_it(MG_E_POINT, 4, p3ent)) != MG_OK)
772 >        if ((rv = mg_handle(MG_E_POINT, 4, p3ent)) != MG_OK)
773                  return(rv);
774 <        if ((rv = handle_it(MG_E_NORMAL, 4, n3ent)) != MG_OK)
774 >        if ((rv = mg_handle(MG_E_NORMAL, 4, n3ent)) != MG_OK)
775                  return(rv);
776          if (rad1 == 0.) {               /* triangles */
777                  v1ent[3] = av[1];
778 <                if ((rv = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
778 >                if ((rv = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
779                          return(rv);
780                  for (j = 0; j < 3; j++)
781                          sprintf(n4[j], FLTFMT, w[j]);
782 <                if ((rv = handle_it(MG_E_NORMAL, 4, n4ent)) != MG_OK)
782 >                if ((rv = mg_handle(MG_E_NORMAL, 4, n4ent)) != MG_OK)
783                          return(rv);
784                  for (i = 1; i <= 4*mg_nqcdivs; i++) {
785                          theta = sgn*i*(PI/2)/mg_nqcdivs;
786 <                        if ((rv = handle_it(MG_E_VERTEX, 4, v2ent)) != MG_OK)
786 >                        if ((rv = mg_handle(MG_E_VERTEX, 4, v2ent)) != MG_OK)
787                                  return(rv);
788                          for (j = 0; j < 3; j++) {
789                                  d = u[j]*cos(theta) + v[j]*sin(theta);
# Line 822 | Line 791 | char   **av;
791                                  if (n2off > -FHUGE)
792                                          sprintf(n3[j], FLTFMT, d + w[j]*n2off);
793                          }
794 <                        if ((rv = handle_it(MG_E_VERTEX, 2, v3ent)) != MG_OK)
794 >                        if ((rv = mg_handle(MG_E_VERTEX, 2, v3ent)) != MG_OK)
795                                  return(rv);
796 <                        if ((rv = handle_it(MG_E_POINT, 4, p3ent)) != MG_OK)
796 >                        if ((rv = mg_handle(MG_E_POINT, 4, p3ent)) != MG_OK)
797                                  return(rv);
798                          if (n2off > -FHUGE &&
799 <                        (rv = handle_it(MG_E_NORMAL, 4, n3ent)) != MG_OK)
799 >                        (rv = mg_handle(MG_E_NORMAL, 4, n3ent)) != MG_OK)
800                                  return(rv);
801 <                        if ((rv = handle_it(MG_E_FACE, 4, fent)) != MG_OK)
801 >                        if ((rv = mg_handle(MG_E_FACE, 4, fent)) != MG_OK)
802                                  return(rv);
803                  }
804          } else {                        /* quads */
# Line 848 | Line 817 | char   **av;
817                          else
818                                  sprintf(n4[j], FLTFMT, u[j] + w[j]*n1off);
819                  }
820 <                if ((rv = handle_it(MG_E_VERTEX, 3, v4ent)) != MG_OK)
820 >                if ((rv = mg_handle(MG_E_VERTEX, 3, v4ent)) != MG_OK)
821                          return(rv);
822 <                if ((rv = handle_it(MG_E_POINT, 4, p4ent)) != MG_OK)
822 >                if ((rv = mg_handle(MG_E_POINT, 4, p4ent)) != MG_OK)
823                          return(rv);
824 <                if ((rv = handle_it(MG_E_NORMAL, 4, n4ent)) != MG_OK)
824 >                if ((rv = mg_handle(MG_E_NORMAL, 4, n4ent)) != MG_OK)
825                          return(rv);
826                  for (i = 1; i <= 4*mg_nqcdivs; i++) {
827                          theta = sgn*i*(PI/2)/mg_nqcdivs;
828 <                        if ((rv = handle_it(MG_E_VERTEX, 4, v1ent)) != MG_OK)
828 >                        if ((rv = mg_handle(MG_E_VERTEX, 4, v1ent)) != MG_OK)
829                                  return(rv);
830 <                        if ((rv = handle_it(MG_E_VERTEX, 4, v2ent)) != MG_OK)
830 >                        if ((rv = mg_handle(MG_E_VERTEX, 4, v2ent)) != MG_OK)
831                                  return(rv);
832                          for (j = 0; j < 3; j++) {
833                                  d = u[j]*cos(theta) + v[j]*sin(theta);
# Line 869 | Line 838 | char   **av;
838                                  if (n1off < FHUGE)
839                                          sprintf(n4[j], FLTFMT, d + w[j]*n1off);
840                          }
841 <                        if ((rv = handle_it(MG_E_VERTEX, 2, v3ent)) != MG_OK)
841 >                        if ((rv = mg_handle(MG_E_VERTEX, 2, v3ent)) != MG_OK)
842                                  return(rv);
843 <                        if ((rv = handle_it(MG_E_POINT, 4, p3ent)) != MG_OK)
843 >                        if ((rv = mg_handle(MG_E_POINT, 4, p3ent)) != MG_OK)
844                                  return(rv);
845                          if (n2off > -FHUGE &&
846 <                        (rv = handle_it(MG_E_NORMAL, 4, n3ent)) != MG_OK)
846 >                        (rv = mg_handle(MG_E_NORMAL, 4, n3ent)) != MG_OK)
847                                  return(rv);
848 <                        if ((rv = handle_it(MG_E_VERTEX, 2, v4ent)) != MG_OK)
848 >                        if ((rv = mg_handle(MG_E_VERTEX, 2, v4ent)) != MG_OK)
849                                  return(rv);
850 <                        if ((rv = handle_it(MG_E_POINT, 4, p4ent)) != MG_OK)
850 >                        if ((rv = mg_handle(MG_E_POINT, 4, p4ent)) != MG_OK)
851                                  return(rv);
852                          if (n1off < FHUGE &&
853 <                        (rv = handle_it(MG_E_NORMAL, 4, n4ent)) != MG_OK)
853 >                        (rv = mg_handle(MG_E_NORMAL, 4, n4ent)) != MG_OK)
854                                  return(rv);
855 <                        if ((rv = handle_it(MG_E_FACE, 5, fent)) != MG_OK)
855 >                        if ((rv = mg_handle(MG_E_FACE, 5, fent)) != MG_OK)
856                                  return(rv);
857                  }
858          }
# Line 897 | Line 866 | int    ac;
866   char    **av;
867   {
868          static char     p[3][24];
869 <        static char     *vent[4] = {mg_ename[MG_E_VERTEX],NULL,"="};
869 >        static char     *vent[5] = {mg_ename[MG_E_VERTEX],NULL,"="};
870          static char     *pent[5] = {mg_ename[MG_E_POINT],p[0],p[1],p[2]};
871 +        static char     *znorm[5] = {mg_ename[MG_E_NORMAL],"0","0","0"};
872          char    *newav[MG_MAXARGC], nvn[MG_MAXARGC-1][8];
873          double  length;
874 +        int     hasnorm;
875          FVECT   v1, v2, v3, norm;
876          register C_VERTEX       *cv;
877          C_VERTEX        *cv0;
878          int     rv;
879          register int    i, j;
880 <
880 >                                                /* check arguments */
881          if (ac < 5)
882                  return(MG_EARGC);
883          if (!isflt(av[ac-1]))
# Line 914 | Line 885 | char   **av;
885          length = atof(av[ac-1]);
886          if (length <= FTINY && length >= -FTINY)
887                  return(MG_EILL);
888 <                                        /* do bottom face */
918 <        newav[0] = mg_ename[MG_E_FACE];
919 <        for (i = 1; i < ac-1; i++)
920 <                newav[i] = av[i];
921 <        newav[i] = NULL;
922 <        if ((rv = handle_it(MG_E_FACE, i, newav)) != MG_OK)
923 <                return(rv);
924 <                                        /* compute face normal */
888 >                                                /* compute face normal */
889          if ((cv0 = c_getvert(av[1])) == NULL)
890                  return(MG_EUNDEF);
891 +        hasnorm = 0;
892          norm[0] = norm[1] = norm[2] = 0.;
893          v1[0] = v1[1] = v1[2] = 0.;
894          for (i = 2; i < ac-1; i++) {
895                  if ((cv = c_getvert(av[i])) == NULL)
896                          return(MG_EUNDEF);
897 +                hasnorm += !is0vect(cv->n);
898                  v2[0] = cv->p[0] - cv0->p[0];
899                  v2[1] = cv->p[1] - cv0->p[1];
900                  v2[2] = cv->p[2] - cv0->p[2];
# Line 940 | Line 906 | char   **av;
906          }
907          if (normalize(norm) == 0.)
908                  return(MG_EILL);
909 <                                        /* create moved vertices */
909 >                                                /* create moved vertices */
910          for (i = 1; i < ac-1; i++) {
911                  sprintf(nvn[i-1], "_pv%d", i);
912                  vent[1] = nvn[i-1];
913 <                if ((rv = handle_it(MG_E_VERTEX, 3, vent)) != MG_OK)
913 >                vent[3] = av[i];
914 >                if ((rv = mg_handle(MG_E_VERTEX, 4, vent)) != MG_OK)
915                          return(rv);
916                  cv = c_getvert(av[i]);          /* checked above */
917                  for (j = 0; j < 3; j++)
918                          sprintf(p[j], FLTFMT, cv->p[j] - length*norm[j]);
919 <                if ((rv = handle_it(MG_E_POINT, 4, pent)) != MG_OK)
919 >                if ((rv = mg_handle(MG_E_POINT, 4, pent)) != MG_OK)
920                          return(rv);
954                newav[ac-1-i] = nvn[i-1];       /* reverse */
921          }
922 <                                                /* do top face */
923 <        if ((rv = handle_it(MG_E_FACE, ac-1, newav)) != MG_OK)
958 <                return(rv);
922 >                                                /* make faces */
923 >        newav[0] = mg_ename[MG_E_FACE];
924                                                  /* do the side faces */
925          newav[5] = NULL;
926          newav[3] = av[ac-2];
# Line 963 | Line 928 | char   **av;
928          for (i = 1; i < ac-1; i++) {
929                  newav[1] = nvn[i-1];
930                  newav[2] = av[i];
931 <                if ((rv = handle_it(MG_E_FACE, 5, newav)) != MG_OK)
931 >                if ((rv = mg_handle(MG_E_FACE, 5, newav)) != MG_OK)
932                          return(rv);
933                  newav[3] = newav[2];
934                  newav[4] = newav[1];
935          }
936 +                                                /* do top face */
937 +        for (i = 1; i < ac-1; i++) {
938 +                if (hasnorm) {                  /* zero normals */
939 +                        vent[1] = nvn[i-1];
940 +                        if ((rv = mg_handle(MG_E_VERTEX, 2, vent)) != MG_OK)
941 +                                return(rv);
942 +                        if ((rv = mg_handle(MG_E_NORMAL, 4, znorm)) != MG_OK)
943 +                                return(rv);
944 +                }
945 +                newav[ac-1-i] = nvn[i-1];       /* reverse */
946 +        }
947 +        if ((rv = mg_handle(MG_E_FACE, ac-1, newav)) != MG_OK)
948 +                return(rv);
949 +                                                /* do bottom face */
950 +        if (hasnorm)
951 +                for (i = 1; i < ac-1; i++) {
952 +                        vent[1] = nvn[i-1];
953 +                        vent[3] = av[i];
954 +                        if ((rv = mg_handle(MG_E_VERTEX, 4, vent)) != MG_OK)
955 +                                return(rv);
956 +                        if ((rv = mg_handle(MG_E_NORMAL, 4, znorm)) != MG_OK)
957 +                                return(rv);
958 +                        newav[i] = nvn[i-1];
959 +                }
960 +        else
961 +                for (i = 1; i < ac-1; i++)
962 +                        newav[i] = av[i];
963 +        newav[i] = NULL;
964 +        if ((rv = mg_handle(MG_E_FACE, i, newav)) != MG_OK)
965 +                return(rv);
966          return(MG_OK);
967   }
968  
# Line 986 | Line 981 | char   **av;
981          if (mg_ehand[MG_E_CXY] != c_hcolor) {
982                  sprintf(xbuf, "%.4f", c_ccolor->cx);
983                  sprintf(ybuf, "%.4f", c_ccolor->cy);
984 <                if ((rv = handle_it(MG_E_CXY, 3, ccom)) != MG_OK)
984 >                if ((rv = mg_handle(MG_E_CXY, 3, ccom)) != MG_OK)
985                          return(rv);
986          }
987          return(MG_OK);
# Line 1026 | Line 1021 | char   **av;
1021                                  newav[i+3] = vbuf[i];
1022                          }
1023                          newav[C_CNSS+3] = NULL;
1024 <                        if ((rv = handle_it(MG_E_CSPEC, C_CNSS+3, newav)) != MG_OK)
1024 >                        if ((rv = mg_handle(MG_E_CSPEC, C_CNSS+3, newav)) != MG_OK)
1025                                  return(rv);
1026                  }
1027                  return(MG_OK);
# Line 1038 | Line 1033 | char   **av;
1033                  newav[1] = vbuf[0];
1034                  newav[2] = vbuf[1];
1035                  newav[3] = NULL;
1036 <                if ((rv = handle_it(MG_E_CXY, 3, newav)) != MG_OK)
1036 >                if ((rv = mg_handle(MG_E_CXY, 3, newav)) != MG_OK)
1037                          return(rv);
1038          }
1039          return(MG_OK);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines