7faaccfd |
1 | puts "============" |
2 | puts "OCC22572" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################### |
6 | # Support of progress indicator in RWStl and optimization of reading Ascii. |
7 | ########################################################################### |
8 | |
9 | set BugNumber OCC22572 |
10 | |
11 | catch { pload XSDRAW } |
12 | vinit |
13 | XProgress -t |
14 | set List1 [meshfromstl result [locate_data_file bearing.stl]] |
15 | puts "----------------------" |
16 | XProgress +t |
17 | set List2 [meshfromstl result [locate_data_file bearing.stl]] |
18 | |
19 | set status 0 |
20 | |
21 | if { ${List1} != ${List2}} { |
22 | set status 0 |
23 | } else { |
24 | set status 1 |
25 | } |
26 | |
27 | if { [ regexp {Progress:} $List2 ] } { |
28 | puts "${BugNumber} OK" |
29 | set status 0 |
30 | } else { |
31 | puts "${BugNumber} Faulty" |
32 | set status 1 |
33 | } |
34 | if { $status != 0 } { |
35 | puts "Faulty $BugNumber" |
36 | } else { |
37 | puts "OK $BugNumber" |
38 | } |
39 | |
40 | set 3dviewer 0 |
41 | |
42 | |