1 puts "================"
3 puts "================"
5 #######################################################
6 ## Hang-ups during the intersection of attached surfaces
7 #######################################################
9 restore [locate_data_file OCC236b.rle] su1
10 ############### checkshape su1 # is not a topological shape
11 restore [locate_data_file OCC237b.rle] su2
12 ############### checkshape su2 # is not a topological shape
14 if [catch {intersect result su1 su2 }] {
21 puts "Faulty OCC237: Intersection was made WRONGLY"
23 puts "OCC237 OK : Intersection command works properly"
26 checkview -display result -2d -path ${imagedir}/${test_image}.png