0027664: Incomplete intersection curve from the attached shapes
[occt.git] / tests / bugs / modalg_6 / bug27664_2
1 puts "========"
2 puts "OCC27664"
3 puts "========"
4 puts ""
5 #################################################
6 # Incomplete intersection curve from the attached shapes
7 #################################################
8
9 restore [locate_data_file bug27664_pl0.brep] pl0
10 restore [locate_data_file bug27664_nsh_8.brep] nsh_8
11
12 bclearobjects
13 bcleartools
14
15 baddobjects pl0
16 baddtools nsh_8
17
18 bfillds
19
20 # section
21 bbop rs 4
22
23 if { [string compare -nocase [checksection rs] " nb alone Vertices : 0\n\n"] } {
24   puts "ERROR: the section is not closed"
25 } else {
26   puts "The section is OK"
27 }
28
29 # cut
30 bbop result 2
31
32 smallview
33 donly result
34 fit
35
36 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
37
38 checkprops result -s 33.8629