0032121: Draw Harness, ViewerTest - implement -reset option for vlight command

[occt.git] / tests / opengl / data / shading / phong_spot1

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

pload MODELING VISUALIZATION
vclear
vclose ALL
vinit View1

# create objects
set anX 0.001
circle c 0 0 0 0.001
mkedge e c
wire   w e
plane  s
mkface f1 s w
mkface f2 s w
ttranslate f1 $anX -0.001 0

# display objects
vtop
vdisplay -dispMode 1 f1 f2
vsetlocation f2 $anX 0.001 0
vpoint vl $anX 0 0.001
vfit

# setup light
vcaps -ffp 0
vrenderparams -shadingModel phong
vlight -clear
vlight spot -type SPOTLIGHT -pos $anX 0 0.001 -dir 0 0 -1 -spotAngle 60 -constAtten 0.1 -exponent 0.1 -color RED1 -headLight 0

set aColor1 [vreadpixel 205 180 rgb name]
set aColor2 [vreadpixel 205 220 rgb name]
if { "$aColor1" != "RED" || "$aColor2" != "RED" } {
  puts "Error: expected color near the light spot is RED"
}

set aColor3 [vreadpixel 205 132 rgb name]
set aColor4 [vreadpixel 205 280 rgb name]
if { "$aColor3" != "RED4" || "$aColor4" != "RED4" } {
  puts "Error: expected color mid from the light spot is RED4"
}

set aColor5 [vreadpixel 205 100 rgb name]
set aColor6 [vreadpixel 205 306 rgb name]
if { "$aColor5" != "GRAY7" || "$aColor6" != "GRAY8" } {
  if { "$aColor5" != "GRAY2" && "$aColor6" != "GRAY2" } {
    puts "Error: expected color far from the light spot is GRAY7"
  }
}
vdump ${imagedir}/${casename}.png