6308e796997b1a07b755241d9d4087dcf004cb43
[occt.git] / tests / blend / tolblend_simple / E7
1 puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"
2
3 #wedge b 10 10 10 0 5 0 5
4 #explode b f
5 #depouille s1 b 1 0 0 b_5 15  0 0 10 5 0 0
6 #polyline p1 0 0 0 0 10 5 0 0 10 0 0 0
7 #mkplane p1 p1
8 #prism p p1 -5 0 0
9 #explode p f
10 #depouille s2 p 1 0 0 p_1 -15  0 0 10 5 0 0
11 #explode s2 f
12 #explode s1 f
13 #glue s s1 s2 s1_1 s2_4
14 #trotate s 0 0 0 0 0 1 -20
15 #save s 5_E12.draw
16
17 restore [locate_data_file CFI_5_e12fgj.rle] s 
18 tscale s 0 0 0 SCALE1
19 explode s E
20 blend result s 0.5*SCALE1 s_2 0.5*SCALE1 s_3 0.5*SCALE1 s_12  
21 explode result So
22 tcopy result_1 result 
23
24 checkprops result -s 10755.9