tests/bugs/vis/bug26975

   1 puts "============"
   2 puts "CR26975"
   3 puts "============"
   4 puts ""
   5
   6 ##########################################################################################
   7 puts "Visualization, TKOpenGl - handle triangle strips correctly within Ray-Tracing core"
   8 ##########################################################################################
   9
  10 pload MODELING VISUALIZATION
  11 vclear
  12 vinit View1
  13 vraytrace 0
  14 vdrawparray s trianglestrips v 0 0 0 n 0 0 1 v 0 2 0 n 0 0 1 v 2 0 0 n 0 0 1 v 2 2 0 n 0 0 1
  15 vfit
  16
  17 vdump $imagedir/${casename}_rt_off.png
  18
  19 vraytrace 1
  20
  21 vdump $imagedir/${casename}_rt_on.png
  22
  23 set color  [vreadpixel 250 250 rgb name]
  24 puts $color
  25 if { $color == "BLACK" } {
  26     puts "ERROR: CR26975 is reproduced. Triangle strips incorrect within Ray-Tracing core."
  27 }