0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / simple / S2
1 #box b -15 -15 -15 30 30 15
2 #pcone c 10 5 20
3 #fuse s b c
4 #save s 6_B1234.draw
5
6 restore 6_B1234.draw s
7 tscale s 0 0 0 SCALE2
8 explode s E
9 blend result s 8*SCALE2 s_7
10
11 set square 4237.39