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
/
V3
1
#wedge b 10 10 10 0 5 0 5
2
#explode b f
3
#depouille s1 b 1 0 0 b_5 30 0 0 10 5 0 0
4
#polyline p1 0 0 0 0 10 5 0 0 10 0 0 0
5
#mkplane p1 p1
6
#prism p p1 -3 0 0
7
#explode p f
8
#depouille s2 p 1 0 0 p_1 -30 0 0 10 5 0 0
9
#explode s2 f
10
#explode s1 f
11
#glue s s1 s2 s1_1 s2_4
12
#trotate s 0 0 0 0 0 1 -20
13
#save s 8_E1.draw
14
15
restore 8_E1.draw s
16
tscale s 0 0 0 SCALE1
17
explode s E
18
blend result s 0.5*SCALE1 s_2
19
explode result So
20
tcopy result_1 result
21
22
set square 33506.8