0032208: Tests - refactor visualization tests to cover several graphic drivers

[occt.git] / tests / bugs / vis / bug24307_1

diff --git a/tests/bugs/vis/bug24307_1 b/tests/bugs/vis/bug24307_1
deleted file mode 100644 (file)
index 810badf..0000000
--- a/tests/bugs/vis/bug24307_1
+++ /dev/null
@@ -1,83 +0,0 @@
-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
-vrenderparams -frustumculling off
-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..."
-vrenderparams -frustumculling on
-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"
-}