puts "================"
puts "OCC137"
puts "================"
#
# The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
#
puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
puts ""

pload XDE

igesbrep [locate_data_file OCC137-ANC101-Solid.igs] a *
tpcompound a
vinit
vdisplay a
vfit
vsetdispmode 1

# FACE ON
vselmode 4 1

set x 170
set y 80
vselect $x $y

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