71 |
|
{ |
72 |
|
FILE *fp = (FILE *)ptr; |
73 |
|
BARYCCM bcm; |
74 |
< |
RREAL ncoor[3][3]; |
74 |
> |
FVECT coor[3]; |
75 |
|
int i; |
76 |
|
|
77 |
|
if (f->nv != 3) |
78 |
|
return(0); /* should never happen */ |
79 |
< |
if (sizeof(sc->vert[0].p) != sizeof(FVECT)) |
80 |
< |
error(INTERNAL, "Code error in trismooth()"); |
81 |
< |
if (comp_baryc(&bcm, sc->vert[f->v[0].vid].p, sc->vert[f->v[1].vid].p, |
82 |
< |
sc->vert[f->v[2].vid].p) < 0) |
79 |
> |
#ifdef SMLFLT |
80 |
> |
for (i = 3; i--; ) { |
81 |
> |
double *v = sc->vert[f->v[i].vid].p; |
82 |
> |
VCOPY(coor[i], v); |
83 |
> |
} |
84 |
> |
if (comp_baryc(&bcm, coor[0], coor[1], coor[2]) < 0) |
85 |
|
return(0); /* degenerate?? */ |
86 |
< |
|
86 |
> |
#else |
87 |
> |
if (comp_baryc(&bcm, sc->vert[f->v[0].vid].p, |
88 |
> |
sc->vert[f->v[1].vid].p, sc->vert[f->v[2].vid].p) < 0) |
89 |
> |
return(0); /* degenerate?? */ |
90 |
> |
#endif |
91 |
|
for (i = 3; i--; ) { /* assign BC normals */ |
92 |
|
float *tnrm = sc->norm[f->v[i].nid]; |
93 |
< |
ncoor[0][i] = tnrm[0]; |
94 |
< |
ncoor[1][i] = tnrm[1]; |
95 |
< |
ncoor[2][i] = tnrm[2]; |
93 |
> |
coor[0][i] = tnrm[0]; |
94 |
> |
coor[1][i] = tnrm[1]; |
95 |
> |
coor[2][i] = tnrm[2]; |
96 |
|
} /* print texture */ |
97 |
|
fprintf(fp, "\n%s texfunc %s\n4 dx dy dz %s\n0\n", |
98 |
|
sc->matname[f->mat], TEXNAME, TCALNAME); |
99 |
< |
fput_baryc(&bcm, ncoor, 3, fp); /* with BC normals */ |
99 |
> |
fput_baryc(&bcm, coor, 3, fp); /* with BC normals */ |
100 |
|
fprintf(fp, "\n%s polygon %s.%d\n0\n0\n9\n", |
101 |
|
TEXNAME, sc->grpname[f->grp], ++fcnt); |
102 |
|
for (i = 0; i < 3; i++) { /* then triangle */ |