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
/
G8
1
## Extension of /users/skv/testref/cd1/ED/cto/002/B1
2
3
dset r sqrt(5)
4
dset a30 atan2(1,2)*180/pi
5
dset k 1/r
6
7
vertex v1 0 0 0
8
vertex v2 1 0 0
9
vertex v3 1 1 0
10
vertex v4 0 1 0
11
12
edge e1 v1 v2
13
edge e2 v2 v3
14
edge e3 v3 v4
15
edge e4 v4 v1
16
17
wire wa e1 e2 e3 e4
18
mkplane fa wa
19
prism ba fa 0 0 1
20
21
vertex v5 0 0 1
22
vertex v6 r/2 0 1
23
vertex v7 r/2 k 1
24
vertex v8 0 k 1
25
26
edge e5 v5 v6
27
edge e6 v6 v7
28
edge e7 v7 v8
29
edge e8 v8 v5
30
31
wire wb e5 e6 e7 e8
32
mkplane fb wb
33
34
prism bb fb 0 0 -1
35
36
trotate bb 0 0 0 0 0 1 45
37
38
bcommon result ba bb
39
40
set square 3.55724