Revision: 73947
http://sourceforge.net/p/brlcad/code/73947
Author: brlcad
Date: 2019-09-17 21:48:24 +0000 (Tue, 17 Sep 2019)
Log Message:
-----------
refactor and reduce now that there's a version of bn_mat_ae in libged
Modified Paths:
--------------
brlcad/trunk/src/libtclcad/libfuncs.c
brlcad/trunk/src/mged/setup.c
Modified: brlcad/trunk/src/libtclcad/libfuncs.c
===================================================================
--- brlcad/trunk/src/libtclcad/libfuncs.c 2019-09-17 21:47:04 UTC (rev
73946)
+++ brlcad/trunk/src/libtclcad/libfuncs.c 2019-09-17 21:48:24 UTC (rev
73947)
@@ -930,33 +930,6 @@
}
static int
-tclcad_bn_mat_ae(ClientData UNUSED(clientData), Tcl_Interp *interp, int argc,
char **argv)
-{
- struct bu_vls result = BU_VLS_INIT_ZERO;
- mat_t o;
- double az, el;
-
- if (argc < 3) {
- bu_vls_printf(&result, "usage: %s azimuth elevation", argv[0]);
- goto error;
- }
- if (Tcl_GetDouble(interp, argv[1], &az) != TCL_OK) goto error;
- if (Tcl_GetDouble(interp, argv[2], &el) != TCL_OK) goto error;
-
- bn_mat_ae(o, (fastf_t)az, (fastf_t)el);
- bn_encode_mat(&result, o, 1);
-
- Tcl_AppendResult(interp, bu_vls_addr(&result), (char *)NULL);
- bu_vls_free(&result);
- return TCL_OK;
-
-error:
- Tcl_AppendResult(interp, bu_vls_addr(&result), (char *)NULL);
- bu_vls_free(&result);
- return TCL_ERROR;
-}
-
-static int
tclcad_bn_ae_vec(ClientData UNUSED(clientData), Tcl_Interp *interp, int argc,
char **argv)
{
struct bu_vls result = BU_VLS_INIT_ZERO;
@@ -1634,7 +1607,6 @@
{"hdivide", BN_FUNC_TCL_CAST(tclcad_bn_hdivide) },
{"vjoin1", BN_FUNC_TCL_CAST(tclcad_bn_vjoin1) },
{"vblend", BN_FUNC_TCL_CAST(tclcad_bn_vblend) },
- {"mat_ae", BN_FUNC_TCL_CAST(tclcad_bn_mat_ae) },
{"mat_ae_vec", BN_FUNC_TCL_CAST(tclcad_bn_ae_vec) },
{"mat_aet_vec", BN_FUNC_TCL_CAST(tclcad_bn_aet_vec) },
{"mat_angles", BN_FUNC_TCL_CAST(tclcad_bn_mat_angles) },
Modified: brlcad/trunk/src/mged/setup.c
===================================================================
--- brlcad/trunk/src/mged/setup.c 2019-09-17 21:47:04 UTC (rev 73946)
+++ brlcad/trunk/src/mged/setup.c 2019-09-17 21:48:24 UTC (rev 73947)
@@ -213,6 +213,7 @@
{"match", cmd_ged_plain_wrapper, ged_match},
{"mater", cmd_ged_plain_wrapper, ged_mater},
{"matpick", f_matpick, GED_FUNC_PTR_NULL},
+ {"mat_ae", cmd_ged_plain_wrapper, ged_mat_ae},
{"mged_update", f_update, GED_FUNC_PTR_NULL},
{"mged_wait", f_wait, GED_FUNC_PTR_NULL},
{"mirface", f_mirface, GED_FUNC_PTR_NULL},
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
