| 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; |