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
/
simple
/
T7
1
#box b -20 -13 -20 40 25 20
2
#ellipse w 0 0 0 15 10
3
#mkedge w w
4
#wire w w
5
#mkplane w w
6
#prism f w 2 0 30
7
#fuse f1 f b
8
#pcylinder c 8 25
9
#trotate c 0 0 0 1 0 0 90
10
#ttranslate c 0 0 -10
11
#fuse s f1 c
12
#save s 6_F56.draw
13
14
restore 6_F56.draw s
15
tscale s 0 0 0 SCALE2
16
nexplode s E
17
blend result s 6*SCALE2 s_8
18
19
set square 7479.62