puts "========"
puts "OCC185"
puts "========"

pload XDE

igesbrep [locate_data_file OCC185.igs] a *

tpcompound result
tclean result

vinit
vdisplay result
vfit

set x_coord 235
set y_coord 214

vsetdispmode result 1

checkcolor $x_coord $y_coord 0.78 0.55 0.9

if { $stat != 1 } {
    puts "Error : Shading is OFF, but should be ON"
}

vsetdispmode result 0

checkcolor $x_coord $y_coord 0 1 0

if { $stat != 1 } {
    puts "Error : Shading is ON, but should be OFF"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png