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

puts "========="
puts "CR25479"
puts "========="
puts ""
###############################################
# BRepTools::Clean() cleans all edge polygons, even related to different shapes
###############################################

restore [locate_data_file bug25469_common_edge.brep] a

tclean a
incmesh a 0.004

explode a

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

tclean a_2
set report [tricheck a_1]
if {$report != ""} {
   puts "Error: cleaning mesh 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 "CR25479"
	3	puts "========="
	4	puts ""
	5	###############################################
	6	# BRepTools::Clean() cleans all edge polygons, even related to different shapes
	7	###############################################
	8
	9	restore [locate_data_file bug25469_common_edge.brep] a
	10
	11	tclean a
	12	incmesh a 0.004
	13
	14	explode a
	15
	16	incmesh a_1 0.04
	17	set report [tricheck a_1]
	18	if {$report != ""} {
	19	puts "Error: incorrect meshing of shape"
	20	}
	21
	22	tclean a_2
	23	set report [tricheck a_1]
	24	if {$report != ""} {
	25	puts "Error: cleaning mesh of shape 2 corrupts mesh of shape 1"
	26	}
	27
	28	vinit
	29	vsetdispmode 1
	30	vdisplay a_1 a_2
	31	vfit
	32
	33	set only_screen 1