1 if { [array get env os_type] != "" } {
4 if { [string compare $os "windows"] != 0 } {
5 puts "TODO OCC12345 ALL: An exception was caught"
6 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
7 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
10 puts "================"
12 puts "================"
14 # The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
16 puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
19 restore [locate_data_file OCC137-ANC101-Solid.brep] a
25 QASetChoiceMode FACE ON