0025937: Failed Cut Edge or Face by HalfSpace.
[occt.git] / tests / bugs / modalg_6 / bug25937_2
1 puts "============"
2 puts "OCC25937"
3 puts "============"
4 puts ""
5 ###############################
6 ## Failed Cut Edge or Face by HalfSpace.
7 ###############################
8
9 # Cut a face by halfspace
10 plane h 0 0 0 1 0 0
11 mkface h h
12 halfspace h h 10 0 0
13 plane a 0 0 0 0 0 1
14 mkface a a -10 10 -10 10
15
16 bop a h
17 bopcut result
18
19 set length 60.
20 set square 200.
21
22 set nbshapes_expected "
23 Number of shapes in shape
24  VERTEX    : 4
25  EDGE      : 4
26  WIRE      : 1
27  FACE      : 1
28  SHELL     : 1
29  SOLID     : 0
30  COMPSOLID : 0
31  COMPOUND  : 1
32  SHAPE     : 12
33 "
34 checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by Cut a wire by halfspace"
35
36 set 3dviewer 1