| 1 |
< |
/* Copyright (c) 1995 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1996 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 63 |
|
|
| 64 |
|
static int e_any_toss(), /* discard unneeded entity */ |
| 65 |
|
e_ies(), /* IES luminaire file */ |
| 66 |
– |
e_include(), /* include file */ |
| 67 |
– |
e_sph(), /* sphere */ |
| 66 |
|
e_cct(), /* color temperature */ |
| 67 |
|
e_cmix(), /* color mixtures */ |
| 68 |
< |
e_cspec(), /* color spectra */ |
| 71 |
< |
e_cyl(), /* cylinder */ |
| 72 |
< |
e_cone(), /* cone */ |
| 73 |
< |
e_prism(), /* prism */ |
| 74 |
< |
e_ring(), /* ring */ |
| 75 |
< |
e_torus(); /* torus */ |
| 68 |
> |
e_cspec(); /* color spectra */ |
| 69 |
|
|
| 70 |
|
/* alternate handler support functions */ |
| 71 |
|
|
| 116 |
|
ineed |= 1L<<MG_E_POINT|1L<<MG_E_NORMAL|1L<<MG_E_VERTEX; |
| 117 |
|
} else |
| 118 |
|
uneed |= 1L<<MG_E_POINT|1L<<MG_E_NORMAL|1L<<MG_E_VERTEX|1L<<MG_E_XF; |
| 119 |
+ |
if (mg_ehand[MG_E_FACE] == NULL) |
| 120 |
+ |
mg_ehand[MG_E_FACE] = mg_ehand[MG_E_FACEH]; |
| 121 |
+ |
else if (mg_ehand[MG_E_FACEH] == NULL) |
| 122 |
+ |
mg_ehand[MG_E_FACEH] = e_faceh; |
| 123 |
|
if (mg_ehand[MG_E_COLOR] != NULL) { |
| 124 |
|
if (mg_ehand[MG_E_CMIX] == NULL) { |
| 125 |
|
mg_ehand[MG_E_CMIX] = e_cmix; |
| 257 |
|
register MG_FCTXT *ctx = mg_file; |
| 258 |
|
|
| 259 |
|
mg_file = ctx->prev; /* restore enclosing context */ |
| 260 |
< |
if (ctx->fp == stdin) |
| 261 |
< |
return; /* don't close standard input */ |
| 265 |
< |
fclose(ctx->fp); |
| 260 |
> |
if (ctx->fp != stdin) /* close file if it's a file */ |
| 261 |
> |
fclose(ctx->fp); |
| 262 |
|
} |
| 263 |
|
|
| 264 |
|
|
| 388 |
|
mg_clear() /* clear parser history */ |
| 389 |
|
{ |
| 390 |
|
c_clearall(); /* clear context tables */ |
| 391 |
< |
mg_file = NULL; /* reset our context */ |
| 391 |
> |
while (mg_file != NULL) /* reset our file context */ |
| 392 |
> |
mg_close(); |
| 393 |
|
} |
| 394 |
|
|
| 395 |
|
|
| 407 |
|
} |
| 408 |
|
|
| 409 |
|
|
| 410 |
< |
static int |
| 410 |
> |
int |
| 411 |
|
e_include(ac, av) /* include file */ |
| 412 |
|
int ac; |
| 413 |
|
char **av; |
| 460 |
|
} |
| 461 |
|
|
| 462 |
|
|
| 463 |
+ |
int |
| 464 |
+ |
e_faceh(ac, av) /* replace face+holes with single contour */ |
| 465 |
+ |
int ac; |
| 466 |
+ |
char **av; |
| 467 |
+ |
{ |
| 468 |
+ |
char *newav[MG_MAXARGC]; |
| 469 |
+ |
int lastp = 0; |
| 470 |
+ |
register int i, j; |
| 471 |
+ |
|
| 472 |
+ |
newav[0] = mg_ename[MG_E_FACE]; |
| 473 |
+ |
for (i = 1; i < ac; i++) |
| 474 |
+ |
if (av[i][0] == '-') { |
| 475 |
+ |
if (i < 4) |
| 476 |
+ |
return(MG_EARGC); |
| 477 |
+ |
if (i >= ac-1) |
| 478 |
+ |
break; |
| 479 |
+ |
if (!lastp) |
| 480 |
+ |
lastp = i-1; |
| 481 |
+ |
for (j = i+1; j < ac-1 && av[j+1][0] != '-'; j++) |
| 482 |
+ |
; |
| 483 |
+ |
if (j - i < 3) |
| 484 |
+ |
return(MG_EARGC); |
| 485 |
+ |
newav[i] = av[j]; /* connect hole loop */ |
| 486 |
+ |
} else |
| 487 |
+ |
newav[i] = av[i]; /* hole or perimeter vertex */ |
| 488 |
+ |
if (lastp) |
| 489 |
+ |
newav[i++] = av[lastp]; /* finish seam to outside */ |
| 490 |
+ |
newav[i] = NULL; |
| 491 |
+ |
return(mg_handle(MG_E_FACE, i, newav)); |
| 492 |
+ |
} |
| 493 |
+ |
|
| 494 |
+ |
|
| 495 |
|
static void |
| 496 |
|
make_axes(u, v, w) /* compute u and v given w (normalized) */ |
| 497 |
|
FVECT u, v, w; |
| 509 |
|
} |
| 510 |
|
|
| 511 |
|
|
| 512 |
< |
static int |
| 512 |
> |
int |
| 513 |
|
e_sph(ac, av) /* expand a sphere into cones */ |
| 514 |
|
int ac; |
| 515 |
|
char **av; |
| 561 |
|
} |
| 562 |
|
|
| 563 |
|
|
| 564 |
< |
static int |
| 564 |
> |
int |
| 565 |
|
e_torus(ac, av) /* expand a torus into cones */ |
| 566 |
|
int ac; |
| 567 |
|
char **av; |
| 653 |
|
} |
| 654 |
|
|
| 655 |
|
|
| 656 |
< |
static int |
| 656 |
> |
int |
| 657 |
|
e_cyl(ac, av) /* replace a cylinder with equivalent cone */ |
| 658 |
|
int ac; |
| 659 |
|
char **av; |
| 670 |
|
} |
| 671 |
|
|
| 672 |
|
|
| 673 |
< |
static int |
| 673 |
> |
int |
| 674 |
|
e_ring(ac, av) /* turn a ring into polygons */ |
| 675 |
|
int ac; |
| 676 |
|
char **av; |
| 768 |
|
} |
| 769 |
|
|
| 770 |
|
|
| 771 |
< |
static int |
| 771 |
> |
int |
| 772 |
|
e_cone(ac, av) /* turn a cone into polygons */ |
| 773 |
|
int ac; |
| 774 |
|
char **av; |
| 938 |
|
} |
| 939 |
|
|
| 940 |
|
|
| 941 |
< |
static int |
| 941 |
> |
int |
| 942 |
|
e_prism(ac, av) /* turn a prism into polygons */ |
| 943 |
|
int ac; |
| 944 |
|
char **av; |
| 1050 |
|
{ |
| 1051 |
|
static char xbuf[24], ybuf[24]; |
| 1052 |
|
static char *ccom[4] = {mg_ename[MG_E_CXY], xbuf, ybuf}; |
| 1024 |
– |
int rv; |
| 1053 |
|
|
| 1054 |
|
sprintf(xbuf, "%.4f", c_ccolor->cx); |
| 1055 |
|
sprintf(ybuf, "%.4f", c_ccolor->cy); |
| 1056 |
< |
if ((rv = mg_handle(MG_E_CXY, 3, ccom)) != MG_OK) |
| 1029 |
< |
return(rv); |
| 1030 |
< |
return(MG_OK); |
| 1056 |
> |
return(mg_handle(MG_E_CXY, 3, ccom)); |
| 1057 |
|
} |
| 1058 |
|
|
| 1059 |
|
|