mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
15669413da
Graphic3d_RenderingParams::ToShowStats - new option displaying rendering statistics. OpenGl_FrameStats - new class for accumulating frame statistics. OpenGl_Context::FrameStats() provides an access to the frame stats used for currently rendered context. OpenGl_View::Redraw() and OpenGl_View::RedrawImmediate() resets counters within OpenGl_Context::FrameStats(). OpenGl_Layer::UpdateCulling() - simplified resetting of culling state for cullable structures.
84 lines
2.8 KiB
Plaintext
84 lines
2.8 KiB
Plaintext
puts "========"
|
|
puts "OCC24307 Objects clipping algorithm using BVH performance test: Solid spheres test"
|
|
puts "========"
|
|
|
|
# define objects' location parameters and their characteristics
|
|
set SPHERES_NUM 10
|
|
set SPERE_RADIUS 100
|
|
set SPHERE_FINENESS 10
|
|
set PERCENT_OF_INNER_SPHERES 30
|
|
|
|
# window parameters
|
|
set SMALL_WIN_WIDTH 512
|
|
set SMALL_WIN_HEIGHT 512
|
|
|
|
# other
|
|
array set aSphereNames {}
|
|
|
|
pload VISUALIZATION MODELING
|
|
vclear
|
|
vinit name=small_wnd l=32 t=32 w=$SMALL_WIN_WIDTH h=$SMALL_WIN_HEIGHT
|
|
vactivate small_wnd
|
|
vrenderparams -perfUpdateInterval 0
|
|
vfrustumculling 0
|
|
vautozfit 0
|
|
vviewparams -scale 1.953125 -eye 0.57735026918962573 -0.57735026918962573 0.57735026918962573
|
|
vzrange 1 512
|
|
vremove -all -noinfo
|
|
|
|
puts [vdrawsphere tmp_sph $SPHERE_FINENESS]
|
|
vremove -noinfo tmp_sph
|
|
|
|
set aInnerSpheresNum [expr $SPHERES_NUM * $PERCENT_OF_INNER_SPHERES / 100]
|
|
puts ""
|
|
set aDebugInfo "Total number of visible objects: "
|
|
append aDebugInfo $aInnerSpheresNum
|
|
puts $aDebugInfo
|
|
puts ""
|
|
|
|
puts "Start displaying spheres without clipping..."
|
|
set aInnerWidthStep [expr $SMALL_WIN_WIDTH / ($aInnerSpheresNum + 1)]
|
|
set aInnerHeightStep [expr $SMALL_WIN_HEIGHT / ($aInnerSpheresNum + 1)]
|
|
set aOuterStep [expr $SPERE_RADIUS * 3 / ($SPHERES_NUM - $aInnerSpheresNum + 1)]
|
|
for {set i 0} {$i < $aInnerSpheresNum} {incr i} {
|
|
set aCurrName "inner_sph"
|
|
append aCurrName $i
|
|
set aX [expr - $SMALL_WIN_WIDTH / 2 + ($i + 1) * $aInnerWidthStep ]
|
|
set aY [expr - $SMALL_WIN_HEIGHT / 2 + ($i + 1) * $aInnerHeightStep ]
|
|
vdrawsphere $aCurrName $SPHERE_FINENESS $aX $aY 0 $SPERE_RADIUS 0 0
|
|
set aSphereNames($i) $aCurrName
|
|
}
|
|
for {set i $aInnerSpheresNum} {$i < $SPHERES_NUM} {incr i} {
|
|
set aCurrName "outer_sph"
|
|
append aCurrName $i
|
|
set aX [expr - $SMALL_WIN_WIDTH - $SPERE_RADIUS * 3 + ($i - $aInnerSpheresNum + 1) * $aOuterStep ]
|
|
set aY [expr - $SMALL_WIN_HEIGHT - $SPERE_RADIUS * 3 + ($i - $aInnerSpheresNum + 1) * $aOuterStep ]
|
|
vdrawsphere $aCurrName $SPHERE_FINENESS $aX $aY 0 $SPERE_RADIUS 0 0
|
|
set aSphereNames($i) $aCurrName
|
|
}
|
|
puts [vfps]
|
|
vrenderparams -perfCounters none
|
|
vdump $imagedir/${casename}_cull_off_ref.png
|
|
vrenderparams -perfCounters verbose|nofps|nocpu
|
|
vdump $imagedir/${casename}_cull_off.png
|
|
puts "All spheres were displayed."
|
|
puts ""
|
|
|
|
verase
|
|
|
|
puts "Start displaying spheres with clipping..."
|
|
vfrustumculling 1
|
|
vdisplayall
|
|
puts [vfps]
|
|
vrenderparams -perfCounters none
|
|
vdump $imagedir/${casename}_cull_on_ref.png
|
|
vrenderparams -perfCounters verbose|nofps|nocpu
|
|
vdump $imagedir/${casename}_cull_on.png
|
|
puts "All spheres were displayed."
|
|
puts ""
|
|
|
|
set aDiffImageResult [diffimage $imagedir/${casename}_cull_on_ref.png $imagedir/${casename}_cull_off_ref.png 0.1 0 0 $imagedir/${casename}_diff.png]
|
|
if {$aDiffImageResult != 0} {
|
|
puts "ERROR : Test failed: there is a difference between images rendered with and without clipping"
|
|
}
|