0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / buildevol / E3
1 beziercurve w 3 0 0 0 5 10 0 10 15 0
2 mkedge w w
3 wire w w
4 polyline profile 0 0 0  10 0 0  10 0 10  0 0 10  0 0 0
5 mkplane profile profile
6 pipe s w profile
7 tscale s 0 0 0 SCALE1
8 fsameparameter s SCALE1*1.e-7
9 explode s E
10 mkevol result s
11 updatevol s_6 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
12 buildevol
13
14 set square 81299.7