61c421bf |
1 | if { [array get env os_type] != "" } { |
2 | set os $env(os_type) |
3 | } |
4 | if { [string compare $os "windows"] != 0 } { |
61c421bf |
5 | } |
6 | |
7 | puts "================" |
8 | puts "OCC137" |
9 | puts "================" |
10 | # |
11 | # The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0 |
12 | # |
13 | puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING" |
14 | puts "" |
15 | |
16 | restore [locate_data_file OCC137-ANC101-Solid.brep] a |
17 | vinit |
18 | vdisplay a |
19 | vfit |
20 | vsetdispmode 1 |
21 | |
709e97a0 |
22 | # FACE ON |
23 | vselmode 4 1 |
24 | |
61c421bf |
25 | set x 170 |
26 | set y 80 |
4754e164 |
27 | vselect $x $y |
61c421bf |
28 | |
29 | set only_screen 1 |