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

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

restore [locate_data_file bug25469_common_edge.brep] a

explode a

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

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

vinit
vsetdispmode 1
vdisplay a_1 a_2
vfit

set only_screen 1
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
	13	incmesh a_1 0.04
	14	set report [tricheck a_1]
	15	if {$report != ""} {
	16	puts "Error: incorrect meshing of shape 1"
	17	}
	18
	19	incmesh a_2 0.04
	20	set report [tricheck a_1]
	21	if {$report != ""} {
	22	puts "Error: meshing of shape 2 corrupts mesh of shape 1"
	23	}
	24
	25	vinit
	26	vsetdispmode 1
	27	vdisplay a_1 a_2
	28	vfit
	29
	30	set only_screen 1