Revision: 33345
http://brlcad.svn.sourceforge.net/brlcad/?rev=33345&view=rev
Author: bob1961
Date: 2008-12-10 21:35:06 +0000 (Wed, 10 Dec 2008)
Log Message:
-----------
Make use of libged's tire functionality.
Modified Paths:
--------------
brlcad/trunk/src/libtclcad/ged_obj.c
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl
brlcad/trunk/src/tclscripts/lib/Ged.tcl
Modified: brlcad/trunk/src/libtclcad/ged_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/ged_obj.c 2008-12-10 21:33:24 UTC (rev
33344)
+++ brlcad/trunk/src/libtclcad/ged_obj.c 2008-12-10 21:35:06 UTC (rev
33345)
@@ -687,6 +687,7 @@
{"solids_on_ray", (char *)0, MAXARGS, go_pass_through_func,
ged_solids_on_ray},
{"summary", (char *)0, MAXARGS, go_pass_through_func, ged_summary},
{"sync", (char *)0, MAXARGS, go_pass_through_func, ged_sync},
+ {"tire", (char *)0, MAXARGS, go_pass_through_func, ged_tire},
{"title", (char *)0, MAXARGS, go_pass_through_func, ged_title},
{"tol", (char *)0, MAXARGS, go_pass_through_func, ged_tol},
{"tops", (char *)0, MAXARGS, go_pass_through_func, ged_tops},
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2008-12-10 21:33:24 UTC
(rev 33344)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2008-12-10 21:35:06 UTC
(rev 33345)
@@ -188,6 +188,7 @@
method rotate_arb_face {args}
method shader {args}
method shells {args}
+ method tire {args}
method title {args}
method track {args}
method unhide {args}
@@ -400,7 +401,7 @@
mv mvall nmg_collapse nmg_simplify \
ocenter orotate oscale otranslate
packTree prefix push \
put put_comb putmat pwd r rcodes red
rfarb rm rmater \
- rotate_arb_face shader shells title
track unhide units unpackTree \
+ rotate_arb_face shader shells tire
title track unhide units unpackTree \
vmake wmater xpush Z zap
}
variable mUnwrappedDbCommands {}
@@ -4163,6 +4164,10 @@
eval gedWrapper shells 0 0 1 0 $args
}
+::itcl::body ArcherCore::tire {args} {
+ eval gedWrapper tire 0 0 1 1 $args
+}
+
::itcl::body ArcherCore::title {args} {
if {$args == {}} {
return [gedCmd title]
Modified: brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl 2008-12-10
21:33:24 UTC (rev 33344)
+++ brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl 2008-12-10
21:35:06 UTC (rev 33345)
@@ -118,7 +118,11 @@
# Initialize the variables containing the object's specification.
#
::itcl::body CombEditFrame::initGeometry {gdata} {
- set mRegion [bu_get_value_by_keyword region $gdata]
+ if {![catch {bu_get_value_by_keyword region $gdata} _region]} {
+ set mRegion $_region
+ } else {
+ set mRegion ""
+ }
if {![catch {bu_get_value_by_keyword id $gdata} _id]} {
set mId $_id
Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2008-12-10 21:33:24 UTC (rev
33344)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2008-12-10 21:35:06 UTC (rev
33345)
@@ -393,6 +393,7 @@
method solids_on_ray {args}
method summary {args}
method sync {args}
+ method tire {args}
method title {args}
method tol {args}
method tops {args}
@@ -1929,6 +1930,10 @@
eval $mGed sync $args
}
+::itcl::body cadwidgets::Ged::tire {args} {
+ eval $mGed tire $args
+}
+
::itcl::body cadwidgets::Ged::title {args} {
eval $mGed title $args
}
@@ -2868,6 +2873,7 @@
$help add solids {{file object(s)} {returns an ascii summary of
solids}}
$help add summary {{[s r g]} {count/list solid/reg/groups}}
$help add sync {{} {sync the in memory database to disk}}
+ $help add tire {{[options] tire_top} {create a tire}}
$help add title {{?string?} {print or change the title}}
$help add tol {{"[abs #] [rel #] [norm #] [dist #] [perp #]"}
{show/set tessellation and calculation tolerances}}
$help add tops {{} {find all top level objects}}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
SF.Net email is Sponsored by MIX09, March 18-20, 2009 in Las Vegas, Nevada.
The future of the web can't happen without you. Join us at MIX09 to help
pave the way to the Next Web now. Learn more and register at
http://ad.doubleclick.net/clk;208669438;13503038;i?http://2009.visitmix.com/
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
