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 # FACE ON vselmode 4 1 set x 170 set y 80 vselect $x $y checkview -screenshot -3d -path ${imagedir}/${test_image}.png