tests/bugs/vis/bug26014

   1 puts "============"
   2 puts "CR26014"
   3 puts "Check that the colored shading 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 explode c F
  19 vaspects c -subshapes c_2 -setcolor RED
  20
  21 set aColorWireframe [vreadpixel 200 31 rgb name]
  22 set aColorShaded [vreadpixel 180 60 rgb name]
  23
  24 vdump $imagedir/${casename}_shape_pres.png
  25
  26 if {"$aColorWireframe" != "RED" || "$aColorShaded" != "BLACK"} {
  27   puts "Error: presentation of shape is incorrect"
  28 }