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
/
G2
1
2
## prism the diagonal face as we would in Euclid Designer
3
4
vertex v1 0 0 0
5
vertex v2 1 0 0
6
vertex v3 1 1 0
7
vertex v4 0 1 0
8
9
edge e1 v1 v2
10
edge e2 v2 v3
11
edge e3 v3 v4
12
edge e4 v4 v1
13
14
wire wa e1 e2 e3 e4
15
mkplane fa wa
16
prism ba fa 0 0 1
17
18
# prism from bottom
19
20
vertex v5 0 0 0
21
vertex v6 1 1 0
22
vertex v7 1 1 1
23
vertex v8 0 0 1
24
25
edge e5 v5 v6
26
edge e6 v6 v7
27
edge e7 v7 v8
28
edge e8 v8 v5
29
30
wire wb e5 e6 e7 e8
31
mkplane fb wb
32
33
prism bb fb -.5 .5 0
34
35
bcommon result ba bb
36
37
set square 4.41421