0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26316
1 puts "============"
2 puts "OCC26316"
3 puts "============"
4 puts ""
5 ###############################
6 ## Infinite modification of the shapes in General Fuse operation
7 ###############################
8
9 restore [locate_data_file bug26316_shape1.brep] b1
10 restore [locate_data_file bug26316_shape2.brep] b2
11
12 bclearobjects
13 bcleartools
14 baddobjects b1
15 baddtools b2
16 bfillds
17 bbuild r
18  
19 explode r so
20  
21 bclearobjects
22 bcleartools
23 baddobjects r_1
24 baddtools r_2
25 bfillds
26 bbuild r1
27
28 explode r1 so
29
30 set info1 [compare r_1 r1_1]
31
32 set info2 [compare r_2 r1_2]
33
34 if { [regexp "same shapes" $info1] == 1  } {
35     puts "OK: r_1 and r1_1 shapes are equal"
36 } else {
37     puts "Error : r_1 and r1_1 shapes are not equal"
38 }
39
40 if { [regexp "same shapes" $info2] == 1  } {
41     puts "OK: r_2 and r1_2 shapes are equal"
42 } else {
43     puts "Error : r_2 and r1_2 shapes are not equal"
44 }
45
46 smallview
47 fit
48 xwd ${imagedir}/${test_image}.png