61c421bf |
1 | if { [array get env os_type] != "" } { |
2 | set os $env(os_type) |
3 | } |
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" |
8 | } |
9 | |
10 | puts "================" |
11 | puts "OCC137" |
12 | puts "================" |
13 | # |
14 | # The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0 |
15 | # |
16 | puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING" |
17 | puts "" |
18 | |
19 | pload XDE |
20 | |
21 | igesbrep [locate_data_file OCC137-ANC101-Solid.igs] a * |
22 | tpcompound a |
23 | vinit |
24 | vdisplay a |
25 | vfit |
26 | vsetdispmode 1 |
27 | |
4754e164 |
28 | vselmode FACE ON |
61c421bf |
29 | set x 170 |
30 | set y 80 |
4754e164 |
31 | vselect $x $y |
61c421bf |
32 | |
33 | set only_screen 1 |