mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +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.
76 lines
1.7 KiB
Plaintext
76 lines
1.7 KiB
Plaintext
puts "============"
|
|
puts "CR26973: Visualization - selection of entities hidden by clipping planes is broken"
|
|
puts "============"
|
|
puts ""
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vsetdispmode 1
|
|
|
|
proc OCC26973 { toTestViewPlanes toApplyTrsf theImgIdr theCaseName} {
|
|
if {$toApplyTrsf == "1"} {
|
|
box b -100 -100 -100 1 1 1
|
|
ttranslate b 100 100 100
|
|
} else {
|
|
box b 1 1 1
|
|
}
|
|
|
|
vdisplay b
|
|
vfit
|
|
vselmode b 4 1
|
|
|
|
vclipplane create pln
|
|
if {$toTestViewPlanes == "1"} {
|
|
vclipplane set pln view Driver1/Viewer1/View1
|
|
} else {
|
|
vclipplane set pln object b
|
|
}
|
|
vclipplane change pln equation 0 1 0 -0.5
|
|
|
|
vselect 200 140
|
|
set aTestInfo "Test case: "
|
|
append aTestInfo "clipping planes applied to "
|
|
set aDumpFileName $theImgIdr/${theCaseName}
|
|
if {$toTestViewPlanes == "1"} {
|
|
append aTestInfo "view, "
|
|
append aDumpFileName "_view"
|
|
} else {
|
|
append aTestInfo "object, "
|
|
append aDumpFileName "_obj"
|
|
}
|
|
append aTestInfo "object trsf is "
|
|
if {$toApplyTrsf == "1"} {
|
|
append aTestInfo "on"
|
|
append aDumpFileName "_with_trsf.png"
|
|
} else {
|
|
append aTestInfo "off"
|
|
append aDumpFileName "_wo_trsf.png"
|
|
}
|
|
|
|
if {[vnbselected] != 1} {
|
|
puts "ERROR: can not select face."
|
|
puts $aTestInfo
|
|
}
|
|
set aSelectedFace [string trim [lindex [split [vstate] "\n"] 1] ]
|
|
if {$aSelectedFace != "Face #1"} {
|
|
puts "ERROR: wrong face is selected."
|
|
puts "Actually selected face: $aSelectedFace"
|
|
puts $aTestInfo
|
|
}
|
|
|
|
vdump $aDumpFileName
|
|
vremove -all
|
|
vclipplane delete pln
|
|
}
|
|
|
|
# check global clipping planes selection
|
|
OCC26973 1 0 $imagedir $casename
|
|
OCC26973 1 1 $imagedir $casename
|
|
|
|
# check object clipping planes selection
|
|
OCC26973 0 0 $imagedir $casename
|
|
OCC26973 0 1 $imagedir $casename
|