OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
Code Activity

0027530: Visualization - AIS_InteractiveContext::HilightNextDetected() doesn't work in Neutral Point

Browse Source 
- added implementation of mentioned methods for neutral point;
- sequence of detected objects was replaced by sequence of detected owner's indexes in AIS_InteractiveContext;
- commands vselnext and vselprev were corrected to update viewer properly;
- test case for issue #27530.
This commit is contained in:
vpa
2016-10-27 14:29:27 +03:00
committed by apn
parent c9c7286e56
commit f0cddd16eb
6 changed files with 227 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
tests/bugs/vis/bug27530 Normal file
View File

@@ -0,0 +1,79 @@
puts "==========="
puts "OCC27530"
puts "==========="
puts ""
##########################################################################
# Visualization - AIS_InteractiveContext::HilightNextDetected() doesn't work in Neutral Point
##########################################################################
proc check_highlighting { theHiBoxIdx theCoords } {
set aNext [expr ($theHiBoxIdx + 1) % 3]
set aNextNext [expr ($theHiBoxIdx + 2) % 3]
set hiColor [vreadpixel [lindex $theCoords [expr $theHiBoxIdx * 2] ] [lindex $theCoords [expr $theHiBoxIdx * 2 + 1] ] name]
set nextColor [vreadpixel [lindex $theCoords [expr $aNext * 2] ] [lindex $theCoords [expr $aNext * 2 + 1] ] name]
set nextNextColor [vreadpixel [lindex $theCoords [expr $aNextNext * 2] ] [lindex $theCoords [expr $aNextNext * 2 + 1] ] name]
if {$hiColor == "CYAN1 1" && $nextColor == "YELLOW 1" && $nextNextColor == "YELLOW 1"} {
return true
} else {
return false
}
}
pload VISUALIZATION MODELING
box b0 3 3 3
box b1 1 1 1 3 2 1
box b2 1.5 1.5 1.5 4 4 4
set coords { }
# b0_x, b0_y
lappend coords 355
lappend coords 186
# b1_x, b1_y
lappend coords 266
lappend coords 333
# b2_x, b2_y
lappend coords 177
lappend coords 2
vinit
vclear
vdisplay b0 b1 b2
vleft
vfit
# MoveTo in area that is common for all boxes
vmoveto 210 280
if { ![check_highlighting 0 $coords] } {
puts "ERROR: incorrect highlighting of box b0"
}
# check vselnext
vselnext
if { ![check_highlighting 1 $coords] } {
puts "ERROR: incorrect highlighting of box b1 after vselnext call"
}
vselnext
if { ![check_highlighting 2 $coords] } {
puts "ERROR: incorrect highlighting of box b2 after vselnext call"
}
vselnext
if { ![check_highlighting 0 $coords] } {
puts "ERROR: incorrect highlighting of box b0 after vselnext call"
}
# check vselprev
vselprev
if { ![check_highlighting 2 $coords] } {
puts "ERROR: incorrect highlighting of box b2 after vselprev call"
}
vselprev
if { ![check_highlighting 1 $coords] } {
puts "ERROR: incorrect highlighting of box b1 after vselprev call"
}
vselprev
if { ![check_highlighting 0 $coords] } {
puts "ERROR: incorrect highlighting of box b0 after vselprev call"
}

47
tests/v3d/edge/A10
View File

@@ -4,16 +4,63 @@ puts "Test case check work of the new commands vselnext and vselprev"
puts "============"
puts ""
proc check_highlighting { theEdgeIdx theCoords } {
set aNext [expr ($theEdgeIdx + 1) % 3]
set aNextNext [expr ($theEdgeIdx + 2) % 3]
set hiColor [vreadpixel [lindex $theCoords [expr $theEdgeIdx * 2] ] [lindex $theCoords [expr $theEdgeIdx * 2 + 1] ] name]
set nextColor [vreadpixel [lindex $theCoords [expr $aNext * 2] ] [lindex $theCoords [expr $aNext * 2 + 1] ] name]
set nextNextColor [vreadpixel [lindex $theCoords [expr $aNextNext * 2] ] [lindex $theCoords [expr $aNextNext * 2 + 1] ] name]
if {$hiColor == "CYAN1 1" && $nextColor == "YELLOW 1" && $nextNextColor == "YELLOW 1"} {
return true
} else {
return false
}
}
set coords { }
# e10_x, e10_y
lappend coords 94
lappend coords 140
# e2_x, e2_y
lappend coords 103
lappend coords 60
# e1_x, e1_y
lappend coords 29
lappend coords 208
box b 10 10 10
vdisplay b
vfit
vselmode 2 1
vmoveto 30 101
if { ![check_highlighting 0 $coords] } {
puts "ERROR: incorrect highlighting of edge 10"
}
vselnext
if { ![check_highlighting 1 $coords] } {
puts "ERROR: incorrect highlighting of edge 2 after vselnext call"
}
vselnext
if { ![check_highlighting 2 $coords] } {
puts "ERROR: incorrect highlighting of edge 1 after vselnext call"
}
vselnext
if { ![check_highlighting 0 $coords] } {
puts "ERROR: incorrect highlighting of edge 10 after vselnext call"
}
vselprev
if { ![check_highlighting 2 $coords] } {
puts "ERROR: incorrect highlighting of edge 1 after vselprev call"
}
vselprev
if { ![check_highlighting 1 $coords] } {
puts "ERROR: incorrect highlighting of edge 2 after vselprev call"
}
vselprev
if { ![check_highlighting 0 $coords] } {
puts "ERROR: incorrect highlighting of edge 10 after vselprev call"
}