1d92133e |
1 | puts "============" |
2 | puts "CR26641" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ############################################################################################################## |
7 | # 0026641: Visualization, TKOpenGl - handle correctly transformation persistence within perspective projection |
8 | ############################################################################################################## |
9 | |
10 | vinit |
11 | vclear |
12 | |
13 | box b0 30 0 0 10 10 10 |
14 | box b1 -30 -30 30 10 30 20 |
15 | vdisplay b0 |
16 | vdisplay b1 |
17 | vfit |
18 | |
19 | vdump ${imagedir}/${casename}_none_pers_ortho.png |
20 | |
21 | vdisplay b1 -trsfPers zoom -trsfPersPos -30 -30 30 |
22 | vfit |
23 | |
24 | vdump ${imagedir}/${casename}_zoom_pers_ortho.png |
25 | |
26 | vcamera -persp |
27 | vfit |
28 | |
29 | vdump ${imagedir}/${casename}_zoom_pers_persp.png |
30 | |
31 | vselect 30 70 |
32 | |
33 | if {[vnbselected] != 1} { |
34 | puts "ERROR: Transform persistence object is not selected!" |
35 | } |