2 puts "Per-pixel lighting using GLSL program (Phong shading)"
5 pload MODELING VISUALIZATION
8 restore [locate_data_file occ/fuse.brep] f
15 vdefaults -absDefl 0.5
29 vlight add ambient color WHITE
30 vlight add directional dir 1 0 0 color GREEN headlight 1
31 vlight add directional dir -1 0 0 color RED1 headlight 1
33 # take snapshot with fixed pipeline
34 vdump $::imagedir/${::casename}_OFF.png
36 vdump $::imagedir/${::casename}_ph1.png
41 vdump $::imagedir/${::casename}_ph2.png