puts "================"
puts "OCC22818"
puts "================"
puts ""
#######################################################################################
# Wrong triangulation of Revolution surface with slice angle <= 180 degree
######################################################################################

set BugNumber OCC22818

pcone result 10 0 10 180

checkshape result

set square 479.224

set nb_v_good 4
set nb_e_good 7
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
vsetdispmode 1
vfit
vzfit

# relative tolerance (%)
set rel_tol 1
set area_eps 0

set only_screen 1