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
/
tolblend_simple
/
B9
1
#circle c1 0 0 0 100
2
#mkedge e1 c1 0 pi
3
#explode e1 V
4
#edge e2 e1_2 e1_1
5
#wire w1 e1 e2
6
#mkplane w1 w1
7
#prism s1 w1 0.0001 20 40
8
#prism s2 w1 0 0 -60
9
#explode s1 F
10
#explode s2 F
11
#glue s s1 s2 s1_3 s2_3
12
#explode s F
13
#sewing s s_1 s_4
14
15
restore 7_C2.draw s
16
tscale s 0 0 0 SCALE1
17
explode s e
18
blend result s 15*SCALE1 s_3
19
explode result sh
20
tcopy result_1 result
21
22
set square 803799