0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / tolblend_simple / B4
1 #pcone c 25 50 50 180
2 #explode c F
3 #prism s1 c_3 25 0 -50
4 #explode s1 F
5 #glue t c s1 c_3 s1_4
6 #fit
7
8 restore 7_A1.draw s
9 tscale  s 0 0 0 SCALE1 
10 explode s E
11 blend result s 15*SCALE1 s_4
12 explode result So
13 tcopy result_1 result 
14
15 set square 547392