42 |
|
int |
43 |
|
comp_baryc(bcm, v1, v2, v3) /* compute barycentric vectors */ |
44 |
|
register BARYCCM *bcm; |
45 |
< |
FLOAT *v1, *v2, *v3; |
45 |
> |
RREAL *v1, *v2, *v3; |
46 |
|
{ |
47 |
< |
FLOAT *vt; |
47 |
> |
RREAL *vt; |
48 |
|
FVECT va, vab, vcb; |
49 |
|
double d; |
50 |
|
int ax0, ax1; |
87 |
|
|
88 |
|
void |
89 |
|
eval_baryc(wt, p, bcm) /* evaluate barycentric weights at p */ |
90 |
< |
FLOAT wt[3]; |
90 |
> |
RREAL wt[3]; |
91 |
|
FVECT p; |
92 |
|
register BARYCCM *bcm; |
93 |
|
{ |
103 |
|
|
104 |
|
int |
105 |
|
get_baryc(wt, p, v1, v2, v3) /* compute barycentric weights at p */ |
106 |
< |
FLOAT wt[3]; |
106 |
> |
RREAL wt[3]; |
107 |
|
FVECT p; |
108 |
|
FVECT v1, v2, v3; |
109 |
|
{ |
119 |
|
#if 0 |
120 |
|
int |
121 |
|
get_baryc(wt, p, v1, v2, v3) /* compute barycentric weights at p */ |
122 |
< |
FLOAT wt[3]; |
122 |
> |
RREAL wt[3]; |
123 |
|
FVECT p; |
124 |
|
FVECT v1, v2, v3; |
125 |
|
{ |
147 |
|
void |
148 |
|
put_baryc(bcm, com, n) /* put barycentric coord. vectors */ |
149 |
|
register BARYCCM *bcm; |
150 |
< |
register FLOAT com[][3]; |
150 |
> |
register RREAL com[][3]; |
151 |
|
int n; |
152 |
|
{ |
153 |
|
double a, b; |