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
/
H9
1
## Extension of /users/skv/testref/cd1/ED/cto/009/D1
2
3
dset r sqrt(3)/2
4
5
vertex v1 -1 -1 0
6
vertex v2 1+r -1 0
7
vertex v3 1+r 2 0
8
vertex v4 -1 2 0
9
10
edge e1 v1 v2
11
edge e2 v2 v3
12
edge e3 v3 v4
13
edge e4 v4 v1
14
15
wire wa e1 e2 e3 e4
16
mkplane fa wa
17
prism ba fa 0 0 1
18
19
trotate ba 0 0 0 0 0 1 60
20
21
22
circle c 0 0 0 1
23
mkedge eb c
24
wire wb eb
25
mkplane fb wb
26
prism cylb fb 0 0 2
27
28
29
bcommon result ba cylb
30
31
set square 12.5664