puts "========"
puts "Per-fragment lighting using built-in GLSL program, two directional light sources."
puts "Visual comparison with the reference snapshot should be performed for this test case."
puts "========"

pload MODELING VISUALIZATION

# setup viewer
vclear
vclose ALL
vinit View1
vcaps -ffp 0
vrenderparams -shadingModel phong
vlight -clear
vlight amblight  -type AMBIENT                 -color WHITE
vlight dirlight1 -type DIRECTIONAL -dir  1 0 0 -color GREEN -headlight 1
vlight dirlight2 -type DIRECTIONAL -dir -1 0 0 -color RED1  -headlight 1

# display shape
restore [locate_data_file occ/fuse.brep] f
vaxo
vdisplay f -dispmode 1
vfit
vrotate -0.5 0.0 0.0
vfit
vdump ${imagedir}/${casename}.png