[occt.git] / tests / bugs / modalg_7 / bug29496

puts "========"
puts "OCC29496"
puts "========"
puts ""
#################################################
# No intersection curve between faces if starting points are given
#################################################

restore [locate_data_file bug29488_shapes.brep] s
explode s shell
set i 1

explode s_2 f; copy s_2_27 f1
explode s_6 f; copy s_6_20 f2
bsection r$i f1 f2
checknbshapes r$i -vertex 2 -edge 1
checkprops r$i -l 2.14991

incr i

explode s_2 f; copy s_2_27 f1
explode s_7 f; copy s_7_8 f2
bsection r$i f1 f2
checknbshapes r$i -vertex 2 -edge 1
checkprops r$i -l 2.15901

incr i

explode s_3 f; copy s_3_27 f1
explode s_7 f; copy s_7_8 f2
bsection r$i f1 f2
checknbshapes r$i -vertex 2 -edge 1
checkprops r$i -l 2.15901

incr i

explode s_3 f; copy s_3_27 f1
explode s_6 f; copy s_6_16 f2
bsection r$i f1 f2
checknbshapes r$i -vertex 2 -edge 1
checkprops r$i -l 2.14991

incr i

explode s_2 f; copy s_2_26 f1
explode s_7 f; copy s_7_2 f2
bsection r$i f1 f2
checknbshapes r$i -vertex 2 -edge 1
checkprops r$i -l 2.22733

incr i

explode s_3 f; copy s_3_26 f1
explode s_7 f; copy s_7_2 f2
bsection r$i f1 f2
checknbshapes r$i -vertex 2 -edge 1
checkprops r$i -l 2.22733
Commit	Line	Data
7797eb38	1	puts "========"
	2	puts "OCC29496"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# No intersection curve between faces if starting points are given
	7	#################################################
	8
	9	restore [locate_data_file bug29488_shapes.brep] s
	10	explode s shell
	11	set i 1
	12
	13	explode s_2 f; copy s_2_27 f1
	14	explode s_6 f; copy s_6_20 f2
	15	bsection r$i f1 f2
	16	checknbshapes r$i -vertex 2 -edge 1
	17	checkprops r$i -l 2.14991
	18
	19	incr i
	20
	21	explode s_2 f; copy s_2_27 f1
	22	explode s_7 f; copy s_7_8 f2
	23	bsection r$i f1 f2
	24	checknbshapes r$i -vertex 2 -edge 1
	25	checkprops r$i -l 2.15901
	26
	27	incr i
	28
	29	explode s_3 f; copy s_3_27 f1
	30	explode s_7 f; copy s_7_8 f2
	31	bsection r$i f1 f2
	32	checknbshapes r$i -vertex 2 -edge 1
	33	checkprops r$i -l 2.15901
	34
	35	incr i
	36
	37	explode s_3 f; copy s_3_27 f1
	38	explode s_6 f; copy s_6_16 f2
	39	bsection r$i f1 f2
	40	checknbshapes r$i -vertex 2 -edge 1
	41	checkprops r$i -l 2.14991
	42
	43	incr i
	44
	45	explode s_2 f; copy s_2_26 f1
	46	explode s_7 f; copy s_7_2 f2
	47	bsection r$i f1 f2
	48	checknbshapes r$i -vertex 2 -edge 1
	49	checkprops r$i -l 2.22733
	50
	51	incr i
	52
	53	explode s_3 f; copy s_3_26 f1
	54	explode s_7 f; copy s_7_2 f2
	55	bsection r$i f1 f2
	56	checknbshapes r$i -vertex 2 -edge 1
	57	checkprops r$i -l 2.22733