0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / bfuseblend / A7
1 box b -20 -20 -20 40 40 20
2 ellipse w 0 0 0 10 5
3 mkedge w w
4 wire w w
5 mkplane w w
6 prism s w 2 0 30
7 tscale b 0 0 0 SCALE1
8 tscale s 0 0 0 SCALE1
9 explode s E
10 bfuseblend result s b 1*SCALE1
11
12 set square 783698