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

puts "========="
puts "OCC24597"
puts "========="
puts ""
###########################################################
# Missing internal vertex in the result of General Fuse Operation
###########################################################

cylinder c1 20
trimv c1 c1 0 50
mkface b1 c1
vertex v1 0 20 25
orientation v1 I
add v1 b1
box b2 -30 -30 5 60 60 40

# add the arguments
bclearobjects
bcleartools
baddobjects b1 b2

# intersection step 
bfillds

# building step
bbuild result

set square 33136.3

set nb_v_good 13
set nb_e_good 19
set nb_w_good 13
set nb_f_good 11
set nb_sh_good 2
set nb_sol_good 2
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 61

set 2dviewer 1
Commit	Line	Data
50ba108c	1	puts "========="
	2	puts "OCC24597"
	3	puts "========="
	4	puts ""
	5	###########################################################
	6	# Missing internal vertex in the result of General Fuse Operation
	7	###########################################################
	8
	9	cylinder c1 20
	10	trimv c1 c1 0 50
	11	mkface b1 c1
	12	vertex v1 0 20 25
	13	orientation v1 I
	14	add v1 b1
	15	box b2 -30 -30 5 60 60 40
	16
	17	# add the arguments
	18	bclearobjects
	19	bcleartools
	20	baddobjects b1 b2
	21
	22	# intersection step
	23	bfillds
	24
	25	# building step
	26	bbuild result
	27
	28	set square 33136.3
	29
	30	set nb_v_good 13
	31	set nb_e_good 19
	32	set nb_w_good 13
	33	set nb_f_good 11
	34	set nb_sh_good 2
	35	set nb_sol_good 2
	36	set nb_compsol_good 0
	37	set nb_compound_good 1
	38	set nb_shape_good 61
	39
	40	set 2dviewer 1