0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / tests / opengl / data / shaderprog / phong_fuse2
1 puts "========"
2 puts "Per-pixel lighting using GLSL program (Phong shading)"
3 puts "========"
4
5 pload MODELING VISUALIZATION
6
7 # import model
8 restore [locate_data_file occ/fuse.brep] f
9 tclean f
10
11 # draw box
12 vclear
13 vinit View1
14 vdefaults -absDefl 0.5
15 vsetdispmode 1
16 vaxo
17 vdisplay f
18 vfit
19 vrotate -0.5 0.0 0.0
20 vfit
21
22 # setup lights
23 vlight -clear
24 vlight amblight  -type AMBIENT                 -color WHITE
25 vlight dirlight1 -type DIRECTIONAL -dir  1 0 0 -color GREEN -headlight 1
26 vlight dirlight2 -type DIRECTIONAL -dir -1 0 0 -color RED1  -headlight 1
27
28 # take snapshot with fixed pipeline
29 vdump $::imagedir/${::casename}_OFF.png
30 vshaderprog f phong
31 vdump $::imagedir/${::casename}_ph1.png
32
33 vclear
34 vdisplay f
35 vshaderprog f phong
36 vdump $::imagedir/${::casename}_ph2.png
37 vmoveto 250 250