mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51: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.
67 lines
1.8 KiB
Plaintext
67 lines
1.8 KiB
Plaintext
puts "============"
|
|
puts "CR25436"
|
|
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 == "CYAN 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"
|
|
}
|