mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
# test for #21593: compare number of triangles/nodes
|
|
# produced by BRepMesh for face with internal vertices
|
|
# depening on value of InternalVerticesMode flag.
|
|
|
|
restore [locate_data_file bug21593_internal_vertices.brep] a
|
|
|
|
# enable internal vertices mode
|
|
tclean a
|
|
incmesh a 0.1
|
|
set trinfo_a [trinfo a]
|
|
regexp {([0-9]+) triangles} $trinfo_a str nbtriangles_a
|
|
regexp {([0-9]+) nodes} $trinfo_a str nbnodes_a
|
|
|
|
# check triangles
|
|
if { $nbtriangles_a != 10 } {
|
|
puts "Error: incorrect number of triangles in case of internal vertices mode is ON ($nbtriangles_a)"
|
|
}
|
|
|
|
# check nodes
|
|
if { $nbnodes_a != 8 } {
|
|
puts "Error: incorrect number of nodes in case of internal vertices mode is ON ($nbnodes_a)"
|
|
}
|
|
|
|
|
|
# disable internal vertices mode
|
|
tclean a
|
|
incmesh a 0.1 -int_vert_off
|
|
set trinfo_a [trinfo a]
|
|
regexp {([0-9]+) triangles} $trinfo_a str nbtriangles_a
|
|
regexp {([0-9]+) nodes} $trinfo_a str nbnodes_a
|
|
|
|
# check triangles
|
|
if { $nbtriangles_a != 2 } {
|
|
puts "Error: incorrect number of triangles in case of internal vertices mode is OFF ($nbtriangles_a)"
|
|
}
|
|
|
|
# check nodes
|
|
if { $nbnodes_a != 4 } {
|
|
puts "Error: incorrect number of nodes in case of internal vertices mode is OFF ($nbnodes_a)"
|
|
}
|
|
|