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

puts "========="
puts "OCC24618"
puts "========="
puts ""
###########################################################
# Embedding vertex in BOP depends on the order of arguments
###########################################################

# Create a cylindrical face
cylinder c1 20
trimv c1 c1 0 50
mkface c1 c1

# Create a vertex
vertex v1 0 20 25

# Build partition
bclearobjects
bcleartools
#---------------#
baddobjects c1 v1
#---------------#
bfillds
bbuild r

# Explode the result compound
explode r

# Check number of shapes
renamevar r_2 result

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

set 2dviewer 1
Commit	Line	Data
362dec17	1	puts "========="
	2	puts "OCC24618"
	3	puts "========="
	4	puts ""
	5	###########################################################
	6	# Embedding vertex in BOP depends on the order of arguments
	7	###########################################################
	8
	9	# Create a cylindrical face
	10	cylinder c1 20
	11	trimv c1 c1 0 50
	12	mkface c1 c1
	13
	14	# Create a vertex
	15	vertex v1 0 20 25
	16
	17	# Build partition
	18	bclearobjects
	19	bcleartools
	20	#---------------#
	21	baddobjects c1 v1
	22	#---------------#
	23	bfillds
	24	bbuild r
	25
	26	# Explode the result compound
	27	explode r
	28
	29	# Check number of shapes
	30	renamevar r_2 result
	31
	32	set nb_v_good 3
	33	set nb_e_good 3
	34	set nb_w_good 1
	35	set nb_f_good 1
	36	set nb_sh_good 0
	37	set nb_sol_good 0
	38	set nb_compsol_good 0
	39	set nb_compound_good 0
	40	set nb_shape_good 8
	41
	42	set 2dviewer 1