e54706ed |
1 | ### by apn on IR-2012-12-21 |
2 | ##if { [array get env os_type] != "" } { |
3 | ## set os $env(os_type) |
4 | ##} |
5 | ##if { [string compare $os "windows"] != 0 } { |
6 | ## puts "TODO OCC12345 ALL: An exception was caught" |
7 | ## puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" |
8 | ## puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
9 | ##} |
10 | |
0e94a94e |
11 | puts "========================" |
12 | puts "BUC60823" |
13 | puts "========================" |
14 | |
15 | igesbrep [locate_data_file buc60823.igs] a * |
16 | |
17 | tpcompound result |
352ffd73 |
18 | checkshape result |
19 | checkshape result r |
0e94a94e |
20 | |
21 | tclean result |
22 | vinit |
23 | vdisplay result |
24 | vsetdispmode result 1 |
25 | vfit |
26 | |
27 | set info [trinfo result] |
28 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
29 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
30 | |
31 | if { $tri != 17618 || $nod != 11153 } { |
32 | puts "Shading problem may be, nb tri & nod are changed" |
33 | } |
34 | |
35 | set 2dviewer 0 |
36 | |