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