5 ###########################################################################
6 # Support of progress indicator in RWStl and optimization of reading Ascii.
7 ###########################################################################
11 catch { pload XSDRAW }
14 set List1 [meshfromstl result [locate_data_file bearing.stl]]
15 puts "----------------------"
17 set List2 [meshfromstl result [locate_data_file bearing.stl]]
21 if { ${List1} != ${List2}} {
27 if { [ regexp {Progress:} $List2 ] } {
28 puts "${BugNumber} OK"
31 puts "${BugNumber} Faulty"
35 puts "Faulty $BugNumber"