How to do geometrical analysis

Calculate distance

proc_calc-dist.tcl

vm_measure.tcl

set dist [vecdist [measure center $sel1 weight mass] [measure center $sel2 weight mass]]

Calculate principle axes

vm_measure_pa_pa.tcl

package require Orient 
namespace import Orient::orient

set Ib [Orient::calc_principalaxes $selbar]; puts ""
set Ib1 [lindex $Ib 0]
set Ib2 [lindex $Ib 1]
set Ib3 [lindex $Ib 2]