tests/bugs/vis/bug23200

   1 puts "============"
   2 puts "CR23200"
   3 puts "Check that the shape is automatic re-triangulated with deflection-check logic"
   4 puts "in case of enabled auto triangulation feature (its own triangulation can be lost)."
   5 puts "And it keeps its already computed triangulation"
   6 puts "in case of disabled auto triangulation feature."
   7 puts "============"
   8 puts ""
   9
  10 set aDefaultShape $imagedir/${casename}_shape.png
  11 set aShapeAutoTr $imagedir/${casename}_shape_auto_triangulation.png
  12 set aShapeNotAutoTr $imagedir/${casename}_shape_not_auto_triangulation.png
  13
  14 vinit View1
  15 vclear
  16 vaxo
  17 vsetdispmode 1
  18 vdefaults -autoTriang on
  19 psphere s 0.5
  20 vdisplay s
  21 vfit
  22 vdump $aDefaultShape
  23
  24 vclear
  25 tclean s
  26 incmesh s 0.1 -a 45
  27 set tri_info [trinfo s]
  28 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triIncmesh1
  29
  30 vdisplay s
  31
  32 checktrinfo s -tri !${triIncmesh1}
  33
  34 vfit
  35 vdump $aShapeAutoTr
  36
  37 vclear
  38 vdefaults -autoTriang off
  39 tclean  s
  40 incmesh s 0.1 -a 45
  41 set tri_info [trinfo s]
  42 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triIncmesh2
  43
  44 vdisplay s
  45
  46 checktrinfo s -tri ${triIncmesh2}
  47
  48 vfit
  49 vdump $aShapeNotAutoTr