0030386: Modeling Algorithms - Unable to perform Cut operation
[occt.git] / tests / bugs / modalg_7 / bug30386_4
CommitLineData
739c7e59 1puts "======================================================="
2puts "0030386: Modeling Algorithms - Unable to perform Cut operation"
3puts "======================================================="
4puts ""
5
6# prepare the first argument - compound of mutlti-dimensional shapes
7vertex v 0 0 2
8line l 5 5 0 0 0 1
9mkedge e l -10 10
10plane p 0 0 1 0 0 1
11mkface f p -15 15 -15 15
12box b 8 8 8 5 5 5
13bclearobjects
14bcleartools
15baddobjects v e f b
16bfillds
17bbuild s1
18
19# second argument - solid
20box s2 10 10 10
21
22bclearobjects
23bcleartools
24baddobjects s1
25baddtools s2
26bfillds
27
28# it is allowed to perform only CUT and COMMON operations
29bbop r0 0
30bbop r2 2
31
32
33foreach r {r0 r2} {
34 checkshape $r
35 if {![regexp "OK" [bopcheck $r]]} {
36 puts "Error: the $r is a self-interfering shape"
37 }
38}
39
40checknbshapes r0 -vertex 16 -edge 18 -wire 7 -face 7 -shell 1 -solid 1 -t
41checkprops r0 -s 124
42explode r0 so
43checkprops r0_1 -v 8
44
45checknbshapes r2 -vertex 24 -edge 30 -wire 11 -face 10 -shell 1 -solid 1 -t
46checkprops r2 -s 950
47explode r2 so
48checkprops r2_1 -v 117
49
50checkview -display r2 -2d -path ${imagedir}/${test_image}.png