| 18 |
|
|
| 19 |
|
#include "standard.h" |
| 20 |
|
|
| 21 |
< |
#define XNAME "X_" /* x function name */ |
| 22 |
< |
#define YNAME "Y_" /* y function name */ |
| 23 |
< |
#define ZNAME "Z_" /* z function name */ |
| 21 |
> |
#define XNAME "X`SYS`" /* x function name */ |
| 22 |
> |
#define YNAME "Y`SYS`" /* y function name */ |
| 23 |
> |
#define ZNAME "Z`SYS`" /* z function name */ |
| 24 |
|
|
| 25 |
|
#define ABS(x) ((x)>=0 ? (x) : -(x)) |
| 26 |
|
|
| 51 |
|
int i, j, m, n; |
| 52 |
|
char stmp[256]; |
| 53 |
|
|
| 54 |
< |
varset("PI", PI); |
| 55 |
< |
funset("hermite", 5, l_hermite); |
| 56 |
< |
funset("bezier", 5, l_bezier); |
| 57 |
< |
funset("bspline", 5, l_bspline); |
| 54 |
> |
varset("PI", ':', PI); |
| 55 |
> |
funset("hermite", 5, ':', l_hermite); |
| 56 |
> |
funset("bezier", 5, ':', l_bezier); |
| 57 |
> |
funset("bspline", 5, ':', l_bspline); |
| 58 |
|
|
| 59 |
|
if (argc < 8) |
| 60 |
|
goto userror; |
| 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++) |
