| 15 |
|
#include <stdio.h> |
| 16 |
|
#include <string.h> |
| 17 |
|
#include <math.h> |
| 18 |
+ |
#include "calcomp.h" |
| 19 |
|
|
| 20 |
|
#define ZNAME "Z`SYS`" /* z function name */ |
| 21 |
|
#define RNAME "R`SYS`" /* r function name */ |
| 29 |
|
#define UP 04 |
| 30 |
|
#define DOWN 010 |
| 31 |
|
|
| 31 |
– |
double funvalue(), l_hermite(), l_bezier(), l_bspline(), argument(); |
| 32 |
– |
|
| 32 |
|
void quit(), eputs(), wputs(); |
| 33 |
|
|
| 34 |
|
|
| 83 |
|
|
| 84 |
|
|
| 85 |
|
double |
| 86 |
< |
l_hermite() |
| 86 |
> |
l_hermite(char *nm) |
| 87 |
|
{ |
| 88 |
|
double t; |
| 89 |
|
|
| 96 |
|
|
| 97 |
|
|
| 98 |
|
double |
| 99 |
< |
l_bezier() |
| 99 |
> |
l_bezier(char *nm) |
| 100 |
|
{ |
| 101 |
|
double t; |
| 102 |
|
|
| 109 |
|
|
| 110 |
|
|
| 111 |
|
double |
| 112 |
< |
l_bspline() |
| 112 |
> |
l_bspline(char *nm) |
| 113 |
|
{ |
| 114 |
|
double t; |
| 115 |
|
|
| 125 |
|
int argc; |
| 126 |
|
char *argv[]; |
| 127 |
|
{ |
| 129 |
– |
extern long eclock; |
| 128 |
|
char stmp[256]; |
| 129 |
|
char *modname; |
| 130 |
|
int smooth = 0; |