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
42 lines
766 B
Plaintext
Executable File
42 lines
766 B
Plaintext
Executable File
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC22884"
|
|
puts "============"
|
|
puts ""
|
|
#############################################################################
|
|
# The attached face cannot be displayed in shading mode
|
|
#############################################################################
|
|
|
|
set BugNumber OCC22884
|
|
|
|
set x1 136
|
|
set y1 176
|
|
|
|
restore [locate_data_file bug22884_Face_1.brep] result
|
|
vinit
|
|
vdisplay result
|
|
vfit
|
|
vsetdispmode 1
|
|
|
|
set square 697.812
|
|
|
|
set nb_v_good 46
|
|
set nb_e_good 46
|
|
set nb_w_good 3
|
|
set nb_f_good 1
|
|
set nb_sh_good 0
|
|
set nb_sol_good 0
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 0
|
|
set nb_shape_good 96
|
|
|
|
if { "[vreadpixel $x1 $y1 rgb name]" == "BLACK" } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
set 3dviewer 0
|
|
|