0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / tests / v3d / glsl / phong_couple
CommitLineData
392ac980 1puts "========"
2puts "Per-pixel lighting using GLSL program (Phong shading)"
3puts "========"
4
5# import model
6restore [locate_data_file occ/fuse.brep] f
7tclean f
8box b 2 0 0 1 0.5 0.25
9
10# draw box
392ac980 11vclear
8e0a2b19 12vclose ALL
13vinit View1
4c513386 14vdefaults -absDefl 0.5
392ac980 15vsetdispmode 1
12381341 16vaxo
392ac980 17vdisplay f
18vfit
19vrotate -0.5 0.0 0.0
20vdisplay b
21vfit
22
23# take snapshot with fixed pipeline
24vdump $::imagedir/${::casename}_OFF.png
25
26vshaderprog f phong
27vshaderprog b phong
28vshaderprog b off
29vrotate -0.2 0.0 0.0
30vmoveto 100 100
31vdump $::imagedir/${::casename}_ph1.png