| 58 | 
  | 
 | 
| 59 | 
  | 
typedef struct { | 
| 60 | 
  | 
        int  valid;     /* point is valid (vertex number) */ | 
| 61 | 
< | 
        int  nvalid;    /* normal is valid */ | 
| 61 | 
> | 
        int  nvalid;    /* normal is valid (normal number) */ | 
| 62 | 
  | 
        FVECT  p;       /* vertex position */ | 
| 63 | 
  | 
        FVECT  n;       /* average normal */ | 
| 64 | 
  | 
        RREAL  uv[2];   /* (u,v) position */ | 
| 65 | 
  | 
} POINT; | 
| 66 | 
  | 
 | 
| 67 | 
+ | 
int  nverts = 0;                /* vertex output count */ | 
| 68 | 
+ | 
int  nnorms = 0;                /* normal output count */ | 
| 69 | 
  | 
 | 
| 70 | 
  | 
void loaddata(char *file, int m, int n, int pointsize); | 
| 71 | 
  | 
double l_dataval(char *nam); | 
| 72 | 
  | 
void putobjrow(POINT *rp, int n); | 
| 73 | 
+ | 
void putobjvert(POINT *p); | 
| 74 | 
  | 
void putsquare(POINT *p0, POINT *p1, POINT *p2, POINT *p3); | 
| 75 | 
  | 
void comprow(double s, POINT *row, int siz); | 
| 76 | 
  | 
void compnorms(POINT *r0, POINT *r1, POINT *r2, int siz); | 
| 78 | 
  | 
 | 
| 79 | 
  | 
 | 
| 80 | 
  | 
int | 
| 81 | 
< | 
main(argc, argv) | 
| 79 | 
< | 
int  argc; | 
| 80 | 
< | 
char  *argv[]; | 
| 81 | 
> | 
main(int argc, char *argv[]) | 
| 82 | 
  | 
{ | 
| 83 | 
  | 
        POINT  *row0, *row1, *row2, *rp; | 
| 84 | 
  | 
        int  i, j, m, n; | 
| 85 | 
  | 
        char  stmp[256]; | 
| 86 | 
  | 
 | 
| 87 | 
+ | 
        esupport |= E_VARIABLE|E_FUNCTION|E_RCONST; | 
| 88 | 
+ | 
        esupport &= ~(E_OUTCHAN|E_INCHAN); | 
| 89 | 
  | 
        varset("PI", ':', PI); | 
| 90 | 
  | 
        funset("hermite", 5, ':', l_hermite); | 
| 91 | 
  | 
        funset("bezier", 5, ':', l_bezier); | 
| 97 | 
  | 
        for (i = 8; i < argc; i++) | 
| 98 | 
  | 
                if (!strcmp(argv[i], "-e")) | 
| 99 | 
  | 
                        scompile(argv[++i], NULL, 0); | 
| 100 | 
< | 
                else if (!strcmp(argv[i], "-f")) | 
| 101 | 
< | 
                        fcompile(argv[++i]); | 
| 102 | 
< | 
                else if (!strcmp(argv[i], "-s")) | 
| 100 | 
> | 
                else if (!strcmp(argv[i], "-f")) { | 
| 101 | 
> | 
                        char  *fpath = getpath(argv[++i], getrlibpath(), 0); | 
| 102 | 
> | 
                        if (fpath == NULL) { | 
| 103 | 
> | 
                                fprintf(stderr, "%s: cannot find file '%s'\n", | 
| 104 | 
> | 
                                                argv[0], argv[i]); | 
| 105 | 
> | 
                                quit(1); | 
| 106 | 
> | 
                        } | 
| 107 | 
> | 
                        fcompile(fpath); | 
| 108 | 
> | 
                } else if (!strcmp(argv[i], "-s")) | 
| 109 | 
  | 
                        smooth++; | 
| 110 | 
  | 
                else if (!strcmp(argv[i], "-o")) | 
| 111 | 
  | 
                        objout++; | 
| 114 | 
  | 
 | 
| 115 | 
  | 
        modname = argv[1]; | 
| 116 | 
  | 
        surfname = argv[2]; | 
| 117 | 
< | 
        m = atoi(argv[6]); | 
| 118 | 
< | 
        n = atoi(argv[7]); | 
| 117 | 
> | 
        m = eval(argv[6]) + .5; | 
| 118 | 
> | 
        n = eval(argv[7]) + .5; | 
| 119 | 
  | 
        if (m <= 0 || n <= 0) | 
| 120 | 
  | 
                goto userror; | 
| 121 | 
  | 
        if (!strcmp(argv[5], "-") || access(argv[5], 4) == 0) { /* file? */ | 
| 150 | 
  | 
                                                /* print header */ | 
| 151 | 
  | 
        fputs("# ", stdout); | 
| 152 | 
  | 
        printargs(argc, argv, stdout); | 
| 153 | 
< | 
        eclock = 0; | 
| 153 | 
> | 
        eclock = 1; | 
| 154 | 
  | 
                                                /* initialize */ | 
| 155 | 
  | 
        comprow(-1.0/m, row0, n); | 
| 156 | 
  | 
        comprow(0.0, row1, n); | 
| 158 | 
  | 
        compnorms(row0, row1, row2, n); | 
| 159 | 
  | 
        if (objout) { | 
| 160 | 
  | 
                printf("\nusemtl %s\n\n", modname); | 
| 161 | 
+ | 
                printf("o %s\n\n", surfname); | 
| 162 | 
  | 
                putobjrow(row1, n); | 
| 163 | 
  | 
        } | 
| 164 | 
  | 
                                                /* for each row */ | 
| 308 | 
  | 
        int  n | 
| 309 | 
  | 
) | 
| 310 | 
  | 
{ | 
| 311 | 
< | 
        static int      nverts = 0; | 
| 302 | 
< | 
        static int      nnorms = 0; | 
| 311 | 
> | 
        static FVECT  prevNorm; | 
| 312 | 
  | 
 | 
| 313 | 
  | 
        for ( ; n-- >= 0; rp++) { | 
| 314 | 
  | 
                if (!rp->valid) | 
| 315 | 
  | 
                        continue; | 
| 316 | 
  | 
                fputs("v ", stdout); | 
| 317 | 
  | 
                pvect(rp->p); | 
| 318 | 
< | 
                if (smooth && !ZEROVECT(rp->n)) { | 
| 318 | 
> | 
                rp->valid = ++nverts; | 
| 319 | 
> | 
                printf("\tvt %.9g %.9g\n", rp->uv[0], rp->uv[1]); | 
| 320 | 
> | 
                if (!smooth || ZEROVECT(rp->n)) | 
| 321 | 
> | 
                        rp->nvalid = 0; | 
| 322 | 
> | 
                else if (VABSEQ(rp->n, prevNorm)) | 
| 323 | 
> | 
                        rp->nvalid = nnorms; | 
| 324 | 
> | 
                else { | 
| 325 | 
  | 
                        printf("\tvn %.9g %.9g %.9g\n", | 
| 326 | 
  | 
                                        rp->n[0], rp->n[1], rp->n[2]); | 
| 327 | 
  | 
                        rp->nvalid = ++nnorms; | 
| 328 | 
< | 
                } else | 
| 329 | 
< | 
                        rp->nvalid = 0; | 
| 315 | 
< | 
                printf("\tvt %.9g %.9g\n", rp->uv[0], rp->uv[1]); | 
| 316 | 
< | 
                rp->valid = ++nverts; | 
| 328 | 
> | 
                        VCOPY(prevNorm, rp->n); | 
| 329 | 
> | 
                } | 
| 330 | 
  | 
        } | 
| 331 | 
  | 
} | 
| 332 | 
  | 
 | 
| 333 | 
  | 
 | 
| 334 | 
  | 
void | 
| 335 | 
+ | 
putobjvert(             /* put out OBJ vertex index triplet */ | 
| 336 | 
+ | 
        POINT *p | 
| 337 | 
+ | 
) | 
| 338 | 
+ | 
{ | 
| 339 | 
+ | 
        int     pti = p->valid ? p->valid-nverts-1 : 0; | 
| 340 | 
+ | 
        int     ni = p->nvalid ? p->nvalid-nnorms-1 : 0; | 
| 341 | 
+ | 
         | 
| 342 | 
+ | 
        printf(" %d/%d/%d", pti, pti, ni); | 
| 343 | 
+ | 
} | 
| 344 | 
+ | 
 | 
| 345 | 
+ | 
 | 
| 346 | 
+ | 
void | 
| 347 | 
  | 
putsquare(              /* put out a square */ | 
| 348 | 
  | 
        POINT *p0, | 
| 349 | 
  | 
        POINT *p1, | 
| 375 | 
  | 
                return; | 
| 376 | 
  | 
        if (objout) {                   /* output .OBJ faces */ | 
| 377 | 
  | 
                if (ok1 & ok2 && fdot(vc1,vc2) >= 1.0-FTINY*FTINY) { | 
| 378 | 
< | 
                        printf("f %d/%d/%d %d/%d/%d %d/%d/%d %d/%d/%d\n", | 
| 379 | 
< | 
                                        p0->valid, p0->valid, p0->nvalid, | 
| 380 | 
< | 
                                        p1->valid, p1->valid, p1->nvalid, | 
| 381 | 
< | 
                                        p3->valid, p3->valid, p3->nvalid, | 
| 357 | 
< | 
                                        p2->valid, p2->valid, p2->nvalid); | 
| 378 | 
> | 
                        putc('f', stdout); | 
| 379 | 
> | 
                        putobjvert(p0); putobjvert(p1); | 
| 380 | 
> | 
                        putobjvert(p3); putobjvert(p2); | 
| 381 | 
> | 
                        putc('\n', stdout); | 
| 382 | 
  | 
                        return; | 
| 383 | 
  | 
                } | 
| 384 | 
< | 
                if (ok1) | 
| 385 | 
< | 
                        printf("f %d/%d/%d %d/%d/%d %d/%d/%d\n", | 
| 386 | 
< | 
                                        p0->valid, p0->valid, p0->nvalid, | 
| 387 | 
< | 
                                        p1->valid, p1->valid, p1->nvalid, | 
| 388 | 
< | 
                                        p2->valid, p2->valid, p2->nvalid); | 
| 389 | 
< | 
                if (ok2) | 
| 390 | 
< | 
                        printf("f %d/%d/%d %d/%d/%d %d/%d/%d\n", | 
| 391 | 
< | 
                                        p2->valid, p2->valid, p2->nvalid, | 
| 392 | 
< | 
                                        p1->valid, p1->valid, p1->nvalid, | 
| 393 | 
< | 
                                        p3->valid, p3->valid, p3->nvalid); | 
| 384 | 
> | 
                if (ok1) { | 
| 385 | 
> | 
                        putc('f', stdout); | 
| 386 | 
> | 
                        putobjvert(p0); putobjvert(p1); putobjvert(p2); | 
| 387 | 
> | 
                        putc('\n', stdout); | 
| 388 | 
> | 
                } | 
| 389 | 
> | 
                if (ok2) { | 
| 390 | 
> | 
                        putc('f', stdout); | 
| 391 | 
> | 
                        putobjvert(p2); putobjvert(p1); putobjvert(p3); | 
| 392 | 
> | 
                        putc('\n', stdout); | 
| 393 | 
> | 
                } | 
| 394 | 
  | 
                return; | 
| 395 | 
  | 
        } | 
| 396 | 
  | 
                                        /* compute normal interpolation */ | 
| 515 | 
  | 
                                        /* compute row 1 normals */ | 
| 516 | 
  | 
        while (siz-- >= 0) { | 
| 517 | 
  | 
                if (!r1[0].valid) | 
| 518 | 
< | 
                        continue; | 
| 518 | 
> | 
                        goto skip; | 
| 519 | 
  | 
                if (!r0[0].valid) { | 
| 520 | 
  | 
                        if (!r2[0].valid) { | 
| 521 | 
  | 
                                r1[0].n[0] = r1[0].n[1] = r1[0].n[2] = 0.0; | 
| 522 | 
< | 
                                continue; | 
| 522 | 
> | 
                                goto skip; | 
| 523 | 
  | 
                        } | 
| 524 | 
  | 
                        fvsum(v1, r2[0].p, r1[0].p, -1.0); | 
| 525 | 
  | 
                } else if (!r2[0].valid) | 
| 529 | 
  | 
                if (!r1[-1].valid) { | 
| 530 | 
  | 
                        if (!r1[1].valid) { | 
| 531 | 
  | 
                                r1[0].n[0] = r1[0].n[1] = r1[0].n[2] = 0.0; | 
| 532 | 
< | 
                                continue; | 
| 532 | 
> | 
                                goto skip; | 
| 533 | 
  | 
                        } | 
| 534 | 
  | 
                        fvsum(v2, r1[1].p, r1[0].p, -1.0); | 
| 535 | 
  | 
                } else if (!r1[1].valid) | 
| 538 | 
  | 
                        fvsum(v2, r1[1].p, r1[-1].p, -1.0); | 
| 539 | 
  | 
                fcross(r1[0].n, v1, v2); | 
| 540 | 
  | 
                normalize(r1[0].n); | 
| 541 | 
+ | 
        skip: | 
| 542 | 
  | 
                r0++; r1++; r2++; | 
| 543 | 
  | 
        } | 
| 544 | 
  | 
} |