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 SHAPE SHADING"
puts ""

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

set only_screen 1
