0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / tolblend_simple / B3
1 #box b 0 0 0 20 20 20
2 #box b2 0 0 20 20 20 20
3 #box b3 20 0 0 20 20 20
4 #box b4 0 -20 0 20 20 20
5 #explode b f
6 #explode b2 f
7 #explode b3 f
8 #explode b4 f
9 #glue r b2 b b2_5 b_6
10 #explode r f
11 #glue r b4 r b4_4 r_2
12 #explode r f
13 #glue s b3 r b3_1 r_4
14 #save s 5_J12.draw
15
16 restore  5_J12.draw s
17 tscale s 0 0 0 SCALE1
18 explode s E
19 blend result s 2*SCALE1 s_26 2*SCALE1 s_19  2*SCALE1 s_15 2*SCALE1 s_16 2*SCALE1 s_27 2*SCALE1 s_25
20 explode result So
21 tcopy result_1 result 
22
23 set square 177551