tests/bugs/mesh/bug25628

   1 puts "========="
   2 puts "CR25628: BRepMesh fails to mesh face with open wire, considered as correct by checkshape"
   3 puts "========="
   4 puts ""
   5
   6 pload XDE
   7
   8 stepread [locate_data_file bug25628_twr_hull.stp] a *
   9 renamevar a_1 a
  10 explode a f
  11
  12 checkshape a_36
  13
  14 incmesh a_36 0.1
  15
  16 set log [tricheck a_36]
  17 if { [llength $log] != 0 } {
  18   puts "ERROR: OCC25628 is reproduced. Nontriangulated face have been detected."
  19 } else {
  20   puts "Mesh is OK"
  21 }
  22
  23 checktrinfo a_36 -tri 37 -nod 39
  24
  25 vinit
  26 vdisplay a_36
  27 vsetdispmode a_36 1
  28 vleft
  29 vfit
  30
  31 checkview -screenshot -3d -path ${imagedir}/${test_image}.png