puts "============"
puts "OCC22985: Regression: no shading on good face"
puts "============"
puts ""

pload MODELING VISUALIZATION
restore [locate_data_file OCC22985-gt602-f72-noshading.brep] result

vinit View1
vdisplay result
vfit

vsetdispmode 1

set x 150
set y 175

set RED_R1   0.68627399206161499
set GREEN_R1 0.48627400398254395
set BLUE_R1  0.078431000000000001

vmoveto $x $y
vmoveto $x $y

checkcolor $x $y ${RED_R1} ${GREEN_R1} ${BLUE_R1}

checkprops result -s 0.0984334 
checkshape result
vdump $imagedir/${casename}.png
