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
/
blend
/
buildevol
/
K5
1
#box b -15 -20 -15 25 35 30
2
#polyline w 0 0 0 20 -10 0
3
#circle p 0 0 0 1 0 0 12
4
#mkedge p p
5
#wire p p
6
#mkplane p p
7
#pipe s1 w p
8
#fuse f1 s1 b
9
#pcylinder c 8 30
10
#trotate c 0 0 0 1 0 0 90
11
#donly f1 c
12
#fuse s f1 c
13
#donly s
14
15
restore 6_H56.draw s
16
tscale s 0 0 0 SCALE2
17
explode s E
18
mkevol result s
19
updatevol s_2 0 3*SCALE2 1 5*SCALE2 2 3*SCALE2
20
buildevol
21
22
set square 6600.76