1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-18 14:27:39 +03:00

0026940: Visualization, TKOpenGl - capping plane should be applied to connected structures

OpenGl_Structure::Render(), OpenGl_CappingAlgo::RenderCapping() - render
groups of instanced and this structure in the same manner
using ::renderGeometry() and ::renderClosedGeometry() instead of ::DrawGroups().
Skip capping algo for structures without groups of closed primitives.
This commit is contained in:
kgv
2015-12-01 13:53:51 +03:00
committed by bugmaster
parent d660a72aca
commit cc6852f3e9
6 changed files with 101 additions and 37 deletions

34
tests/bugs/vis/bug26940 Normal file
View File

@@ -0,0 +1,34 @@
puts "============"
puts "0026940: Visualization, TKOpenGl - capping plane should be applied to connected structures"
puts "Tests capping plane rendering with connected structures"
puts "============"
puts ""
vinit View1
vclear
vaxo
vsetdispmode 1
box b 1 1 1
vdisplay b
vfit
vclipplane create pln
vclipplane set pln view Driver1/Viewer1/View1
vclipplane change pln equation 0 1 0 -0.5
vclipplane change pln capping on
vdump $imagedir/${casename}_normal.png
set aColorNorm [vreadpixel 200 250 rgb name]
if { "$aColorNorm" != "GRAY13" } {
puts "Error: Expected color of capping plane is GRAY13 (normal presentation). Actial is $aColorNorm"
}
vclear
vconnectto bb 0 0 0 b
vdump $imagedir/${casename}_connected.png
set aColorConn [vreadpixel 200 250 rgb name]
if { "$aColorConn" != "GRAY13" } {
puts "Error: Expected color of capping plane is GRAY13 (connected presentation). Actial is $aColorConn"
}