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

puts "========"
puts "OCC29544"
puts "========"
puts ""
#################################################
# Regression vs 7.2.0: ShapeUpgrade_UnifySameDomain fails to merge linear edges
#################################################

# create edge
line l 0 0 0 1 0 0
mkedge e l 0 10

# split edge by the vertex
vertex v 5 2.e-7 0
bclearobjects
bcleartools
baddobjects e
baddtools v
bfillds
bsplit sp

# unify the splits of the edge
unifysamedom result sp

checkshape result
checkprops result -l 10
checknbshapes result -vertex 2 -edge 1
Commit	Line	Data
06084bb8	1	puts "========"
	2	puts "OCC29544"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Regression vs 7.2.0: ShapeUpgrade_UnifySameDomain fails to merge linear edges
	7	#################################################
	8
	9	# create edge
	10	line l 0 0 0 1 0 0
	11	mkedge e l 0 10
	12
	13	# split edge by the vertex
	14	vertex v 5 2.e-7 0
	15	bclearobjects
	16	bcleartools
	17	baddobjects e
	18	baddtools v
	19	bfillds
	20	bsplit sp
	21
	22	# unify the splits of the edge
	23	unifysamedom result sp
	24
	25	checkshape result
	26	checkprops result -l 10
	27	checknbshapes result -vertex 2 -edge 1