tests/bugs/vis/bug25814

   1 puts "============"
   2 puts "CR25814"
   3 puts "Check that the discretization of the sub-shape is identical in shaded and wireframe modes"
   4 puts "if the whole shape was already displayed"
   5 puts "============"
   6 puts ""
   7
   8 set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png
   9 set aShapeTriang $imagedir/${casename}_shape_triangulation.png
  10 set aDiff $imagedir/${casename}_diff.png
  11
  12 pcylinder c 100 350
  13 explode c f
  14
  15 vinit View1 w=900 h=900
  16 vclear
  17 vsetdispmode 1
  18
  19 vdisplay c_3
  20 vfit
  21 vzoom 4
  22 vtranslateview 70 20 0
  23 vmoveto 200 200
  24 vdump $aSubShapeTriang
  25
  26 vclear
  27 tclean c_3
  28
  29 vdisplay c
  30 vfit
  31 vclear
  32
  33 vdisplay c_3
  34 vfit
  35 vzoom 4
  36 vtranslateview 70 20 0
  37 vmoveto 200 200
  38 vdump $aShapeTriang
  39
  40 set aDiffRes [diffimage $aSubShapeTriang $aShapeTriang 0.1 0 0 $aDiff]
  41 if {$aDiffRes != 0} {
  42   puts "ERROR : Test failed: there is a difference between images. Discretization of the sub-shape in wireframe mode is incorrect"
  43 }