
puts "================"
puts "OCC252"
puts "================"
puts ""

pload QAcommands

restore [locate_data_file OCC252.brep] a 

checkshape a

explode a w

OCC252 result a_466 a 0

regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len

if { ${len} <= 0 } {
   puts "Error : OCC252"
}

set 2dviewer 0
