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
47 lines
1.1 KiB
Plaintext
Executable File
47 lines
1.1 KiB
Plaintext
Executable File
|
|
puts "================"
|
|
puts "OCC22906"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Gradient background is clipped by planes
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22906
|
|
set x1 73
|
|
set y1 338
|
|
|
|
set x2 144
|
|
set y2 23
|
|
|
|
set x3 377
|
|
set y3 123
|
|
|
|
set x4 87
|
|
set y4 232
|
|
|
|
vinit
|
|
vsetgradientbg 255 0 0 0 0 255 4
|
|
set Color1 [vreadpixel ${x1} ${y1} rgb]
|
|
set Color2 [vreadpixel ${x2} ${y2} rgb]
|
|
set Color3 [vreadpixel ${x3} ${y3} rgb]
|
|
set Color4 [vreadpixel ${x4} ${y4} rgb]
|
|
vclipplane create pln1
|
|
vclipplane change pln1 equation 1 0 0 -0.1
|
|
vclipplane set pln1 view Driver1/Viewer1/View1
|
|
box b 100 100 100
|
|
vdisplay b
|
|
vsetdispmode 1
|
|
set ColorRes1 [vreadpixel ${x1} ${y1} rgb]
|
|
set ColorRes2 [vreadpixel ${x2} ${y2} rgb]
|
|
set ColorRes3 [vreadpixel ${x3} ${y3} rgb]
|
|
set ColorRes4 [vreadpixel ${x4} ${y4} rgb]
|
|
|
|
if { ${Color1} == ${ColorRes1} && ${Color2} == ${ColorRes2} && ${Color3} == ${ColorRes3} && ${Color4} == ${ColorRes4}} {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set only_screen 1
|