Adding test cases from chl grid
[occt.git] / tests / bugs / modalg / bug22588
1 puts "============"
2 puts "OCC22588"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Revolution with negative volume in some cases
7 #######################################################################
8
9 set BugNumber OCC22588
10
11 vertex v1 0 0 0
12 vertex v12 0 0 160
13 vertex v13 25 0 25
14 edge e7 v1 v12
15 edge e8 v12 v13
16 edge e9 v13 v1
17 wire w2 e7 e8 e9
18 plane pln1 25 0 25 0 1 0 -25 0 -25
19 mkface face2 pln1 w2
20 revol result face2 0 0 0 0 0 1 45
21
22 set square 5694.99
23
24 set nb_v_good 3
25 set nb_e_good 8
26 set nb_w_good 4
27 set nb_f_good 4
28 set nb_sh_good 1
29 set nb_sol_good 1
30 set nb_compsol_good 0
31 set nb_compound_good 0
32 set nb_shape_good 21
33
34 vinit
35 vdisplay result
36 vfit
37
38 set only_screen 0
39