0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / phong_fuse
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 vclear
11 vclose ALL
12 vinit View1
13 vdefaults -absDefl 0.5
14 vsetdispmode 1
15 vaxo
16 vdisplay f
17 vfit
18 vrotate -0.5 0.0 0.0
19 vfit
20
21 # take snapshot with fixed pipeline
22 vdump $::imagedir/${::casename}_OFF.png
23 vshaderprog f phong
24 vdump $::imagedir/${::casename}_ph1.png
25
26 vclear
27 vdisplay f
28 vshaderprog f phong
29 vdump $::imagedir/${::casename}_ph2.png
30 vmoveto 250 250