51 |
|
int i, j, m, n; |
52 |
|
char stmp[256]; |
53 |
|
|
54 |
< |
varset("PI", PI); |
54 |
> |
varset("PI", ':', PI); |
55 |
|
funset("hermite", 5, l_hermite); |
56 |
|
funset("bezier", 5, l_bezier); |
57 |
|
funset("bspline", 5, l_bspline); |
273 |
|
#define v ((ax+2)%3) |
274 |
|
|
275 |
|
register int ax; |
276 |
< |
double eqnmat[4][4]; |
276 |
> |
MAT4 eqnmat; |
277 |
|
FVECT v1; |
278 |
|
register int i, j; |
279 |
|
|
327 |
|
*/ |
328 |
|
|
329 |
|
invmat(inverse,mat) |
330 |
< |
double mat[4][4],inverse[4][4]; |
330 |
> |
MAT4 inverse, mat; |
331 |
|
{ |
332 |
|
#define SWAP(a,b,t) (t=a,a=b,b=t) |
333 |
|
|
334 |
< |
double m4tmp[4][4]; |
334 |
> |
MAT4 m4tmp; |
335 |
|
register int i,j,k; |
336 |
|
register double temp; |
337 |
|
|
338 |
< |
bcopy((char *)mat, (char *)m4tmp, sizeof(m4tmp)); |
338 |
> |
copymat4(m4tmp, mat); |
339 |
|
/* set inverse to identity */ |
340 |
|
for (i = 0; i < 4; i++) |
341 |
|
for (j = 0; j < 4; j++) |