0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / simple / M9
1 #box s1 0 0 0 10 10 10
2 #pcylinder s2 2.5 5 270
3 #ttranslate s2 6 5 10
4 #fuse s s1 s2
5 #save s D5678.draw 
6
7 restore D5678.draw s
8 tscale s 0 0 0 SCALE1
9 explode s e
10 blend result s 0.5*SCALE1 s_7 0.5*SCALE1 s_5 0.5*SCALE1 s_6 
11
12 set square 68042.1