0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug26304
CommitLineData
95ab7717 1puts "============"
2puts "CR26304"
3puts "============"
4puts ""
5
6##########################################################################################
7puts "Visualization - wrong calculation of point in SelectMgr_RectangularFrustum::DetectedPoint"
8##########################################################################################
9
10proc findPoint {theInfoString} {
11 puts $theInfoString
12 set aStringArr [split $theInfoString " "]
13 set aSize [llength $aStringArr]
14 for {set aIdx 0} {$aIdx < $aSize} {incr aIdx} {
15 set aItem [lindex $theInfoString $aIdx]
16 if {[string compare $aItem "Point:"] == 0} {
17 set aX [string trim [lindex $theInfoString [expr $aIdx + 1]]]
18 set aY [string trim [lindex $theInfoString [expr $aIdx + 2]]]
19 set aZ [string trim [lindex $theInfoString [expr $aIdx + 3]]]
20 return [list $aX $aY $aZ]
21 }
22 }
23}
24
25pload VISUALIZATION MODELING
26
27vinit View1
28vsetdispmode 1
29box b 100 100 100
30vdisplay b
31vfit
32vselect 48 258
33
34set anOut [split [vstate -entities] "\n"]
35set aPnt [findPoint [lindex $anOut 1]]
36vpoint p {*}$aPnt
37vfit
38
39vviewparams -scale 22.3 -proj 0.576 -0.78 0.24 -up -0.21 0.136 0.967
40vviewparams -at 10.887 16.807 36.2306 -eye 111.071 -118.34 77.44
41
42if {[vreadpixel 103 293 name] != "YELLOW 1"} {
43 puts "ERROR: Wrong point calculated"
44}
45
46vdump ${imagedir}/${casename}.png