0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / phong_couple
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 box b 2 0 0 1 0.5 0.25
9
10 # draw box
11 vclear
12 vclose ALL
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 vdisplay b
21 vfit
22
23 # take snapshot with fixed pipeline
24 vdump $::imagedir/${::casename}_OFF.png
25
26 vshaderprog f phong
27 vshaderprog b phong
28 vshaderprog b off
29 vrotate -0.2 0.0 0.0
30 vmoveto 100 100
31 vdump $::imagedir/${::casename}_ph1.png