1 puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_"
2 puts "========================"
4 puts "========================"
6 ##################################################
7 ## Checkshape says that face is valid but it inludes selfintersecting wire
8 ##################################################
10 restore [locate_data_file buc61006.brep] result
12 set che [checkshape result]
14 if { [regexp "Faulty" $che] != 1 } {
15 puts "Error : Checkshape command works wrongly"
18 checkview -display result -2d -path ${imagedir}/${test_image}.png