0030395: DRAW bop: Some sub-shapes of some of the argument become connected through...
[occt.git] / tests / bugs / modalg_7 / bug30395
1 puts "========"
2 puts "0030395: DRAW bop: Some sub-shapes of some of the argument become connected through other shapes and the argument became self-interfered."
3 puts "========"
4 puts ""
5
6 restore [locate_data_file bug30395_s1.brep] s1
7 restore [locate_data_file bug30395_fds.brep] fds
8
9 bclearobjects
10 bcleartools
11 baddobjects s1
12 baddtools fds
13 bfillds
14
15 bbop rcommon 0
16 bbop rfuse 1
17 bbop rcut 2
18 bbop rcut21 3
19 bbop rsection 4
20
21 foreach r {rcommon rfuse rcut rcut21 rsection} {
22   checkshape $r
23   if {![regexp "OK" [bopcheck $r]]} {
24     puts "Error: $r is self-interfered shape"
25   }
26 }
27
28 checknbshapes rcommon -wire 8 -face 8 -shell 1 -solid 1
29 checkprops rcommon -s 11331.9 -v 30686.2
30
31 checknbshapes rfuse -wire 14 -face 12 -shell 1 -solid 1
32 checkprops rfuse -s 105935 -v 362551
33
34 checknbshapes rcut -wire 14 -face 12 -shell 1 -solid 1
35 checkprops rcut -s 21665.6 -v 25031.2
36
37 checknbshapes rcut21 -wire 8 -face 8 -shell 1 -solid 1
38 checkprops rcut21 -s 95601 -v 306833
39
40 checksection rsection -r 0
41 checkprops rsection -l 554.848
42
43 checkview -display rcommon -2d -path ${imagedir}/${test_image}.png