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
45 lines
896 B
Plaintext
Executable File
45 lines
896 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC11615"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Anisotropic scaling in 3D view
|
|
######################################################
|
|
|
|
set BugNumber OCC11615
|
|
|
|
box b 10 10 10
|
|
vinit
|
|
vdisplay b
|
|
vfit
|
|
vscale 1 1 1
|
|
|
|
set x1 [list 165 340 70]
|
|
set y1 [list 384 283 79]
|
|
vaspects -setwidth 5
|
|
puts ""
|
|
for {set i 0} {$i < 3} {incr i} {
|
|
set x_coord [lindex ${x1} $i]
|
|
set y_coord [lindex ${y1} $i]
|
|
if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
|
|
puts "Error : color is not yellow"
|
|
}
|
|
}
|
|
|
|
vscale 0.5 1.5 0.7
|
|
vfit
|
|
|
|
set x2 [list 80 390 25]
|
|
set y2 [list 390 218 167]
|
|
|
|
puts ""
|
|
for {set i 0} {$i < 3} {incr i} {
|
|
set x_coord [lindex ${x2} $i]
|
|
set y_coord [lindex ${y2} $i]
|
|
if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
|
|
puts "Error : color is not yellow"
|
|
}
|
|
}
|
|
|
|
set only_screen 1
|