5 puts "Fix missing seam don't add seam "
8 restore [locate_data_file OCC168.brep] a
10 fixshape result a 1e-7
17 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
19 if { [string compare "$mass" "empty"] != 0 } {
21 puts "Error : The command is not valid. The $prop is 0."
24 puts "The expected $prop is $mass"
26 #check of change of square is < 1%
27 if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
28 puts "Error : The $prop of result shape is $m"
32 puts "Error : The command is not valid. The $prop is $m"