0023087: Upgrade of the OCCT test system
[occt.git] / tests / blend / simple / I4
1 circle w -20 0 0 20
2 mkedge w w 0 pi/2
3 wire w w
4 polyline profile 0 0 0  10 0 0  5 0 5  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 blend result s 1*SCALE1 s_6 1*SCALE1 s_8 1*SCALE1 s_5
11
12 set square 90939.5