Revision: 76247
http://sourceforge.net/p/brlcad/code/76247
Author: starseeker
Date: 2020-06-30 22:45:21 +0000 (Tue, 30 Jun 2020)
Log Message:
-----------
Try using the libged mat4x3pnt call in libtclcad as well as mged
Modified Paths:
--------------
brlcad/trunk/src/libtclcad/tclcad_obj.c
brlcad/trunk/src/tclscripts/lib/Ged.tcl
Modified: brlcad/trunk/src/libtclcad/tclcad_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/tclcad_obj.c 2020-06-30 22:19:36 UTC (rev
76246)
+++ brlcad/trunk/src/libtclcad/tclcad_obj.c 2020-06-30 22:45:21 UTC (rev
76247)
@@ -1233,6 +1233,7 @@
{"make", (char *)0, TO_UNLIMITED, to_make, GED_FUNC_PTR_NULL},
{"make_name", (char *)0, TO_UNLIMITED, to_pass_through_func,
ged_make_name},
{"make_pnts", (char *)0, TO_UNLIMITED, to_more_args_func,
ged_make_pnts},
+ {"mat4x3pnt", (char *)0, TO_UNLIMITED, to_pass_through_func,
ged_mat4x3pnt},
{"match", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_match},
{"mater", (char *)0, TO_UNLIMITED, to_more_args_func, ged_mater},
{"mirror", (char *)0, TO_UNLIMITED, to_mirror, GED_FUNC_PTR_NULL},
Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2020-06-30 22:19:36 UTC (rev
76246)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2020-06-30 22:45:21 UTC (rev
76247)
@@ -2211,7 +2211,8 @@
}
::itcl::body cadwidgets::Ged::mat4x3pnt {args} {
- uplevel \#0 mat4x3pnt $args
+ #uplevel \#0 mat4x3pnt $args
+ eval $mGed mat4x3pnt $args
}
::itcl::body cadwidgets::Ged::mat_ae {args} {
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
