tests/bugs/vis/bug23385

   1 puts "============"
   2 puts "OCC23385"
   3 puts "============"
   4 puts ""
   5 ####################################################################################
   6 # Bug in AIS_TexturedShape::Compute()
   7 ####################################################################################
   8
   9 set BugNumber OCC23385
  10
  11 vinit
  12 restore [locate_data_file OCC23115-bottle.brep] b
  13 explode b F
  14 vdisplay b_16
  15 vtexture b_16 [locate_data_file OCC23385-carrelage1.gif]
  16 vtexrepeat b_16 3 2
  17 vsetdispmode b_16 1
  18 vfit
  19
  20 if { "[vreadpixel 85 73 rgb name]" != "BLACK" } {
  21     puts "OK ${BugNumber}"
  22 } else {
  23     puts "Faulty ${BugNumber}"
  24 }
  25
  26 set only_screen 1
  27
  28
  29
  30