puts "============"
puts "OCC7166"
puts "============"
puts ""
#######################################################################
# Improvement of API of ThruSection
#######################################################################

set BugNumber OCC7166

#
#     * v3
#     | \
#     |   \
#     |     \
#     |       \
#     |       /* v2
#     |     /
#     |   /    * v4, v5
#     | /
#     *
#     v1
#

vertex v1 0 0 0
vertex v2 5 5 0
vertex v3 0 10 0

vertex v4 5 2.5 20
vertex v5 5 2.5 -20

edge e1 v1 v2
edge e2 v2 v3
edge e3 v3 v1

wire w1 e1 e2 e3

set issolid 0
set isruled 1
setflags w1 locked
setflags v4 locked
setflags v5 locked

thrusections result ${issolid} ${isruled} v4 w1 v5 -safe


checkprops result -s 490.101

checknbshapes result -vertex 5 -edge 9 -wire 6 -face 6 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 27
set index [lsearch [whatis result] Closed]
if {$index == -1} {
  puts "Faulty ${BugNumber} : result is not Closed shape"
}