[Brlcad-commits] CVS: brlcad/src/tclscripts/lib Db.tcl,14.8.2.2,14.8.2.3 Mged.tcl,14.9.2.2,14.9.2.3
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: Bob P. <bo...@us...> - 2005-12-05 22:51:53
|
Update of /cvsroot/brlcad/brlcad/src/tclscripts/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7232 Modified Files: Tag: bobWinPort Db.tcl Mged.tcl Log Message: Changed erotate, etranslate and escale method names to orotate, otranslate and oscale, respectively. Added the ocenter method Index: Db.tcl =================================================================== RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/lib/Db.tcl,v retrieving revision 14.8.2.2 retrieving revision 14.8.2.3 diff -w -u -r14.8.2.2 -r14.8.2.3 --- Db.tcl 25 Oct 2005 17:42:14 -0000 14.8.2.2 +++ Db.tcl 5 Dec 2005 22:51:45 -0000 14.8.2.3 @@ -52,9 +52,6 @@ method dbip {args} method dump {args} method dup {args} - method erotate {args} - method escale {args} - method etranslate {args} method expand {args} method facetize {args} method find {args} @@ -84,6 +81,10 @@ method nmg_collapse {args} method nmg_simplify {args} method observer {args} + method ocenter {args} + method orotate {args} + method oscale {args} + method otranslate {args} method open {args} method pathlist {args} method paths {args} @@ -164,6 +165,21 @@ eval $db observer $args } +::itcl::body Db::ocenter {args} { + eval $db ocenter $args +} + +::itcl::body Db::orotate {args} { + eval $db orotate $args +} +::itcl::body Db::oscale {args} { + eval $db oscale $args +} + +::itcl::body Db::otranslate {args} { + eval $db otranslate $args +} + ::itcl::body Db::match {args} { eval $db match $args } @@ -308,17 +324,6 @@ eval $db dup $args } -::itcl::body Db::erotate {args} { - eval $db erotate $args -} -::itcl::body Db::escale {args} { - eval $db escale $args -} - -::itcl::body Db::etranslate {args} { - eval $db etranslate $args -} - ::itcl::body Db::g {args} { eval $db g $args } @@ -529,6 +534,8 @@ $help add nmg_collapse {{nmg_solid new_solid maximum_error_distance [minimum_allowed_angle]} {decimate NMG solid via edge collapse}} $help add nmg_simplify {{[arb|tgc|ell|poly] new_solid nmg_solid} {simplify nmg_solid, if possible}} $help add open {{?dbfile?} {open a database}} + $help add ocenter {{obj(s)} {get center for obj(s)}} + $help add ocrotate {{obj x y z} {rotate object about its center by x, y, z degrees}} $help add pathlist {{name(s)} {list all paths from name(s) to leaves}} $help add paths {{pattern} {lists all paths matching input path}} $help add prcolor {{} {print color&material table}} Index: Mged.tcl =================================================================== RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/lib/Mged.tcl,v retrieving revision 14.9.2.2 retrieving revision 14.9.2.3 diff -w -u -r14.9.2.2 -r14.9.2.3 --- Mged.tcl 25 Oct 2005 17:42:14 -0000 14.9.2.2 +++ Mged.tcl 5 Dec 2005 22:51:45 -0000 14.9.2.3 @@ -72,9 +72,6 @@ method E {args} method erase {args} method erase_all {args} - method erotate {args} - method escale {args} - method etranslate {args} method ev {args} method expand {args} method facetize {args} @@ -107,6 +104,10 @@ method mvall {args} method nmg_collapse {args} method nmg_simplify {args} + method ocenter {args} + method orotate {args} + method oscale {args} + method otranslate {args} method opendb {args} method overlay {args} method pathlist {args} @@ -329,6 +330,21 @@ eval $db nmg_simplify $args } +::itcl::body Mged::ocenter {args} { + eval $db ocenter $args +} + +::itcl::body Mged::orotate {args} { + eval $db orotate $args +} +::itcl::body Mged::oscale {args} { + eval $db oscale $args +} + +::itcl::body Mged::otranslate {args} { + eval $db otranslate $args +} + ::itcl::body Mged::copyeval {args} { eval $db copyeval $args } @@ -341,17 +357,6 @@ eval $db dup $args } -::itcl::body Mged::erotate {args} { - eval $db erotate $args -} -::itcl::body Mged::escale {args} { - eval $db escale $args -} - -::itcl::body Mged::etranslate {args} { - eval $db etranslate $args -} - ::itcl::body Mged::g {args} { eval $db g $args } |