int
_ged_do_tra(struct ged *gedp,
char coord,
vect_t tvec,
int (*func)())
{
point_t delta;
point_t work;
point_t vc, nvc;
if (func != (int (*)())0)
return (*func)(gedp, coord, tvec);
switch (coord) {
case 'm':
VSCALE(delta, tvec, -gedp->ged_wdbp->dbip->dbi_base2local);
MAT_DELTAS_GET_NEG(vc, gedp->ged_gvp->gv_center);
break;
case 'v':
default:
VSCALE(tvec, tvec, -2.0*gedp->ged_wdbp->dbip->dbi_base2local*gedp->ged_gvp->gv_isize);
MAT4X3PNT(work, gedp->ged_gvp->gv_view2model, tvec);
MAT_DELTAS_GET_NEG(vc, gedp->ged_gvp->gv_center);
VSUB2(delta, work, vc);
break;
}
VSUB2(nvc, vc, delta);
MAT_DELTAS_VEC_NEG(gedp->ged_gvp->gv_center, nvc);
ged_view_update(gedp->ged_gvp);
return GED_OK;
}
int
common_dm(int argc, const char *argv[])
{
int status;
struct bu_vls vls = BU_VLS_INIT_ZERO;
if (dbip == DBI_NULL)
return TCL_OK;
if (BU_STR_EQUAL(argv[0], "idle")) {
/* redraw after scaling */
if (gedp && gedp->ged_gvp &&
gedp->ged_gvp->gv_adaptive_plot &&
gedp->ged_gvp->gv_redraw_on_zoom &&
(am_mode == AMM_SCALE ||
am_mode == AMM_CON_SCALE_X ||
am_mode == AMM_CON_SCALE_Y ||
am_mode == AMM_CON_SCALE_Z))
{
if (redraw_visible_objects() == TCL_ERROR) {
return TCL_ERROR;
}
}
am_mode = AMM_IDLE;
scroll_active = 0;
if (rubber_band->rb_active) {
rubber_band->rb_active = 0;
if (mged_variables->mv_mouse_behavior == 'p')
rb_set_dirty_flag();
else if (mged_variables->mv_mouse_behavior == 'r')
rt_rect_area();
else if (mged_variables->mv_mouse_behavior == 'z')
zoom_rect_area();
}
return TCL_OK;
}
if (BU_STR_EQUAL(argv[0], "m")) {
int x;
int y;
int old_orig_gui;
int stolen = 0;
fastf_t fx, fy;
if (argc < 3) {
Tcl_AppendResult(INTERP, "dm m: need more parameters\n",
"dm m xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
old_orig_gui = mged_variables->mv_orig_gui;
fx = dm_Xx2Normal(dmp, atoi(argv[1]));
fy = dm_Xy2Normal(dmp, atoi(argv[2]), 0);
x = fx * GED_MAX;
y = fy * GED_MAX;
if (mged_variables->mv_faceplate &&
mged_variables->mv_orig_gui) {
#define MENUXLIM (-1250)
if (x >= MENUXLIM && scroll_select(x, y, 0)) {
stolen = 1;
goto end;
}
if (x < MENUXLIM && mmenu_select(y, 0)) {
stolen = 1;
goto end;
}
}
mged_variables->mv_orig_gui = 0;
fy = dm_Xy2Normal(dmp, atoi(argv[2]), 1);
y = fy * GED_MAX;
end:
if (mged_variables->mv_mouse_behavior == 'q' && !stolen) {
point_t view_pt;
point_t model_pt;
if (grid_state->gr_snap)
snap_to_grid(&fx, &fy);
if (mged_variables->mv_perspective_mode)
VSET(view_pt, fx, fy, 0.0);
else
VSET(view_pt, fx, fy, 1.0);
MAT4X3PNT(model_pt, view_state->vs_gvp->gv_view2model, view_pt);
VSCALE(model_pt, model_pt, base2local);
if (dmp->dm_zclip)
bu_vls_printf(&vls, "qray_nirt %lf %lf %lf",
model_pt[X], model_pt[Y], model_pt[Z]);
else
bu_vls_printf(&vls, "qray_nirt -b %lf %lf %lf",
model_pt[X], model_pt[Y], model_pt[Z]);
} else if ((mged_variables->mv_mouse_behavior == 'p' ||
mged_variables->mv_mouse_behavior == 'r' ||
mged_variables->mv_mouse_behavior == 'z') && !stolen) {
if (grid_state->gr_snap)
snap_to_grid(&fx, &fy);
rubber_band->rb_active = 1;
rubber_band->rb_x = fx;
rubber_band->rb_y = fy;
rubber_band->rb_width = 0.0;
rubber_band->rb_height = 0.0;
rect_view2image();
rb_set_dirty_flag();
} else if (mged_variables->mv_mouse_behavior == 's' && !stolen) {
#if 0
if (grid_state->gr_snap) {
snap_to_grid(&fx, &fy);
x = fx * GED_MAX;
y = fy * GED_MAX;
}
#endif
bu_vls_printf(&vls, "mouse_solid_edit_select %d %d", x, y);
} else if (mged_variables->mv_mouse_behavior == 'm' && !stolen) {
#if 0
if (grid_state->gr_snap) {
snap_to_grid(&fx, &fy);
x = fx * GED_MAX;
y = fy * GED_MAX;
}
#endif
bu_vls_printf(&vls, "mouse_matrix_edit_select %d %d", x, y);
} else if (mged_variables->mv_mouse_behavior == 'c' && !stolen) {
#if 0
if (grid_state->gr_snap) {
snap_to_grid(&fx, &fy);
x = fx * GED_MAX;
y = fy * GED_MAX;
}
#endif
bu_vls_printf(&vls, "mouse_comb_edit_select %d %d", x, y);
} else if (mged_variables->mv_mouse_behavior == 'o' && !stolen) {
#if 0
if (grid_state->gr_snap) {
snap_to_grid(&fx, &fy);
x = fx * GED_MAX;
y = fy * GED_MAX;
}
#endif
bu_vls_printf(&vls, "mouse_rt_obj_select %d %d", x, y);
} else if (adc_state->adc_draw && mged_variables->mv_transform == 'a' && !stolen) {
point_t model_pt;
point_t view_pt;
if (grid_state->gr_snap)
snap_to_grid(&fx, &fy);
VSET(view_pt, fx, fy, 1.0);
MAT4X3PNT(model_pt, view_state->vs_gvp->gv_view2model, view_pt);
VSCALE(model_pt, model_pt, base2local);
bu_vls_printf(&vls, "adc xyz %lf %lf %lf\n", model_pt[X], model_pt[Y], model_pt[Z]);
} else if (grid_state->gr_snap && !stolen &&
SEDIT_TRAN && mged_variables->mv_transform == 'e') {
point_t view_pt;
point_t model_pt;
snap_to_grid(&fx, &fy);
MAT4X3PNT(view_pt, view_state->vs_gvp->gv_model2view, curr_e_axes_pos);
view_pt[X] = fx;
view_pt[Y] = fy;
MAT4X3PNT(model_pt, view_state->vs_gvp->gv_view2model, view_pt);
VSCALE(model_pt, model_pt, base2local);
bu_vls_printf(&vls, "p %lf %lf %lf", model_pt[X], model_pt[Y], model_pt[Z]);
} else if (grid_state->gr_snap && !stolen &&
OEDIT_TRAN && mged_variables->mv_transform == 'e') {
point_t view_pt;
point_t model_pt;
snap_to_grid(&fx, &fy);
MAT4X3PNT(view_pt, view_state->vs_gvp->gv_model2view, curr_e_axes_pos);
view_pt[X] = fx;
view_pt[Y] = fy;
MAT4X3PNT(model_pt, view_state->vs_gvp->gv_view2model, view_pt);
VSCALE(model_pt, model_pt, base2local);
bu_vls_printf(&vls, "translate %lf %lf %lf", model_pt[X], model_pt[Y], model_pt[Z]);
} else if (grid_state->gr_snap && !stolen &&
STATE != ST_S_PICK && STATE != ST_O_PICK &&
STATE != ST_O_PATH && !SEDIT_PICK && !EDIT_SCALE) {
point_t view_pt;
point_t model_pt;
point_t vcenter;
snap_to_grid(&fx, &fy);
MAT_DELTAS_GET_NEG(vcenter, view_state->vs_gvp->gv_center);
MAT4X3PNT(view_pt, view_state->vs_gvp->gv_model2view, vcenter);
view_pt[X] = fx;
view_pt[Y] = fy;
MAT4X3PNT(model_pt, view_state->vs_gvp->gv_view2model, view_pt);
VSCALE(model_pt, model_pt, base2local);
bu_vls_printf(&vls, "center %lf %lf %lf", model_pt[X], model_pt[Y], model_pt[Z]);
} else
bu_vls_printf(&vls, "M 1 %d %d\n", x, y);
status = Tcl_Eval(INTERP, bu_vls_addr(&vls));
mged_variables->mv_orig_gui = old_orig_gui;
bu_vls_free(&vls);
return status;
}
if (BU_STR_EQUAL(argv[0], "am")) {
if (argc < 4) {
Tcl_AppendResult(INTERP, "dm am: need more parameters\n",
"dm am <r|t|s> xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
dml_omx = atoi(argv[2]);
dml_omy = atoi(argv[3]);
switch (*argv[1]) {
case 'r':
am_mode = AMM_ROT;
break;
case 't':
am_mode = AMM_TRAN;
if (grid_state->gr_snap) {
int save_edflag;
if ((STATE == ST_S_EDIT || STATE == ST_O_EDIT) &&
mged_variables->mv_transform == 'e') {
if (STATE == ST_S_EDIT) {
save_edflag = es_edflag;
if (!SEDIT_TRAN)
es_edflag = STRANS;
} else {
save_edflag = edobj;
edobj = BE_O_XY;
}
snap_keypoint_to_grid();
if (STATE == ST_S_EDIT)
es_edflag = save_edflag;
else
edobj = save_edflag;
} else
snap_view_center_to_grid();
}
break;
case 's':
if (STATE == ST_S_EDIT && mged_variables->mv_transform == 'e' &&
ZERO(acc_sc_sol))
acc_sc_sol = 1.0;
else if (STATE == ST_O_EDIT && mged_variables->mv_transform == 'e') {
edit_absolute_scale = acc_sc_obj - 1.0;
if (edit_absolute_scale > 0.0)
edit_absolute_scale /= 3.0;
}
am_mode = AMM_SCALE;
break;
default:
Tcl_AppendResult(INTERP, "dm am: need more parameters\n",
"dm am <r|t|s> xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
return TCL_OK;
}
if (BU_STR_EQUAL(argv[0], "adc")) {
fastf_t fx, fy;
fastf_t td; /* tick distance */
if (argc < 4) {
Tcl_AppendResult(INTERP, "dm adc: need more parameters\n",
"dm adc 1|2|t|d xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
dml_omx = atoi(argv[2]);
dml_omy = atoi(argv[3]);
switch (*argv[1]) {
case '1':
fx = dm_Xx2Normal(dmp, dml_omx) * GED_MAX - adc_state->adc_dv_x;
fy = dm_Xy2Normal(dmp, dml_omy, 1) * GED_MAX - adc_state->adc_dv_y;
bu_vls_printf(&vls, "adc a1 %lf\n", RAD2DEG*atan2(fy, fx));
Tcl_Eval(INTERP, bu_vls_addr(&vls));
bu_vls_free(&vls);
am_mode = AMM_ADC_ANG1;
break;
case '2':
fx = dm_Xx2Normal(dmp, dml_omx) * GED_MAX - adc_state->adc_dv_x;
fy = dm_Xy2Normal(dmp, dml_omy, 1) * GED_MAX - adc_state->adc_dv_y;
bu_vls_printf(&vls, "adc a2 %lf\n", RAD2DEG*atan2(fy, fx));
Tcl_Eval(INTERP, bu_vls_addr(&vls));
bu_vls_free(&vls);
am_mode = AMM_ADC_ANG2;
break;
case 't':
{
point_t model_pt;
point_t view_pt;
VSET(view_pt, dm_Xx2Normal(dmp, dml_omx), dm_Xy2Normal(dmp, dml_omy, 1), 0.0);
if (grid_state->gr_snap)
snap_to_grid(&view_pt[X], &view_pt[Y]);
MAT4X3PNT(model_pt, view_state->vs_gvp->gv_view2model, view_pt);
VSCALE(model_pt, model_pt, base2local);
bu_vls_printf(&vls, "adc xyz %lf %lf %lf\n", model_pt[X], model_pt[Y], model_pt[Z]);
Tcl_Eval(INTERP, bu_vls_addr(&vls));
bu_vls_free(&vls);
am_mode = AMM_ADC_TRAN;
}
break;
case 'd':
fx = (dm_Xx2Normal(dmp, dml_omx) * GED_MAX -
adc_state->adc_dv_x) * view_state->vs_gvp->gv_scale * base2local * INV_GED;
fy = (dm_Xy2Normal(dmp, dml_omy, 1) * GED_MAX -
adc_state->adc_dv_y) * view_state->vs_gvp->gv_scale * base2local * INV_GED;
td = sqrt(fx * fx + fy * fy);
bu_vls_printf(&vls, "adc dst %lf\n", td);
Tcl_Eval(INTERP, bu_vls_addr(&vls));
bu_vls_free(&vls);
am_mode = AMM_ADC_DIST;
break;
default:
Tcl_AppendResult(INTERP, "dm adc: unrecognized parameter - ", argv[1],
"\ndm adc 1|2|t|d xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
return TCL_OK;
}
if (BU_STR_EQUAL(argv[0], "con")) {
if (argc < 5) {
Tcl_AppendResult(INTERP, "dm con: need more parameters\n",
"dm con r|t|s x|y|z xpos ypos\n",
"dm con a x|y|1|2|d xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
dml_omx = atoi(argv[3]);
dml_omy = atoi(argv[4]);
switch (*argv[1]) {
case 'a':
switch (*argv[2]) {
case 'x':
am_mode = AMM_CON_XADC;
break;
case 'y':
am_mode = AMM_CON_YADC;
break;
case '1':
am_mode = AMM_CON_ANG1;
break;
case '2':
am_mode = AMM_CON_ANG2;
break;
case 'd':
am_mode = AMM_CON_DIST;
break;
default:
Tcl_AppendResult(INTERP, "dm con: unrecognized parameter - ", argv[2],
"\ndm con a x|y|1|2|d xpos ypos\n", (char *)NULL);
}
break;
case 'r':
switch (*argv[2]) {
case 'x':
am_mode = AMM_CON_ROT_X;
break;
case 'y':
am_mode = AMM_CON_ROT_Y;
break;
case 'z':
am_mode = AMM_CON_ROT_Z;
break;
default:
Tcl_AppendResult(INTERP, "dm con: unrecognized parameter - ", argv[2],
"\ndm con r|t|s x|y|z xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
break;
case 't':
switch (*argv[2]) {
case 'x':
am_mode = AMM_CON_TRAN_X;
break;
case 'y':
am_mode = AMM_CON_TRAN_Y;
break;
case 'z':
am_mode = AMM_CON_TRAN_Z;
break;
default:
Tcl_AppendResult(INTERP, "dm con: unrecognized parameter - ", argv[2],
"\ndm con r|t|s x|y|z xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
break;
case 's':
switch (*argv[2]) {
case 'x':
if (STATE == ST_S_EDIT && mged_variables->mv_transform == 'e' &&
ZERO(acc_sc_sol))
acc_sc_sol = 1.0;
else if (STATE == ST_O_EDIT && mged_variables->mv_transform == 'e') {
edit_absolute_scale = acc_sc[0] - 1.0;
if (edit_absolute_scale > 0.0)
edit_absolute_scale /= 3.0;
}
am_mode = AMM_CON_SCALE_X;
break;
case 'y':
if (STATE == ST_S_EDIT && mged_variables->mv_transform == 'e' &&
ZERO(acc_sc_sol))
acc_sc_sol = 1.0;
else if (STATE == ST_O_EDIT && mged_variables->mv_transform == 'e') {
edit_absolute_scale = acc_sc[1] - 1.0;
if (edit_absolute_scale > 0.0)
edit_absolute_scale /= 3.0;
}
am_mode = AMM_CON_SCALE_Y;
break;
case 'z':
if (STATE == ST_S_EDIT && mged_variables->mv_transform == 'e' &&
ZERO(acc_sc_sol))
acc_sc_sol = 1.0;
else if (STATE == ST_O_EDIT && mged_variables->mv_transform == 'e') {
edit_absolute_scale = acc_sc[2] - 1.0;
if (edit_absolute_scale > 0.0)
edit_absolute_scale /= 3.0;
}
am_mode = AMM_CON_SCALE_Z;
break;
default:
Tcl_AppendResult(INTERP, "dm con: unrecognized parameter - ", argv[2],
"\ndm con r|t|s x|y|z xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
break;
default:
Tcl_AppendResult(INTERP, "dm con: unrecognized parameter - ", argv[1],
"\ndm con r|t|s x|y|z xpos ypos\n", (char *)NULL);
return TCL_ERROR;
}
return TCL_OK;
}
if (BU_STR_EQUAL(argv[0], "size")) {
int width, height;
/* get the window size */
if (argc == 1) {
bu_vls_printf(&vls, "%d %d", dmp->dm_width, dmp->dm_height);
Tcl_AppendResult(INTERP, bu_vls_addr(&vls), (char *)NULL);
bu_vls_free(&vls);
return TCL_OK;
}
/* set the window size */
if (argc == 3) {
width = atoi(argv[1]);
height = atoi(argv[2]);
dmp->dm_width = width;
dmp->dm_height = height;
#if defined(DM_X) || defined(DM_TK) || defined(DM_OGL) || defined(DM_WGL)
# if 0
Tk_ResizeWindow(((struct dm_xvars *)dmp->dm_vars.pub_vars)->xtkwin, width, height);
# else
#if defined(HAVE_TK)
Tk_GeometryRequest(((struct dm_xvars *)dmp->dm_vars.pub_vars)->xtkwin, width, height);
#endif
# endif
#endif
return TCL_OK;
}
Tcl_AppendResult(INTERP, "Usage: dm size [width height]\n", (char *)NULL);
return TCL_ERROR;
}
#if defined(DM_X) || defined(DM_TK) || defined(DM_OGL) || defined(DM_WGL)
if (BU_STR_EQUAL(argv[0], "getx")) {
if (argc == 1) {
struct bu_vls tmp_vls = BU_VLS_INIT_ZERO;
/* Bare set command, print out current settings */
bu_vls_struct_print2(&tmp_vls, "dm internal X variables", dm_xvars_vparse,
(const char *)dmp->dm_vars.pub_vars);
Tcl_AppendResult(INTERP, bu_vls_addr(&tmp_vls), (char *)NULL);
bu_vls_free(&tmp_vls);
} else if (argc == 2) {
bu_vls_struct_item_named(&vls, dm_xvars_vparse, argv[1], (const char *)dmp->dm_vars.pub_vars, COMMA);
Tcl_AppendResult(INTERP, bu_vls_addr(&vls), (char *)NULL);
bu_vls_free(&vls);
}
return TCL_OK;
}
#endif
if (BU_STR_EQUAL(argv[0], "bg")) {
int r, g, b;
if (argc != 1 && argc != 4) {
bu_vls_printf(&vls, "Usage: dm bg [r g b]");
Tcl_AppendResult(INTERP, bu_vls_addr(&vls), (char *)NULL);
bu_vls_free(&vls);
return TCL_ERROR;
}
/* return background color of current display manager */
if (argc == 1) {
bu_vls_printf(&vls, "%d %d %d",
dmp->dm_bg[0],
dmp->dm_bg[1],
dmp->dm_bg[2]);
Tcl_AppendResult(INTERP, bu_vls_addr(&vls), (char *)NULL);
bu_vls_free(&vls);
return TCL_OK;
}
if (sscanf(argv[1], "%d", &r) != 1 ||
sscanf(argv[2], "%d", &g) != 1 ||
sscanf(argv[3], "%d", &b) != 1) {
bu_vls_printf(&vls, "Usage: dm bg r g b");
Tcl_AppendResult(INTERP, bu_vls_addr(&vls), (char *)NULL);
bu_vls_free(&vls);
return TCL_ERROR;
}
dirty = 1;
return DM_SET_BGCOLOR(dmp, r, g, b);
}
Tcl_AppendResult(INTERP, "dm: bad command - ", argv[0], "\n", (char *)NULL);
return TCL_ERROR;
}
/*
* Initialize mged, configure the path, set up the tcl interpreter.
*/
void
mged_setup(Tcl_Interp **interpreter)
{
int try_auto_path = 0;
int init_tcl = 1;
int init_itcl = 1;
struct bu_vls str = BU_VLS_INIT_ZERO;
const char *name = bu_argv0_full_path();
/* locate our run-time binary (must be called before Tcl_CreateInterp()) */
if (name) {
Tcl_FindExecutable(name);
} else {
Tcl_FindExecutable("mged");
}
if (!interpreter ) {
bu_log("mged_setup Error - interpreter is NULL!\n");
return;
}
if (*interpreter != NULL)
Tcl_DeleteInterp(*interpreter);
/* Create the interpreter */
*interpreter = Tcl_CreateInterp();
/* a two-pass init loop. the first pass just tries default init
* routines while the second calls tclcad_auto_path() to help it
* find other, potentially uninstalled, resources.
*/
while (1) {
/* not called first time through, give Tcl_Init() a chance */
if (try_auto_path) {
/* Locate the BRL-CAD-specific Tcl scripts, set the auto_path */
tclcad_auto_path(*interpreter);
}
/* Initialize Tcl */
Tcl_ResetResult(*interpreter);
if (init_tcl && Tcl_Init(*interpreter) == TCL_ERROR) {
if (!try_auto_path) {
try_auto_path = 1;
continue;
}
bu_log("Tcl_Init ERROR:\n%s\n", Tcl_GetStringResult(*interpreter));
break;
}
init_tcl = 0;
/* Initialize [incr Tcl] */
Tcl_ResetResult(*interpreter);
/* NOTE: Calling "package require Itcl" here is apparently
* insufficient without other changes elsewhere. The
* Combination Editor in mged fails with an iwidgets class
* already loaded error if we don't perform Itcl_Init() here.
*/
if (init_itcl && Itcl_Init(*interpreter) == TCL_ERROR) {
if (!try_auto_path) {
Tcl_Namespace *nsp;
try_auto_path = 1;
/* Itcl_Init() leaves initialization in a bad state
* and can cause retry failures. cleanup manually.
*/
Tcl_DeleteCommand(*interpreter, "::itcl::class");
nsp = Tcl_FindNamespace(*interpreter, "::itcl", NULL, 0);
if (nsp)
Tcl_DeleteNamespace(nsp);
continue;
}
bu_log("Itcl_Init ERROR:\n%s\n", Tcl_GetStringResult(*interpreter));
break;
}
init_itcl = 0;
/* don't actually want to loop forever */
break;
} /* end iteration over Init() routines that need auto_path */
Tcl_ResetResult(*interpreter);
/* if we haven't loaded by now, load auto_path so we find our tclscripts */
if (!try_auto_path) {
/* Locate the BRL-CAD-specific Tcl scripts */
tclcad_auto_path(*interpreter);
}
/*XXX FIXME: Should not be importing Itcl into the global namespace */
/* Import [incr Tcl] commands into the global namespace. */
if (Tcl_Import(*interpreter, Tcl_GetGlobalNamespace(*interpreter), "::itcl::*", /* allowOverwrite */ 1) != TCL_OK) {
bu_log("Tcl_Import ERROR: %s\n", Tcl_GetStringResult(*interpreter));
Tcl_ResetResult(*interpreter);
}
/* Initialize libbu */
if (Bu_Init(*interpreter) == TCL_ERROR) {
bu_log("Bu_Init ERROR:\n%s\n", Tcl_GetStringResult(*interpreter));
Tcl_ResetResult(*interpreter);
}
/* Initialize libbn */
if (Bn_Init(*interpreter) == TCL_ERROR) {
bu_log("Bn_Init ERROR:\n%s\n", Tcl_GetStringResult(*interpreter));
Tcl_ResetResult(*interpreter);
}
/* Initialize librt */
if (Rt_Init(*interpreter) == TCL_ERROR) {
bu_log("Rt_Init ERROR:\n%s\n", Tcl_GetStringResult(*interpreter));
Tcl_ResetResult(*interpreter);
}
/* Initialize libged */
if (Go_Init(*interpreter) == TCL_ERROR) {
bu_log("Ged_Init ERROR:\n%s\n", Tcl_GetStringResult(*interpreter));
Tcl_ResetResult(*interpreter);
}
BU_ALLOC(view_state->vs_gvp, struct ged_view);
ged_view_init(view_state->vs_gvp);
view_state->vs_gvp->gv_callback = mged_view_callback;
view_state->vs_gvp->gv_clientData = (void *)view_state;
MAT_DELTAS_GET_NEG(view_state->vs_orig_pos, view_state->vs_gvp->gv_center);
if (gedp) {
/* release any allocated memory */
ged_free(gedp);
} else {
BU_ALLOC(gedp, struct ged);
}
GED_INIT(gedp, NULL);
/* register commands */
cmd_setup();
history_setup();
mged_global_variable_setup(*interpreter);
mged_variable_setup(*interpreter);
/* Tcl needs to write nulls onto subscripted variable names */
bu_vls_printf(&str, "%s(state)", MGED_DISPLAY_VAR);
Tcl_SetVar(*interpreter, bu_vls_addr(&str), state_str[STATE], TCL_GLOBAL_ONLY);
/* Set defaults for view status variables */
bu_vls_trunc(&str, 0);
bu_vls_printf(&str, "set mged_display(.topid_0.ur,ang) {ang=(0.00 0.00 0.00)};\
set mged_display(.topid_0.ur,aet) {az=35.00 el=25.00 tw=0.00};\
set mged_display(.topid_0.ur,size) sz=1000.000;\
set mged_display(.topid_0.ur,center) {cent=(0.000 0.000 0.000)};\
set mged_display(units) mm");
Tcl_Eval(*interpreter, bu_vls_addr(&str));
Tcl_ResetResult(*interpreter);
bu_vls_free(&str);
}
