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
/
A3
1
#polyline d 0 0 0 0 5 0 7 7 -1
2
#polyline dd -5 0 -5 -5 0 5 5 0 5 5 0 -5 -5 0 -5
3
#mkplane dd dd
4
#wire d d
5
#pipe s d dd
6
#explode s F
7
#donly s_3 s_1 s_2 s_4
8
#sewing t s_3 s_1 s_2 s_4
9
#explode t sh
10
#save t_1 5_B12.draw
11
12
restore 5_B12.draw s
13
tscale s 0 0 0 SCALE1
14
explode s E
15
blend result s 0.5*SCALE1 s_4 0.5*SCALE1 s_8 0.5*SCALE1 s_7 0.5*SCALE1 s_3
16
explode result sh
17
tcopy result_1 result
18
19
set square 4811.71