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

checkprops result -s 479.224 

checknbshapes result -vertex 4 -edge 7 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 21
vinit
vdisplay result
vsetdispmode 1
vfit
vzfit

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

checkview -screenshot -3d -path ${imagedir}/${test_image}.png