mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0d828ac838
Removed testgrids 'bugs/vis' and '3rdparty'; tests have been redistributed across other grids. Moved testgrid 'v3d/ivtk' into dedicated 'vtk/ivtk'. Added testgrid 'vselect' dedicated to 3D viewer picking/selection functionality and filled with tests from 'v3d/vertex', 'v3d/face' and similar groups. Added testgrid 'opengl' dedicated to OpenGL driver low-level functionality (GLSL programs and similar) and filled with tests from 'v3d/glsl', 'v3d/raytrace', '3rdparty/fonts', 'bugs/vis' (portion) and similar. Added testgrid 'opengles3' dedicated to OpenGL ES 3.0 driver low-level functionality and reusing tests from 'opengl' testgrid. Subgroup 'opengles3/raytrace' is disabled on Windows, as Ray-Tracing currently requires OpenGL ES 3.2. while ANGLE library implements only OpenGL ES 3.0. Added testgrid 'opengles2' dedicated to OpenGL ES 2.0 driver low-level functionality and reusing a limited subset of passing tests from 'opengl' testgrid. Currently testgrid is activated only on Windows platform when using ANGLE library (properietary OpenGL ES drivers do not allow creation of restricted 2.0 context). Test cases have been cleaned out to put bug description into log, to properly load necessary plugins and to explicitly dump viewer.
78 lines
2.0 KiB
Plaintext
78 lines
2.0 KiB
Plaintext
puts "==========="
|
|
puts "OCC27530: Visualization - AIS_InteractiveContext::HilightNextDetected() doesn't work in Neutral Point"
|
|
puts "==========="
|
|
puts ""
|
|
|
|
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 == "CYAN 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 View1
|
|
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"
|
|
}
|
|
vdump ${imagedir}/${casename}.png
|