1 puts "TODO OCC25917 ALL: Faulty shapes in variables faulty_1 to faulty_"
2 puts "TODO OCC25917 ALL: Error : The square of result shape is"
3 if { [regexp {Debug mode} [dversion]] } {
4 puts "TODO OCC25917 ALL: TEST INCOMPLETE"
5 puts "TODO OCC25917 ALL: Tcl Exception"
8 puts "========================"
11 puts "========================"
13 #####################################################
14 ## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
15 #####################################################
17 restore [locate_data_file OCC472a.brep] b1
20 restore [locate_data_file OCC472b.brep] b2