if { [array get env os_type] != "" } {
   set os $env(os_type)
}
if { [string compare $os "windows"] != 0 } {
}

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 ""

restore [locate_data_file OCC137-ANC101-Solid.brep] a
vinit
vdisplay a
vfit
vsetdispmode 1

vselmode FACE ON
set x 170
set y 80
vselect $x $y

set only_screen 1
