16 |
|
#include <string.h> |
17 |
|
#include <math.h> |
18 |
|
|
19 |
+ |
#include "rterror.h" |
20 |
+ |
#include "calcomp.h" |
21 |
+ |
|
22 |
|
#define ZNAME "Z`SYS`" /* z function name */ |
23 |
|
#define RNAME "R`SYS`" /* r function name */ |
24 |
|
|
31 |
|
#define UP 04 |
32 |
|
#define DOWN 010 |
33 |
|
|
31 |
– |
double funvalue(), l_hermite(), l_bezier(), l_bspline(), argument(); |
34 |
|
|
35 |
< |
void quit(), eputs(), wputs(); |
34 |
< |
|
35 |
< |
|
35 |
> |
void |
36 |
|
computen(nzp, nrp, z0, r0, z1, r1) /* compute normal */ |
37 |
|
double *nzp, *nrp, z0, r0, z1, r1; |
38 |
|
{ |
70 |
|
} |
71 |
|
|
72 |
|
|
73 |
+ |
void |
74 |
|
printhead(ac, av) /* print command header */ |
75 |
|
register int ac; |
76 |
|
register char **av; |
85 |
|
|
86 |
|
|
87 |
|
double |
88 |
< |
l_hermite() |
88 |
> |
l_hermite(char *nm) |
89 |
|
{ |
90 |
|
double t; |
91 |
|
|
98 |
|
|
99 |
|
|
100 |
|
double |
101 |
< |
l_bezier() |
101 |
> |
l_bezier(char *nm) |
102 |
|
{ |
103 |
|
double t; |
104 |
|
|
111 |
|
|
112 |
|
|
113 |
|
double |
114 |
< |
l_bspline() |
114 |
> |
l_bspline(char *nm) |
115 |
|
{ |
116 |
|
double t; |
117 |
|
|
123 |
|
} |
124 |
|
|
125 |
|
|
126 |
+ |
int |
127 |
|
main(argc, argv) |
128 |
|
int argc; |
129 |
|
char *argv[]; |
130 |
|
{ |
129 |
– |
extern long eclock; |
131 |
|
char stmp[256]; |
132 |
|
char *modname; |
133 |
|
int smooth = 0; |
239 |
|
lastnz = nz; lastnr = nr; |
240 |
|
nz = nextnz; nr = nextnr; |
241 |
|
} |
242 |
< |
quit(0); |
242 |
> |
return 0; |
243 |
|
|
244 |
|
userror: |
245 |
|
fprintf(stderr, |
246 |
|
"Usage: %s material name z(t) r(t) nseg [-e expr] [-f file] [-s]\n", |
247 |
|
argv[0]); |
248 |
< |
quit(1); |
248 |
> |
return 1; |
249 |
|
} |
250 |
|
|
251 |
|
|