2 puts "========================"
4 puts "========================"
6 #####################################################
7 ## Cut operation produces NOT Valid result on attached shapes
8 #####################################################
10 restore [locate_data_file OCC439.brep] a
18 set che [checkshape result]
19 if { [regexp {Faulty} $che ] == 1 } {
20 puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command"
22 puts "OCC134 OK: Result shape is valid"
25 checkprops result -s 247000
26 checkview -display result -2d -path ${imagedir}/${test_image}.png