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

set BugNumber OCC22818

pcone result 10 0 20 180
incmesh result 0.1
triangles result
isos result 0

checkshape result

checkprops result -s 708.32 

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
