| 1 |
– |
/* Copyright (c) 1996 Regents of the University of California */ |
| 2 |
– |
|
| 1 |
|
#ifndef lint |
| 2 |
< |
static char SCCSid[] = "$SunId$ LBL"; |
| 2 |
> |
static const char RCSid[] = "$Id$"; |
| 3 |
|
#endif |
| 6 |
– |
|
| 4 |
|
/* |
| 5 |
|
* Parse an MGF file, converting or discarding unsupported entities |
| 6 |
|
*/ |
| 7 |
|
|
| 8 |
|
#include <stdio.h> |
| 9 |
+ |
#include <stdlib.h> |
| 10 |
|
#include <math.h> |
| 11 |
|
#include <ctype.h> |
| 12 |
|
#include <string.h> |
| 65 |
|
e_cmix(), /* color mixtures */ |
| 66 |
|
e_cspec(); /* color spectra */ |
| 67 |
|
|
| 70 |
– |
int e_include(), /* include file */ |
| 71 |
– |
e_sph(), /* sphere */ |
| 72 |
– |
e_cyl(), /* cylinder */ |
| 73 |
– |
e_cone(), /* cone */ |
| 74 |
– |
e_prism(), /* prism */ |
| 75 |
– |
e_ring(), /* ring */ |
| 76 |
– |
e_torus(); /* torus */ |
| 77 |
– |
|
| 68 |
|
/* alternate handler support functions */ |
| 69 |
|
|
| 70 |
|
static int (*e_supp[MG_NENTITIES])(); |
| 114 |
|
ineed |= 1L<<MG_E_POINT|1L<<MG_E_NORMAL|1L<<MG_E_VERTEX; |
| 115 |
|
} else |
| 116 |
|
uneed |= 1L<<MG_E_POINT|1L<<MG_E_NORMAL|1L<<MG_E_VERTEX|1L<<MG_E_XF; |
| 117 |
+ |
if (mg_ehand[MG_E_FACE] == NULL) |
| 118 |
+ |
mg_ehand[MG_E_FACE] = mg_ehand[MG_E_FACEH]; |
| 119 |
+ |
else if (mg_ehand[MG_E_FACEH] == NULL) |
| 120 |
+ |
mg_ehand[MG_E_FACEH] = e_faceh; |
| 121 |
|
if (mg_ehand[MG_E_COLOR] != NULL) { |
| 122 |
|
if (mg_ehand[MG_E_CMIX] == NULL) { |
| 123 |
|
mg_ehand[MG_E_CMIX] = e_cmix; |
| 235 |
|
return(MG_OK); |
| 236 |
|
} |
| 237 |
|
/* get name relative to this context */ |
| 238 |
< |
if (mg_file != NULL && (cp = strrchr(mg_file->fname, '/')) != NULL) { |
| 238 |
> |
if (fn[0] != '/' && mg_file != NULL && |
| 239 |
> |
(cp = strrchr(mg_file->fname, '/')) != NULL) { |
| 240 |
|
strcpy(ctx->fname, mg_file->fname); |
| 241 |
|
strcpy(ctx->fname+(cp-mg_file->fname+1), fn); |
| 242 |
|
} else |
| 265 |
|
mg_fgetpos(pos) /* get current position in input file */ |
| 266 |
|
register MG_FPOS *pos; |
| 267 |
|
{ |
| 273 |
– |
extern long ftell(); |
| 274 |
– |
|
| 268 |
|
pos->fid = mg_file->fid; |
| 269 |
|
pos->lineno = mg_file->lineno; |
| 270 |
|
pos->offset = ftell(mg_file->fp); |
| 312 |
|
{ |
| 313 |
|
char abuf[MG_MAXLINE]; |
| 314 |
|
char *argv[MG_MAXARGC]; |
| 322 |
– |
int en; |
| 315 |
|
register char *cp, *cp2, **ap; |
| 316 |
|
/* copy line, removing escape chars */ |
| 317 |
|
cp = abuf; cp2 = mg_file->inpline; |
| 456 |
|
} |
| 457 |
|
|
| 458 |
|
|
| 459 |
+ |
int |
| 460 |
+ |
e_faceh(ac, av) /* replace face+holes with single contour */ |
| 461 |
+ |
int ac; |
| 462 |
+ |
char **av; |
| 463 |
+ |
{ |
| 464 |
+ |
char *newav[MG_MAXARGC]; |
| 465 |
+ |
int lastp = 0; |
| 466 |
+ |
register int i, j; |
| 467 |
+ |
|
| 468 |
+ |
newav[0] = mg_ename[MG_E_FACE]; |
| 469 |
+ |
for (i = 1; i < ac; i++) |
| 470 |
+ |
if (av[i][0] == '-') { |
| 471 |
+ |
if (i < 4) |
| 472 |
+ |
return(MG_EARGC); |
| 473 |
+ |
if (i >= ac-1) |
| 474 |
+ |
break; |
| 475 |
+ |
if (!lastp) |
| 476 |
+ |
lastp = i-1; |
| 477 |
+ |
for (j = i+1; j < ac-1 && av[j+1][0] != '-'; j++) |
| 478 |
+ |
; |
| 479 |
+ |
if (j - i < 3) |
| 480 |
+ |
return(MG_EARGC); |
| 481 |
+ |
newav[i] = av[j]; /* connect hole loop */ |
| 482 |
+ |
} else |
| 483 |
+ |
newav[i] = av[i]; /* hole or perimeter vertex */ |
| 484 |
+ |
if (lastp) |
| 485 |
+ |
newav[i++] = av[lastp]; /* finish seam to outside */ |
| 486 |
+ |
newav[i] = NULL; |
| 487 |
+ |
return(mg_handle(MG_E_FACE, i, newav)); |
| 488 |
+ |
} |
| 489 |
+ |
|
| 490 |
+ |
|
| 491 |
|
static void |
| 492 |
|
make_axes(u, v, w) /* compute u and v given w (normalized) */ |
| 493 |
|
FVECT u, v, w; |
| 806 |
|
if (rad2 == 0.) |
| 807 |
|
return(MG_EILL); |
| 808 |
|
} else if (rad2 != 0.) { |
| 809 |
< |
if (rad1 < 0. ^ rad2 < 0.) |
| 809 |
> |
if ((rad1 < 0.) ^ (rad2 < 0.)) |
| 810 |
|
return(MG_EILL); |
| 811 |
|
} else { /* swap */ |
| 812 |
|
C_VERTEX *cv; |
