0024310: TKOpenGl - GLSL compatibility issues
[occt.git] / tests / v3d / glsl / phong_fuse2
1 puts "========"
2 puts "Per-pixel lighting using GLSL program (Phong shading)"
3 puts "========"
4
5 # import model
6 restore [locate_data_file occ/fuse.brep] f
7 tclean f
8
9 # draw box
10 vinit View1
11 vclear
12 vdefaults absDefl=0.5
13 vsetdispmode 1
14 vaxo
15 vdisplay f
16 vfit
17 vrotate -0.5 0.0 0.0
18 vfit
19
20 # setup lights
21 vlight delete 0
22 vlight delete 0
23 vlight delete 0
24 vlight delete 0
25 vlight delete 0
26 vlight add ambient                color WHITE
27 vlight add directional dir  1 0 0 color GREEN headlight 1
28 vlight add directional dir -1 0 0 color RED1  headlight 1
29
30 # take snapshot with fixed pipeline
31 vdump $::imagedir/${::casename}_OFF.png
32 vshaderprog f phong
33 vdump $::imagedir/${::casename}_ph1.png
34
35 vclear
36 vdisplay f
37 vshaderprog f phong
38 vdump $::imagedir/${::casename}_ph2.png
39 vmoveto 250 250