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