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

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

diff --git a/tests/bugs/vis/bug26304 b/tests/bugs/vis/bug26304
deleted file mode 100644 (file)
index 132df25..0000000
--- a/tests/bugs/vis/bug26304
+++ /dev/null
@@ -1,49 +0,0 @@
-puts "============"
-puts "0026304: Visualization - wrong calculation of point in SelectMgr_RectangularFrustum::DetectedPoint"
-puts "============"
-puts ""
-
-proc findPoint {theInfoString} {
-  puts $theInfoString
-  set aStringArr [split $theInfoString " "]
-  set aSize [llength $aStringArr]
-  for {set aIdx 0} {$aIdx < $aSize} {incr aIdx} {
-    set aItem [lindex $theInfoString $aIdx]
-    if {[string compare $aItem "Point:"] == 0} {
-        set aX [string trim [lindex $theInfoString [expr $aIdx + 1]]]
-        set aY [string trim [lindex $theInfoString [expr $aIdx + 2]]]
-        set aZ [string trim [lindex $theInfoString [expr $aIdx + 3]]]
-        return [list $aX $aY $aZ]
-      }
-    }
-}
-
-pload VISUALIZATION MODELING
-
-vclear
-vinit View1
-box b  100 100 100
-box bz 50  50  50
-vdisplay -dispMode 1 b
-vfit
-vdisplay -dispMode 1 -trsfPers zoom -trsfPersPos 0 -10 50 bz
-vaspects bz -setColor GREEN -setTransparency 0.5
-
-vselect 20 200
-set anOut1 [split [vstate -entities] "\n"]
-set aPnt1 [findPoint [lindex $anOut1 1]]
-# expected 4.78109 -10 59.1192
-vpoint p1 {*}$aPnt1
-
-vselect 48 258
-set anOut2 [split [vstate -entities] "\n"]
-set aPnt2 [findPoint [lindex $anOut2 1]]
-# expected 10.7493 0 28.4578
-vpoint p {*}$aPnt2
-
-vviewparams -scale 22.3 -proj 0.578415 -0.780275 0.237924 -up -0.212025 0.137838 0.967495 -at 10.887 16.807 36.2306
-
-if {[vreadpixel 103 293 rgb name] != "YELLOW"} { puts "ERROR: Wrong point calculated" }
-if {[vreadpixel  29  24 rgb name] != "YELLOW"} { puts "ERROR: Wrong point calculated" }
-
-vdump ${imagedir}/${casename}.png