0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / bfuseblend / A9
1 box b -30 -30 -30 60 60 20
2 ellipse w1 0 0 0 15 10
3 mkedge w1 w1 0 pi/2
4 trotate w1 0 0 0 1 0 0 90
5 polyline w2 15 0 0  27 0 -12  0 0 -12  0 0 10
6 orientation w2 R
7 wire w w1 w2
8 revol r w 0 0 0 0 0 1 360
9 shape s So
10 add r s
11 trotate s b 0 0 0 1 1 0 -40
12 trotate s b 0 0 0 0 0 1 -10
13 tscale b 0 0 0 SCALE1
14 tscale s 0 0 0 SCALE1
15 bfuseblend result s b 1*SCALE1
16  
17 set square 1.29262e+06