tests/bugs/vis/bug5988

   1 puts "============"
   2 puts "OCC5988"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # A textured shape (AIS_TextureShape) becomes black if we display an AIS_PlaneTrihedron with it
   7 #######################################################################
   8
   9 set BugNumber OCC5988
  10
  11 vinit
  12 vclear
  13 box box 100 100 100
  14 vdisplay box
  15 vfit
  16 puts "display box"
  17
  18 set x 200
  19 set y 200
  20 checkcolor $x $y 0 0 0
  21
  22 puts "display trihedron"
  23 vtrihedron vtr
  24
  25 puts "display textured box"
  26 vtexture box [locate_data_file OCC5988_2d_floor.rgb]
  27
  28 set x 200
  29 set y 200
  30 if { "[vreadpixel $x $y rgb name]" != "BLACK" } {
  31     puts "box is not black - OK"
  32     puts "OK ${BugNumber}"
  33 } else {
  34     puts "box is black - Faulty"
  35     puts "Faulty ${BugNumber}"
  36 }
  37
  38 set only_screen 1
  39