mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +03:00
ccadc126ba
Usage of QAGetPixelColor were checked and corrected. Using simple comparison instead of regexp. Improved usage of command vreadpixel for standard colors. Command QAGetPixelColor was dropped from TKQADraw. Procedures "checkcolor" and auxiliary "checkpoint" were moved to DrawResources/TestCommands.tcl Some test cases using "checkcolor" for picking line color were simplified. Procedures checkcolor and checkpoint were changed to handle situation when pixel is out of view. Removed unnecessary use of command "vaspects -setwidth" in tests. Revert -setwidth change in test bugs/vis/bug23525
40 lines
790 B
Plaintext
Executable File
40 lines
790 B
Plaintext
Executable File
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
|
|
|