puts "============"
puts "OCC22588"
puts "============"
puts ""
#######################################################################
# Revolution with negative volume in some cases
#######################################################################

set BugNumber OCC22588

vertex v1 0 0 0
vertex v12 0 0 160
vertex v13 25 0 25
edge e7 v1 v12
edge e8 v12 v13
edge e9 v13 v1
wire w2 e7 e8 e9
plane pln1 25 0 25 0 1 0 -25 0 -25
mkface face2 pln1 w2
revol result face2 0 0 0 0 0 1 45

set square 5694.99

set nb_v_good 3
set nb_e_good 8
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 21

vinit
vdisplay result
vfit

set only_screen 0

