0024688: Draw Harness - vdump command makes snapshot only for the first view
[occt.git] / tests / v3d / glsl / phong_views
1 puts "========"
2 puts "Per-pixel lighting using GLSL program (Phong shading)"
3 puts "========"
4
5 # create box
6 box b 1 2 3
7
8 # draw box
9 vinit View1
10 vclear
11 vsetdispmode 1
12 vaxo
13 vdisplay b
14 vfit
15 vrotate 0.2 0.0 0.0
16
17 vshaderprog b phong
18 vdump $::imagedir/${::casename}_v1.png
19
20 vinit View2
21 vfit
22 vdump $::imagedir/${::casename}_v2.png
23 vmoveto 250 250
24 vdump $::imagedir/${::casename}_v2sel.png
25 vactivate View1
26 vdump $::imagedir/${::casename}_v1sel.png
27 vclose View2