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

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
thrusections result ${issolid} ${isruled} v4 w1 v5


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

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