tests/bugs/vis/bug23200_1

   1 puts "============"
   2 puts "CR23200"
   3 puts "Check that the shape doesn't have a shading presentation"
   4 puts "due to its triangulation isn't computed in case of disabled auto triangulation feature."
   5 puts "But in this case the shape should have special wireframe presentation."
   6 puts "============"
   7 puts ""
   8
   9 vinit View1
  10 vclear
  11 vaxo
  12 vsetdispmode 1
  13 vdefaults -autoTriang off
  14 pcone c 0 5 10
  15 vdisplay c
  16 vfit
  17
  18 set aColor [vreadpixel 200 77 rgb name]
  19 vdump $imagedir/${casename}_shape_pres.png
  20
  21 if {"$aColor" != "GRAY75"} {
  22   puts "Error: shading presentation of shape is incorrect"
  23 }