0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / modalg_1 / bug15036
CommitLineData
3bea4c16 1puts "============"
2puts "OCC15936"
3puts "============"
4puts ""
5#######################################################################
6# Wrong shape build by revolution algorithm
7#######################################################################
8
9vertex v1 0 725 20
10vertex v2 0 709 20
11vertex v3 0 709 230
12vertex v4 0 645 230
13vertex v5 0 645 320
14vertex v6 0 805 320
15vertex v7 0 805 230
16vertex v8 0 741 230
17vertex v9 0 741 20
18edge e12 v1 v2
19edge e23 v2 v3
20edge e34 v3 v4
21edge e45 v4 v5
22edge e56 v5 v6
23edge e67 v6 v7
24edge e78 v7 v8
25edge e89 v8 v9
26edge e91 v9 v1
27wire w e12 e23 e34 e45 e56 e67 e78 e89 e91
28mkplane fr w 1
29
30revol result fr 0.001428571428572667 640.5285714285715 20 -1.691188905560395E-05 0.9999999998569939 0 360
31
32set square 1.03597e+06
a4eba920 33checknbshapes result -vertex 9 -edge 14 -wire 13 -face 9 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 47
3bea4c16 34set 2dviewer 0