projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
05c5006aba21a2c36e97e3075e47d63ebd386aba
[occt.git]
/
tests
/
blend
/
tolblend_simple
/
D8
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
8
#donly s_3 s_1 s_2 s_4
9
#sewing t s_3 s_1 s_2 s_4
10
#explode t sh
11
#save t_1 5_B12.draw
12
13
restore [locate_data_file CFI_5_b12fgg.rle] s
14
tscale s 0 0 0 SCALE1
15
explode s E
16
blend result s 0.5*SCALE1 s_4 0.5*SCALE1 s_8
17
explode result sh
18
tcopy result_1 result
19
20
set square 4825.16