static void
init(struct disp_sample_table *dt, int len)
{
dt->len = len;
dt->table = rc_matrix_alloc(3, len);
init_interp(dt);
}
void surfit_init_variables(Tcl_Interp * iinterp) {
// 2d
init_interp(iinterp);
print_license();
log_open();
//init_all();
};
disp_t *
disp_sample_table_copy(const disp_t *src)
{
disp_t *res = disp_base_copy(src);
struct disp_sample_table *dt = &res->disp.sample_table;
if(dt->len > 0) {
rc_matrix_ref(dt->table);
init_interp(dt);
prepare_interp(dt);
}
return res;
}
int
disp_sample_table_read(lexer_t *l, disp_t *d_gen)
{
struct disp_sample_table *d = &d_gen->disp.sample_table;
d->len = 0;
int len;
if (lexer_integer(l, &len)) return 1;
d->table = rc_matrix_read(l, RC_MATRIX_TRANSPOSED);
if (!d->table) return 1;
d->len = len;
init_interp(d);
prepare_interp(d);
return 0;
}
static void
data_cleanup(ClientData clientData)
{
init_interp(NULL);
clear_data();
};
