projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
0023087: Upgrade of the OCCT test system
[occt.git]
/
tests
/
boolean
/
bcommon_simple
/
H5
1
## Extension of /users/skv/testref/cd1/ED/cto/003/D1
2
3
dset r sqrt(2)
4
dset k r/2
5
6
vertex v1 0 0 0
7
vertex v2 1 0 0
8
vertex v3 1 1 0
9
vertex v4 0 1 0
10
11
edge e1 v1 v2
12
edge e2 v2 v3
13
edge e3 v3 v4
14
edge e4 v4 v1
15
16
wire wa e1 e2 e3 e4
17
mkplane fa wa
18
prism ba fa 0 0 1
19
20
vertex v3 -0.25 -0.25 0
21
vertex v4 2 -0.25 0
22
edge eb v3 v4
23
prism fb eb 0 k-0.25 0
24
prism bb fb 0 0 1
25
26
vertex v5 -0.25 -0.25 0
27
vertex v6 2 -0.25 0
28
vertex v7 2 k 0
29
vertex v8 -0.25 k 0
30
31
edge e5 v5 v6
32
edge e6 v6 v7
33
edge e7 v7 v8
34
edge e8 v8 v5
35
36
wire wb e5 e6 e7 e8
37
mkplane fb wb
38
prism bb fb 0 0 1.5
39
40
41
trotate bb -0.25 -0.25 0 0 0 1 45
42
43
44
bcommon result ba bb
45
46
set square 4.41421