9026dea8 |
1 | puts "TODO OCC28523 ALL: Error: Bad area of face" |
2 | |
3 | puts "========" |
4 | puts "OCC28523" |
5 | puts "========" |
6 | puts "" |
7 | ################################################ |
8 | ## Fixshape reverses the orientation of the face |
9 | ################################################ |
10 | |
11 | restore [locate_data_file bug28377_problemface.brep] f2 |
12 | |
13 | fixshape newface f2 |
14 | |
15 | checkshape newface ff1 |
16 | |
17 | set prop [ sprops newface ] |
18 | regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s Area |
19 | |
20 | if { ${Area} <= 0. } { |
21 | puts "Error: Bad area of face" |
22 | } |