tests/bugs/mesh/bug26664

   1 puts "========"
   2 puts "OCC26664"
   3 puts "========"
   4 puts ""
   5 #################################
   6 # Triangulating a very small polygon fails
   7 #################################
   8
   9 restore [locate_data_file bug26664_f.brep] a
  10
  11 #1
  12 vinit
  13 vsetdispmode 1
  14 vdisplay a
  15 vfit
  16 vdump ${imagedir}/${casename}_1.png
  17
  18 #2
  19 incmesh a 1e-4
  20 vdisplay a
  21 vdump ${imagedir}/${casename}_2.png
  22
  23 #3
  24 set log2 [incmesh a 1e-4 -adaptive]
  25 vdisplay a
  26 vdump ${imagedir}/${casename}_3.png
  27
  28 if { [regexp "NoError" ${log2}] == 1 } {
  29    puts "OK : Triangulating a very small polygon is good"
  30 } else {
  31    puts "Error : Triangulating a very small polygon fails"
  32 }