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

puts "================"
puts "CR23614"
puts "================"
puts ""
#####################################################################
# BRepMesh creates incorrect triangulation on the attached models
#####################################################################

restore [locate_data_file bug23614_face2.brep] f2
tclean f2
incmesh f2 0.01
set info [trinfo f2]
regexp {([0-9]+) triangles} $info full tri
regexp {([0-9]+) nodes} $info full nod

# compare number of triangles
if { $tri == 0 } {
    puts "Error: face contains $tri triangles"
} else {
    puts "OK: face contains $tri triangles"
}

# compare number of nodes
if { $nod == 0 } {
    puts "Error : face contains $nod nodes"
} else {
    puts "OK: face contains $nod nodes"
}

top
fit
triangles f2
set only_screen_axo 1
Commit	Line	Data
55f1e74d	1	puts "================"
	2	puts "CR23614"
	3	puts "================"
	4	puts ""
	5	#####################################################################
	6	# BRepMesh creates incorrect triangulation on the attached models
	7	#####################################################################
	8
	9	restore [locate_data_file bug23614_face2.brep] f2
	10	tclean f2
	11	incmesh f2 0.01
	12	set info [trinfo f2]
	13	regexp {([0-9]+) triangles} $info full tri
	14	regexp {([0-9]+) nodes} $info full nod
	15
	16	# compare number of triangles
	17	if { $tri == 0 } {
	18	puts "Error: face contains $tri triangles"
	19	} else {
	20	puts "OK: face contains $tri triangles"
	21	}
	22
	23	# compare number of nodes
	24	if { $nod == 0 } {
	25	puts "Error : face contains $nod nodes"
	26	} else {
	27	puts "OK: face contains $nod nodes"
	28	}
	29
	30	top
	31	fit
	32	triangles f2
	33	set only_screen_axo 1
	34
	35