0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / simple / S4
1 #box b -15 -15 -30 30 30 30
2 #pcone d 13 5 20
3 #fuse f1 b d
4 #pcylinder c 10 15
5 #trotate c 0 0 0 1 0 0 90
6 #ttranslate c 0 -15 -15
7 #fuse s f1 c
8 #donly s
9 #save s 6_B56.draw
10
11 restore 6_B56.draw s
12 tscale s 0 0 0 SCALE2
13 explode s E
14 blend result s 8*SCALE2 s_3
15
16 set square 7004.23