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
38 lines
601 B
Plaintext
Executable File
38 lines
601 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC60"
|
|
puts "SAM723"
|
|
puts "BUC60916"
|
|
puts "========"
|
|
|
|
vinit
|
|
box b 10 10 10
|
|
vdisplay b
|
|
vfit
|
|
vaspects -setwidth 5
|
|
|
|
set x_coord 83
|
|
set y_coord 337
|
|
|
|
if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "YELLOW" } {
|
|
puts "Error : color is not yellow"
|
|
}
|
|
|
|
set xmin 1
|
|
set ymin 1
|
|
set xmax 409
|
|
set ymax 300
|
|
|
|
# Select part of box
|
|
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
|
|
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
|
|
|
|
set Selection_R 0.8
|
|
set Selection_G 0.8
|
|
set Selection_B 0.8
|
|
|
|
if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "GRAY80" } {
|
|
puts "Error : color is not gray"
|
|
}
|
|
|
|
set only_screen 1
|