0030412: Visualization, TKV3d - add presentation of camera frustum
[occt.git] / tests / bugs / vis / bug30412
1 puts "============="
2 puts "0030412: Visualization, TKV3d - add presentation of camera frustum"
3 puts "============="
4
5 pload MODELING VISUALIZATION
6 vclear
7 vinit View1
8
9 vfront
10 vcamera -persp
11
12 set THE_NB_BOXES 5
13 puts "Creating [expr $THE_NB_BOXES * $THE_NB_BOXES * $THE_NB_BOXES] boxes..."
14 for {set i 0} {$i < $THE_NB_BOXES} {incr i} {
15   for {set j 0} {$j < $THE_NB_BOXES} {incr j} {
16     for {set k 0} {$k < $THE_NB_BOXES} {incr k} {
17       box b$i$j$k 3.*$i 3.*$j 3.*$k 1 1 1
18       vdisplay -noupdate -dispMode 1 b$i$j$k
19     }
20   }
21 }
22
23 vfit
24 vzoom 1.5
25 vcamera cam
26
27 vright
28 vfit
29 vdump $::imagedir/${::casename}_cam_right.png
30
31 vaxo
32 vfit
33 vdump $::imagedir/${::casename}_cam_axo.png