mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +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
49 lines
839 B
Plaintext
Executable File
49 lines
839 B
Plaintext
Executable File
puts "=================================="
|
|
puts "BUC60569"
|
|
puts "OCC597"
|
|
puts "=================================="
|
|
puts ""
|
|
puts "=================================="
|
|
puts "It takes visual check for this BUG"
|
|
puts "=================================="
|
|
puts ""
|
|
|
|
restore [locate_data_file buc60569a.rle] result
|
|
tclean result
|
|
vinit
|
|
|
|
checkshape result
|
|
|
|
BUC60569 result
|
|
vfit
|
|
|
|
vselect 250 190
|
|
vselect 180 350 1
|
|
vmoveto 250 190
|
|
vmoveto 180 350
|
|
vselect 390 390
|
|
vselect 250 190 1
|
|
|
|
set x_coord 335
|
|
set y_coord 331
|
|
|
|
checkcolor $x_coord $y_coord 0.8 0.8 0.8
|
|
|
|
if {$stat != 1} {
|
|
puts "Error : The right face is NOT Selected by Shift Select command"
|
|
}
|
|
|
|
vselect 180 350 1
|
|
|
|
set x_coord 101
|
|
set y_coord 347
|
|
|
|
checkcolor $x_coord $y_coord 0.8 0.8 0.8
|
|
|
|
if {$stat != 1} {
|
|
puts "Error : The left face is Selected by Shift Select command"
|
|
}
|
|
|
|
set only_screen 1
|
|
|