0026938: Boolean operations fail between two ellipsoids
[occt.git] / tests / bugs / modalg_1 / buc60532_2
1 puts "=========="
2 puts "BUC60532"
3 puts "=========="
4
5 restore [locate_data_file buc60532a.brep] p 
6 checkshape p
7
8 restore [locate_data_file buc60532b.brep] t1
9 checkshape t1
10
11 restore [locate_data_file buc60532c.brep] t2
12 checkshape t2
13
14 # create halfspace
15 #vertex v 20 20 0
16 halfspace h1 t1 20 20 0
17 halfspace h2 t2 20 20 0
18
19 # first cut
20 bcut res1 p h1
21
22 explode res1 e
23 mkcurve cu11 res1_1
24 mkcurve cu12 res1_2
25 mkcurve cu13 res1_3
26 mkcurve cu14 res1_4
27 mkcurve cu15 res1_5
28
29 checkshape res1
30 puts [computetolerance res1]
31
32 # second cut
33 bcut res2 res1 h2
34 tcopy res2 res
35 checkshape res2
36
37 explode res2 e
38 mkcurve cu21 res2_1
39 mkcurve cu22 res2_2
40 mkcurve cu23 res2_3
41 mkcurve cu24 res2_4
42
43 explode res2 face
44
45 puts [computetolerance res2]
46
47 renamevar res2 result
48
49 checkprops result -s 78.8852
50 checkshape result
51 checkview -display result -2d -path ${imagedir}/${test_image}.png