0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27536
1 puts "========"
2 puts "0027536: Visualization - incorrect behavior of zoom persisted objects"
3 puts "========"
4 puts ""
5
6 vclear
7 vinit View1
8 vaxo
9
10 box b -50 -50 -50 100 100 100
11 vdisplay b -trsfPers zoom -trsfPersPos 0 0 0 -dispmode 1
12 vdump $imagedir/${casename}_1.png
13
14 vinit View2 w=200 h=400
15 vaxo
16 vfit
17
18 # Check that box was't resized in small view
19 if {[vreadpixel 165 200 -rgb -name] != "DARKGOLDENROD"} { puts "ERROR: zoom persistent box is resized on view sizes changed!" }
20
21 vdump $imagedir/${casename}_2.png