[occt.git] / tests / thrusection / specific / A5

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

set BugNumber OCC7166

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

vertex v1 0 0 0
vertex v2 5 5 0
vertex v3 10 0 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
thrusections result ${issolid} ${isruled} v4 w1 v5


set square 485.502

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"
  
}

set 3dviewer 0
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC7166"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Improvement of API of ThruSection
	7	#######################################################################
	8
	9	set BugNumber OCC7166
	10
	11	#
	12	# * v2
	13	# / \
	14	# / \
	15	# / * \
	16	# / v4, v5 \
	17	# ---------------- v3
	18	# v1
	19	#
	20
	21	vertex v1 0 0 0
	22	vertex v2 5 5 0
	23	vertex v3 10 0 0
	24
	25	vertex v4 5 2.5 20
	26	vertex v5 5 2.5 -20
	27
	28	edge e1 v1 v2
	29	edge e2 v2 v3
	30	edge e3 v3 v1
	31
	32	wire w1 e1 e2 e3
	33
	34	set issolid 0
	35	set isruled 1
	36	thrusections result ${issolid} ${isruled} v4 w1 v5
	37
	38
	39	set square 485.502
	40
a4eba920	41	checknbshapes result -vertex 5 -edge 9 -wire 6 -face 6 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 27
3bea4c16	42
	43
	44	set index [lsearch [whatis result] Closed]
	45	if {$index == -1} {
	46	puts "Faulty ${BugNumber} : result is not Closed shape"
	47
	48	}
	49
	50	set 3dviewer 0
	51