5 ####################################################################################
6 # Bug in AIS_TexturedShape::Compute()
7 ####################################################################################
12 restore [locate_data_file OCC23115-bottle.brep] b
15 vtexture b_16 [locate_data_file OCC23385-carrelage1.gif]
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
25 if { ${R_check} != 0 || ${G_check} != 0 || ${B_check} != 0 } {
32 if { ${color_status} != 0 } {
33 puts "Faulty ${BugNumber}"
35 puts "OK ${BugNumber}"