mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
cc6852f3e9
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.
35 lines
908 B
Plaintext
35 lines
908 B
Plaintext
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"
|
|
}
|