a87752f3 |
1 | puts "================" |
2 | puts "OCC237" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################### |
6 | ## Hang-ups during the intersection of attached surfaces |
7 | ####################################################### |
8 | |
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 |
13 | |
14 | if [catch {intersect result su1 su2 }] { |
15 | set mistake 1 |
16 | } else { |
17 | set mistake 0 |
18 | } |
19 | |
20 | if { $mistake != 0} { |
21 | puts "Faulty OCC237: Intersection was made WRONGLY" |
22 | } else { |
23 | puts "OCC237 OK : Intersection command works properly" |
24 | } |
25 | |
26 | set 2dviewer 0 |
27 | |