0023087: Upgrade of the OCCT test system
[occt.git] / tests / boolean / bfuse_simple / G6
1 # Permuation of all forms of construction
2 # when fUsing a box and a prism
3 vertex vp1 3 3 0
4 vertex vp2 8 3 0
5 vertex vp3 8 9 0
6 vertex vp4 3 9 0
7
8 edge eap vp1 vp2
9 edge ebp vp2 vp3
10 edge ecp vp3 vp4
11 edge edp vp4 vp1
12
13 wire wp eap ebp ecp edp
14 mkplane fp wp
15
16 prism ba fp 0 0 4
17
18 # prism from bottom
19
20 vertex v1 3 2 0
21 vertex v2 4 2 0
22 vertex v3 4 3 0
23 vertex v4 3 3 0
24
25 edge ea v1 v2
26 edge eb v2 v3
27 edge ec v3 v4
28 edge ed v4 v1
29
30 wire w ea eb ec ed
31 mkplane f w
32
33 prism bb f 0 0 1
34
35 bfuse result ba bb
36
37
38 set square 152