0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / simple / T4
1 #box b -30 -30 -30 60 60 30
2 #ptorus f 35 10 90 180
3 #explode b F
4 #explode f F
5 #glue r f b f_2 b_6
6
7 #pcylinder c 10 10
8 #trotate c 0 0 0 1 0 0 90
9 #ttranslate c 0 -30 -15  
10 #explode c F
11 #explode r F
12 #glue s c r c_3 r_2
13 #save s 6_E56.draw
14
15 restore 6_E56.draw s
16 tscale s 0 0 0 SCALE2
17 explode s E
18 blend result s 8*SCALE2 s_7
19
20 set square 19514.7