5 ##########################################################################
6 # Visualization - AIS_InteractiveContext::HilightNextDetected() doesn't work in Neutral Point
7 ##########################################################################
9 proc check_highlighting { theHiBoxIdx theCoords } {
10 set aNext [expr ($theHiBoxIdx + 1) % 3]
11 set aNextNext [expr ($theHiBoxIdx + 2) % 3]
12 set hiColor [vreadpixel [lindex $theCoords [expr $theHiBoxIdx * 2] ] [lindex $theCoords [expr $theHiBoxIdx * 2 + 1] ] name]
13 set nextColor [vreadpixel [lindex $theCoords [expr $aNext * 2] ] [lindex $theCoords [expr $aNext * 2 + 1] ] name]
14 set nextNextColor [vreadpixel [lindex $theCoords [expr $aNextNext * 2] ] [lindex $theCoords [expr $aNextNext * 2 + 1] ] name]
16 if {$hiColor == "CYAN 1" && $nextColor == "YELLOW 1" && $nextNextColor == "YELLOW 1"} {
23 pload VISUALIZATION MODELING
27 box b2 1.5 1.5 1.5 4 4 4
46 # MoveTo in area that is common for all boxes
49 if { ![check_highlighting 0 $coords] } {
50 puts "ERROR: incorrect highlighting of box b0"
55 if { ![check_highlighting 1 $coords] } {
56 puts "ERROR: incorrect highlighting of box b1 after vselnext call"
59 if { ![check_highlighting 2 $coords] } {
60 puts "ERROR: incorrect highlighting of box b2 after vselnext call"
63 if { ![check_highlighting 0 $coords] } {
64 puts "ERROR: incorrect highlighting of box b0 after vselnext call"
69 if { ![check_highlighting 2 $coords] } {
70 puts "ERROR: incorrect highlighting of box b2 after vselprev call"
73 if { ![check_highlighting 1 $coords] } {
74 puts "ERROR: incorrect highlighting of box b1 after vselprev call"
77 if { ![check_highlighting 0 $coords] } {
78 puts "ERROR: incorrect highlighting of box b0 after vselprev call"