0027958: Visualization, AIS_Trihedron - add shaded presentation option
[occt.git] / tests / bugs / vis / bug26082
1 puts "============"
2 puts "CR26082"
3 puts "============"
4 puts ""
5
6 #########################################################################
7 puts "When view is resized horizontally the viusaliziation is not scaled"
8 #########################################################################
9
10 set cursor_1 { 288  53 }
11 set cursor_2 {  53 127 }
12 set cursor_3 { 122 154 }
13
14 set 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
20 pload VISUALIZATION MODELING
21
22 box b 1 1 1
23
24 vinit View1 w=400 h=400
25 vinit View2 w=200 h=400
26 vinit View3 w=400 h=200
27 vclear
28 vaxo
29
30 vdisplay b
31
32 vactivate View1
33 vviewparams {*}$viewparams
34 vmoveto {*}$cursor_1
35 checkcolor {*}$cursor_1 0 1 1
36 vdump ${imagedir}/${casename}_1.png
37
38 vactivate View2
39 vviewparams {*}$viewparams
40 vmoveto {*}$cursor_2
41 checkcolor {*}$cursor_2 0 1 1
42 vdump ${imagedir}/${casename}_2.png
43
44 vactivate View3
45 vviewparams {*}$viewparams
46 vmoveto {*}$cursor_3
47 checkcolor {*}$cursor_3 0 1 1
48 vdump ${imagedir}/${casename}_3.png