puts "TODO OCC12345 ALL: Error : Volume of OCC76-1.brep is calculated wrongly becuase 3020.94 value must be but 3050.41 is" puts "TODO OCC12345 ALL: Error : Volume of OCC76-2.brep is calculated wrongly because 9871.39 value must be but 10153.6 is" puts "================" puts "OCC76" puts "================" puts "" restore [locate_data_file shading_177.brep] sh1 checkshape sh1 regexp {Mass +: +([-0-9.+eE]+)} [vprops sh1] full l1 restore [locate_data_file OCC76-2.brep] sh2 checkshape sh2 regexp {Mass +: +([-0-9.+eE]+)} [vprops sh2] full l2 if { [expr abs([expr $l1 - 3020.94])] > 0.00999} { puts "Error : Volume of OCC76-1.brep is calculated wrongly becuase 3020.94 value must be but $l1 is" } else { puts " Volume of OCC76-1.brep is right calculated" } if { [expr abs([expr $l2 - 9871.39 ])] > 0.00999} { puts "Error : Volume of OCC76-2.brep is calculated wrongly because 9871.39 value must be but $l2 is" } else { puts " Volume of OCC76-2.brep is right calculated" }