Revision: 73147
http://sourceforge.net/p/brlcad/code/73147
Author: brlcad
Date: 2019-05-23 07:10:12 +0000 (Thu, 23 May 2019)
Log Message:
-----------
add the current (fifth) version of the 'metastrength' command as a general
utility for modifying metaball field strengths. works in both mged and archrer
(though archer doesn't currently load the util dirctory. has options to clone
the hierarchy or work directly on the one specified. prints all field strength
values (including before and after if you change them). has options to set or
scale field strengths.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/util/CMakeLists.txt
Added Paths:
-----------
brlcad/trunk/src/tclscripts/util/metastrength.tcl
Modified: brlcad/trunk/src/tclscripts/util/CMakeLists.txt
===================================================================
--- brlcad/trunk/src/tclscripts/util/CMakeLists.txt 2019-05-23 06:40:13 UTC
(rev 73146)
+++ brlcad/trunk/src/tclscripts/util/CMakeLists.txt 2019-05-23 07:10:12 UTC
(rev 73147)
@@ -1,6 +1,7 @@
set(util_TCLSCRIPTS
expand_int_ranges.tcl
luniq.tcl
+ metastrength.tcl
regionstobots.tcl
)
BRLCAD_ADDDATA(util_TCLSCRIPTS tclscripts/util)
Added: brlcad/trunk/src/tclscripts/util/metastrength.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/util/metastrength.tcl
(rev 0)
+++ brlcad/trunk/src/tclscripts/util/metastrength.tcl 2019-05-23 07:10:12 UTC
(rev 73147)
@@ -0,0 +1,178 @@
+# M E T A S T R E N G T H . T C L
+# BRL-CAD
+#
+# Copyright (c) 2019 United States Government as represented by
+# the U.S. Army Research Laboratory.
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public License
+# version 2.1 as published by the Free Software Foundation.
+#
+# This library is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this file; see the file named COPYING for more
+# information.
+#
+###
+#
+# Usage: metastrength combination [-options ...]
+#
+# This script searches for all metaballs in a given combination
+# hierarchy. It prints field strengths for all points on all
+# metaballs encountred. It can also optionally set or scale the
+# metaball field strengths in that combination or on a cloned copy.
+#
+###
+
+proc print_strengths {obj} {
+
+ puts "Searching $obj for metaballs"
+
+ set matches [search /$obj -type metaball]
+ set count [llength $matches]
+
+ puts "Metaballs found: $count"
+ if {$count == 0} {
+ return
+ }
+
+ foreach {mb} $matches {
+ puts " $mb:"
+ set count 1
+ foreach {mp} [lindex [get $mb] end] {
+ puts " pt#$count field strength: [lindex $mp 3]"
+ incr count
+ }
+ }
+}
+
+
+proc print_usage {} {
+ puts "Usage: metastrength comb \[-help\] \[-clone\] \[-scale factor | -set
strength\]\n"
+}
+
+
+proc metastrength { comb args } {
+ set argc [llength $args]
+ set do_clone 0
+ set do_scale 0
+ set do_set 0
+ set mfs 1.0
+
+ if {$comb == "" || $argc > 3} {
+ print_usage
+ return
+ }
+
+ if {[string match "-h*" "$comb"]} {
+ print_usage
+ return
+ } elseif {[string match {-*} "$comb"]} {
+ error "Expecting a combination object name before options"
+ }
+
+ for {set i 0} {$i < $argc} {incr i} {
+ set arg [lindex $args $i]
+ if {[string match {-*} $arg]} {
+ switch -glob -- $arg {
+ -clone {
+ set do_clone 1
+ }
+ -scale {
+ set do_scale 1
+ if {$i + 1 > $argc - 1} {
+ print_usage
+ error "-scale option requires a factor"
+ }
+ incr i
+ set mfs [lindex $args $i]
+ }
+ -set {
+ set do_set 1
+ if {$i + 1 > $argc - 1} {
+ print_usage
+ error "-set option requires a strength value"
+ }
+ incr i
+ set mfs [lindex $args $i]
+ }
+ -help {
+ print_usage
+ return
+ }
+ * {
+ print_usage
+ error "Unrecognized subcommand \[$arg\]"
+ }
+ }
+ } else {
+ print_usage
+ error "Unrecognized command line argument \[$arg\]"
+ }
+ }
+
+ if {![exists "$comb"]} {
+ error "Unable to find a combination named \[$comb\]"
+ }
+
+ print_strengths $comb
+ if {$argc == 0} {
+ return
+ }
+
+ if {$do_clone} {
+ puts -nonewline "Cloning $comb ... "
+ set cloneout [clone $comb]
+ set obj [lindex [string range $cloneout [string last "\n" $cloneout
end-1]+1 end] 0]
+ puts "to $obj, done."
+ if {![exists $obj]} {
+ error "Unable to successfully clone \[$comb\]"
+ }
+ } else {
+ set obj $comb
+ }
+
+ if {$do_scale} {
+ puts "SCALING $obj metaball field strengths by $mfs"
+ } elseif {$do_set} {
+ puts "SETTING $obj metaball field strengths to $mfs"
+ }
+
+ set newmatches [search $obj -type metaball]
+ foreach {nmb} $newmatches {
+ set newpts {}
+ set newmeta [get $nmb]
+ foreach {point} [lindex $newmeta end] {
+
+ if {$do_scale} {
+ lset point end-1 [expr $mfs * [lindex $point end-1]]
+ } elseif {$do_set} {
+ lset point end-1 $mfs
+ }
+
+ lappend newpts $point
+ }
+ mv $nmb ${nmb}.backup
+ eval "put $nmb [lrange $newmeta 0 end-1] { $newpts }"
+ if ![catch {lt $nmb}] {
+ catch [kill -f ${nmb}.backup]
+ }
+ }
+ puts "Done.\n"
+
+ print_strengths $obj
+}
+
+
+# Local Variables:
+# tab-width: 8
+# mode: Tcl
+# c-basic-offset: 4
+# tcl-indent-level: 4
+# indent-tabs-mode: t
+# End:
+# ex: shiftwidth=4 tabstop=8
Property changes on: brlcad/trunk/src/tclscripts/util/metastrength.tcl
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
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
