puts "============"
puts "OCC15936"
puts "============"
puts ""
#######################################################################
# Wrong shape build by revolution algorithm
#######################################################################

vertex v1 0 725 20
vertex v2 0 709 20
vertex v3 0 709 230
vertex v4 0 645 230
vertex v5 0 645 320
vertex v6 0 805 320
vertex v7 0 805 230
vertex v8 0 741 230
vertex v9 0 741 20
edge e12 v1 v2
edge e23 v2 v3
edge e34 v3 v4
edge e45 v4 v5
edge e56 v5 v6
edge e67 v6 v7 
edge e78 v7 v8
edge e89 v8 v9
edge e91 v9 v1
wire w e12 e23 e34 e45 e56 e67 e78 e89 e91
mkplane fr w 1

revol result fr 0.001428571428572667 640.5285714285715 20 -1.691188905560395E-05 0.9999999998569939 0 360

checkprops result -s 1.03597e+06 
checkshape result
checknbshapes result -vertex 9 -edge 14 -wire 13 -face 9 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 47
checkview -display result -2d -path ${imagedir}/${test_image}.png