[brlcad-commits] SF.net SVN: brlcad:[69401] brlcad/trunk/src/tclscripts/checker/check.tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <n_...@us...> - 2017-02-07 18:09:25
|
Revision: 69401 http://sourceforge.net/p/brlcad/code/69401 Author: n_reed Date: 2017-02-07 18:09:22 +0000 (Tue, 07 Feb 2017) Log Message: ----------- list overlap pairs with smaller bbox volume on the left Modified Paths: -------------- brlcad/trunk/src/tclscripts/checker/check.tcl Modified: brlcad/trunk/src/tclscripts/checker/check.tcl =================================================================== --- brlcad/trunk/src/tclscripts/checker/check.tcl 2017-02-07 17:19:36 UTC (rev 69400) +++ brlcad/trunk/src/tclscripts/checker/check.tcl 2017-02-07 18:09:22 UTC (rev 69401) @@ -269,6 +269,17 @@ set left [lindex $line 0] set right [lindex $line 1] set size [lindex $line 2] + + # put smaller volume on the left + set vol_left [lindex [bb -q -v $left] 3] + set vol_right [lindex [bb -q -v $right] 3] + + if {$vol_left > $vol_right} { + set tmp $left + set left $right + set right $tmp + } + set len_left [font measure $font $left] set len_right [font measure $font $right] set len_size [font measure $font $size] This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |