[occt.git] / tests / bugs / modalg_5 / bug24037_2

puts "================"
puts "OCC24037"
puts "================"
puts ""
#######################################################################
# Wrong result done by General Fuse algorithm
#######################################################################

restore [locate_data_file bug24037_coude_sain.brep] b1
restore [locate_data_file bug24037_plans_bloc.brep] b2

explode b1 so
copy b1_1 b1
explode b2 f
copy b2_3 b2
don b1 b2
bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbuild result

nbshapes result -t
#the number of solids should be 2 instead of 1

set nbsh_t 1
set nb_v_good 16
set nb_e_good 24
set nb_w_good 13
set nb_f_good 12
set nb_sh_good 2
set nb_sol_good 2
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 70

set 3dviewer 1
Commit	Line	Data
b20eeb13	1	puts "================"
	2	puts "OCC24037"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Wrong result done by General Fuse algorithm
	7	#######################################################################
	8
	9	restore [locate_data_file bug24037_coude_sain.brep] b1
	10	restore [locate_data_file bug24037_plans_bloc.brep] b2
	11
	12	explode b1 so
	13	copy b1_1 b1
	14	explode b2 f
	15	copy b2_3 b2
	16	don b1 b2
	17	bclearobjects
	18	bcleartools
	19	baddobjects b1
	20	baddtools b2
	21	bfillds
	22	bbuild result
	23
	24	nbshapes result -t
	25	#the number of solids should be 2 instead of 1
	26
	27	set nbsh_t 1
	28	set nb_v_good 16
	29	set nb_e_good 24
	30	set nb_w_good 13
	31	set nb_f_good 12
	32	set nb_sh_good 2
	33	set nb_sol_good 2
	34	set nb_compsol_good 0
	35	set nb_compound_good 1
	36	set nb_shape_good 70
	37
	38	set 3dviewer 1