tests/bugs/mesh/bug21593

   1 # test for #21593: compare number of triangles/nodes
   2 # produced by BRepMesh for face with internal vertices
   3 # depening on value of InternalVerticesMode flag.
   4
   5 restore [locate_data_file bug21593_internal_vertices.brep] a
   6
   7 # enable internal vertices mode
   8 tclean a
   9 incmesh a 0.1
  10 set trinfo_a [trinfo a]
  11 regexp {([0-9]+) triangles} $trinfo_a str nbtriangles_a
  12 regexp {([0-9]+) nodes} $trinfo_a str nbnodes_a
  13
  14 # check triangles
  15 if { $nbtriangles_a != 10 } {
  16     puts "Error: incorrect number of triangles in case of internal vertices mode is ON ($nbtriangles_a)"
  17 }
  18
  19 # check nodes
  20 if { $nbnodes_a != 8 } {
  21     puts "Error: incorrect number of nodes in case of internal vertices mode is ON ($nbnodes_a)"
  22 }
  23
  24
  25 # disable internal vertices mode
  26 tclean a
  27 incmesh a 0.1 -int_vert_off
  28 set trinfo_a [trinfo a]
  29 regexp {([0-9]+) triangles} $trinfo_a str nbtriangles_a
  30 regexp {([0-9]+) nodes} $trinfo_a str nbnodes_a
  31
  32 # check triangles
  33 if { $nbtriangles_a != 2 } {
  34     puts "Error: incorrect number of triangles in case of internal vertices mode is OFF ($nbtriangles_a)"
  35 }
  36
  37 # check nodes
  38 if { $nbnodes_a != 4 } {
  39     puts "Error: incorrect number of nodes in case of internal vertices mode is OFF ($nbnodes_a)"
  40 }
  41