5 ##################################################
6 # Issue in BRepAlgoAPI_Common - SOLID and FACE
7 ##################################################
9 polyline l 0 0 0 0 5 0 0 5 5 0 3 5 0 3 3 0 2 3 0 2 5 0 0 5 0 0 0
12 polyline w1 -2 2.5 2 7 2.5 2 7 7 2 -2 7 2 -2 2.5 2
17 polyline w2 -2 2.5 3 7 2.5 3 7 7 3 -2 7 3 -2 2.5 3
22 polyline w3 -2 2.5 4 7 2.5 4 7 7 4 -2 7 4 -2 2.5 4
28 regexp {Mass +: +([-0-9.+eE]+)} [sprops c1] full sq1
29 regexp {Mass +: +([-0-9.+eE]+)} [sprops c2] full sq2
30 regexp {Mass +: +([-0-9.+eE]+)} [sprops c3] full sq3
32 if { $sq1 != 12.5 || $sq2 != 12.5 || $sq3 != 10 } {
33 puts "Error : c1 and c2 should be indeticall"
35 puts "OK : c1 and c2 are identicall"