0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping
[occt.git] / tests / bugs / vis / bug26082
CommitLineData
ab1c121b 1puts "============"
2puts "CR26082"
3puts "============"
4puts ""
5
6#########################################################################
7puts "When view is resized horizontally the viusaliziation is not scaled"
8#########################################################################
9
10set cursor_1 { 288 53 }
11set cursor_2 { 53 127 }
12set cursor_3 { 122 154 }
13
14set viewparams { -scale 606.309 \
15 -proj 0.577 -0.577 0.577 \
16 -up -0.408 0.408 0.816 \
17 -at 0.5 0.5 0.5
18 -eye 1.5 -0.5 1.5 }
19
20pload VISUALIZATION MODELING
21
22box b 1 1 1
23
24vinit View1 w=400 h=400
25vinit View2 w=200 h=400
26vinit View3 w=400 h=200
27vclear
28vaxo
29
30vdisplay b
31
32vactivate View1
33vviewparams {*}$viewparams
34vmoveto {*}$cursor_1
35checkcolor {*}$cursor_1 0 1 1
36vdump ${imagedir}/${casename}_1.png
37
38vactivate View2
39vviewparams {*}$viewparams
40vmoveto {*}$cursor_2
41checkcolor {*}$cursor_2 0 1 1
42vdump ${imagedir}/${casename}_2.png
43
44vactivate View3
45vviewparams {*}$viewparams
46vmoveto {*}$cursor_3
47checkcolor {*}$cursor_3 0 1 1
48vdump ${imagedir}/${casename}_3.png