[occt.git] / tests / bugs / mesh / bug25469_2

puts "========="
puts "CR25469"
puts "========="
puts ""
###############################################
# BRepMesh corrupts triangulation of another not connected shape
###############################################

restore [locate_data_file bug25469_common_edge.brep] a

explode a
explode a_1
explode a_2

ttranslate a_2_1 -100 -220 0

incmesh a_1_1 0.04
set report [tricheck a_1_1]
if {$report != ""} {
   puts "Error: incorrect meshing of shape 1"
}

incmesh a_2_1 0.04
set report [tricheck a_1_1 a_2_1]
if {$report != ""} {
   puts "Error: meshing of shape 2 corrupts mesh of shape 1"
}

vinit
vsetdispmode 1
vdisplay a_1_1 a_2_1
vfit

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
80d659a5	1	puts "========="
	2	puts "CR25469"
	3	puts "========="
	4	puts ""
	5	###############################################
	6	# BRepMesh corrupts triangulation of another not connected shape
	7	###############################################
	8
	9	restore [locate_data_file bug25469_common_edge.brep] a
	10
	11	explode a
	12	explode a_1
	13	explode a_2
	14
	15	ttranslate a_2_1 -100 -220 0
	16
	17	incmesh a_1_1 0.04
	18	set report [tricheck a_1_1]
	19	if {$report != ""} {
	20	puts "Error: incorrect meshing of shape 1"
	21	}
	22
	23	incmesh a_2_1 0.04
	24	set report [tricheck a_1_1 a_2_1]
	25	if {$report != ""} {
	26	puts "Error: meshing of shape 2 corrupts mesh of shape 1"
	27	}
	28
	29	vinit
	30	vsetdispmode 1
	31	vdisplay a_1_1 a_2_1
	32	vfit
	33
5747059b	34	checkview -screenshot -3d -path ${imagedir}/${test_image}.png