Revision: 55329
http://sourceforge.net/p/brlcad/code/55329
Author: bob1961
Date: 2013-05-08 15:08:33 +0000 (Wed, 08 May 2013)
Log Message:
-----------
Expose the annotate command in Archer.
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 2013-05-08 15:05:59 UTC (rev
55328)
+++ brlcad/trunk/src/libtclcad/tclcad_obj.c 2013-05-08 15:08:33 UTC (rev
55329)
@@ -910,6 +910,7 @@
{"ae2dir", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_ae2dir},
{"aet", "[[-i] az el [tw]]", 6, to_view_func_plus, ged_aet},
{"analyze", (char *)0, TO_UNLIMITED, to_pass_through_func,
ged_analyze},
+ {"annotate", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_annotate},
{"append_pipept", (char *)0, TO_UNLIMITED, to_pass_through_func,
ged_append_pipept},
{"arb", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_arb},
{"arced", (char *)0, TO_UNLIMITED, to_pass_through_func, ged_arced},
Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2013-05-08 15:05:59 UTC (rev
55328)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2013-05-08 15:08:33 UTC (rev
55329)
@@ -119,6 +119,7 @@
method ae2dir {args}
method aet {args}
method analyze {args}
+ method annotate {args}
method arb {args}
method arced {args}
method arot {args}
@@ -1097,6 +1098,10 @@
eval $mGed analyze $args
}
+::itcl::body cadwidgets::Ged::annotate {args} {
+ eval $mGed annotate $args
+}
+
::itcl::body cadwidgets::Ged::arb {args} {
eval $mGed arb $args
}
@@ -5553,6 +5558,7 @@
$help add ae {{["az el tw"]} {set/get the azimuth, elevation
and twist}}
$help add aet {{["az el tw"]} {set/get the azimuth, elevation
and twist}}
$help add analyze {{object(s)} {analyze objects}}
+ $help add annotate {{[object(s)] [-n name] [-p x y z]} {annotate
objects}}
$help add arb {{name rot fb} {creates an arb}}
$help add arced {{a/b anim_cmd ...} {edit the matrix, etc.,
along an arc}}
$help add arot {{x y z angle} {rotate about axis x,y,z by
angle (degrees)}}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and
their applications. This 200-page book is written by three acclaimed
leaders in the field. The early access version is available now.
Download your free book today! http://p.sf.net/sfu/neotech_d2d_may
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
