[occt.git] / tests / bugs / modalg_1 / bug12507

puts "============"
puts "OCC12507"
puts "============"
puts ""
#######################################################################
# Wrong result of fuse operation
#######################################################################

puts "First shape ..."
pcylinder c 3 3
explode c e

puts "Second shape ..."
tcopy c_3 e3
ttranslate e3 0 6 0

bop c_3 e3
bopfuse result

set nb_v_good 3
set nb_e_good 4
set nb_w_good 1
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 9

set 2dviewer 0
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC12507"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Wrong result of fuse operation
	7	#######################################################################
	8
	9	puts "First shape ..."
	10	pcylinder c 3 3
	11	explode c e
	12
	13	puts "Second shape ..."
	14	tcopy c_3 e3
	15	ttranslate e3 0 6 0
	16
	17	bop c_3 e3
	18	bopfuse result
	19
	20	set nb_v_good 3
	21	set nb_e_good 4
	22	set nb_w_good 1
	23	set nb_f_good 0
	24	set nb_sh_good 0
	25	set nb_sol_good 0
	26	set nb_compsol_good 0
	27	set nb_compound_good 1
	28	set nb_shape_good 9
	29
	30	set 2dviewer 0