[occt.git] / tests / bugs / vis / bug5988

puts "============"
puts "OCC5988"
puts "============"
puts ""
#######################################################################
# A textured shape (AIS_TextureShape) becomes black if we display an AIS_PlaneTrihedron with it
#######################################################################

set BugNumber OCC5988

vinit
vclear
box box 100 100 100
vdisplay box
vfit
puts "display box"

set x 200
set y 200
checkcolor $x $y 0 0 0

puts "display trihedron"
vtrihedron vtr

puts "display textured box"
vtexture box [locate_data_file OCC5988_2d_floor.rgb]

set x 200
set y 200
if { "[vreadpixel $x $y rgb name]" != "BLACK" } {
    puts "box is not black - OK"
    puts "OK ${BugNumber}"
} else {
    puts "box is black - Faulty"
    puts "Faulty ${BugNumber}"
}

set only_screen 1
Commit	Line	Data
3bea4c16	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"
5d1833ef	26	vtexture box [locate_data_file OCC5988_2d_floor.rgb]
3bea4c16	27
	28	set x 200
	29	set y 200
ccadc126	30	if { "[vreadpixel $x $y rgb name]" != "BLACK" } {
3bea4c16	31	puts "box is not black - OK"
	32	puts "OK ${BugNumber}"
	33	} else {
	34	puts "box is black - Faulty"
	35	puts "Faulty ${BugNumber}"
	36	}
3bea4c16	37
	38	set only_screen 1
	39