mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +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
40 lines
864 B
Plaintext
40 lines
864 B
Plaintext
puts "============"
|
|
puts "CR24564"
|
|
puts "============"
|
|
puts ""
|
|
|
|
#######################################################################
|
|
# Test for sensitivity of box located over AIS_Plane
|
|
#######################################################################
|
|
|
|
set aV "Driver1/Viewer1/View1"
|
|
vinit name=$aV l=32 t=32 w=400 h=400
|
|
vactivate $aV
|
|
vclear
|
|
|
|
puts "Testing box selection over the plane in orthogonal projection:"
|
|
vpoint p1 0 0 0
|
|
vpoint p2 1 0 0
|
|
vpoint p3 0 1 0
|
|
|
|
vplane pl1 p1 p2 p3 0
|
|
box b 50 50 50
|
|
vdisplay b
|
|
vfit
|
|
vtop
|
|
|
|
vaspects -setwidth 5
|
|
vmoveto 199 200
|
|
if { "[vreadpixel 199 200 rgb name]" != "CYAN1" } {
|
|
puts "Error : The box is not selectable!"
|
|
}
|
|
|
|
puts "Testing box selection over the plane in axonometry projection:"
|
|
vaxo
|
|
vfit
|
|
|
|
vmoveto 199 200
|
|
if { "[vreadpixel 199 200 rgb name]" != "CYAN1" } {
|
|
puts "Error : The box is not selectable!"
|
|
}
|