mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
30 lines
790 B
Plaintext
30 lines
790 B
Plaintext
puts "============"
|
|
puts "OCC24717"
|
|
puts "============"
|
|
puts ""
|
|
####################################################################################
|
|
# TKOpenGl - globally defined clipping planes blink when operating with view
|
|
# Test checks that state of clippings always corresponds to a state of viewed
|
|
# scene.
|
|
####################################################################################
|
|
|
|
set check_x 204
|
|
set check_y 204
|
|
|
|
vinit View1
|
|
vsetdispmode 1
|
|
box b 1 1 1
|
|
vdisplay b
|
|
vmoveto $check_x $check_y
|
|
vclipplane create pln1
|
|
vclipplane set pln1 view Driver1/Viewer1/View1
|
|
vclipplane change pln1 equation 0 1 0 0
|
|
vfit
|
|
vaspects -setwidth 5
|
|
|
|
if { "[vreadpixel $check_x $check_y rgb name]" != "CYAN1" } {
|
|
puts "Error : Viewer clipping is broken."
|
|
}
|
|
|
|
vdump ${imagedir}/${casename}.png
|