0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug27536
1 puts "========"
2 puts "OCC27536"
3 puts "========"
4 puts ""
5 ##################################################################
6 puts "Visualization - incorrect behavior of zoom persisted objects"
7 ##################################################################
8
9 set anImage1 $imagedir/${casename}_1.png
10 set anImage2 $imagedir/${casename}_2.png
11
12 vinit
13 vclear
14 vaxo
15
16 box b -50 -50 -50 100 100 100
17 vdisplay b -trsfPers zoom -trsfPersPos 0 0 0 -dispmode 1
18
19 vdump $anImage1
20
21 vinit View2 w=200 h=400
22 vaxo
23 vfit
24
25 # Check that box was't resized in small view
26 if {[vreadpixel 165 200 name] != "DARKGOLDENROD3 1"} {
27   puts "ERROR: zoom persistent box is resized on view sizes changed!"
28 }
29
30 vdump $anImage2