set prop "square"
set mass $square
if { [info exists tol_square] } {
+ # tol_square - The epsilon defines relative precision of computation
regexp {Mass +: +([-0-9.+eE]+)} [sprops result $tol_square] full m
} else {
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
if { [info exists 3dviewer] } {
#for multiview support: dump result from all opened views
set view_str [vviewlist long]
+ if { [llength ${view_str}] == 0 } {
+ vinit
+ set view_str [vviewlist long]
+ }
set view_list [regexp -all -inline {\S+} $view_str]
foreach {view_name} $view_list {
vactivate $view_name