1 puts "TODO OCC28523 ALL: Error: Bad area of face"
7 ################################################
8 ## Fixshape reverses the orientation of the face
9 ################################################
11 restore [locate_data_file bug28377_problemface.brep] f2
15 checkshape newface ff1
17 set prop [ sprops newface ]
18 regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s Area
20 if { ${Area} <= 0. } {
21 puts "Error: Bad area of face"