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 set color [QAGetPixelColor 85 73]
  21 regexp {RED +: +([-0-9.+eE]+)} $color full R_check
  22 regexp {GREEN +: +([-0-9.+eE]+)} $color full G_check
  23 regexp {BLUE +: +([-0-9.+eE]+)} $color full B_check
  24 set color_status 0
  25 if { ${R_check} != 0 || ${G_check} != 0 || ${B_check} != 0 } {
  26     set color_status 0
  27 } else {
  28     set color_status 1
  29 }
  30
  31 puts ""
  32 if { ${color_status} != 0 } {
  33     puts "Faulty ${BugNumber}"
  34 } else {
  35     puts "OK ${BugNumber}"
  36 }
  37
  38 set only_screen 1
  39
  40
  41
  42