0023371: Expression which check of change of square/volume/length in end files doesn...
[occt.git] / tests / draft / angle / I6
1 #I6----------------------------------------------
2 polyline p 0 0 5  0 0 0  20 0 0  20 0 5  
3 beziercurve bc 4  20 0 5  15 0 6  5 0 4  0 0 5
4 mkedge bc bc
5 wire p p bc
6 mkplane p p
7 prism p p 0 20 0
8 profile pf o 12 9 0 p 0 -1 0 1 0 0 l 3 t 0 15 \
9 t -3 0  
10 revol pr pf 10 9 0 0 0 1 180
11 bfuse f p pr
12 nexplode f f
13 depouille result f 0 0 1 f_7 1 0 0 15 0 0 1
14
15 set square 1482.57