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
34 lines
772 B
Plaintext
Executable File
34 lines
772 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC23102"
|
|
puts "================"
|
|
puts ""
|
|
###################################################################################################
|
|
# Change the algorithm of rendering the 3d viewer background using tiled texture
|
|
###################################################################################################
|
|
|
|
set BugNumber OCC23102
|
|
|
|
vinit
|
|
vsetbg [locate_data_file OCC23102.bmp] TILED
|
|
|
|
set x1 58
|
|
set y1 4
|
|
set R_bg 0.70196002721786499
|
|
set G_bg 0.78039199113845825
|
|
set B_bg 0.86274499999999998
|
|
|
|
set WrongColor "$R_bg $G_bg $B_bg"
|
|
|
|
set Color [vreadpixel ${x1} ${y1} rgb]
|
|
|
|
#Resume
|
|
puts ""
|
|
if { "[vreadpixel ${x1} ${y1} rgb]" != "$WrongColor" } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set only_screen 1
|
|
|