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} && [ regexp {Progress:} $List2 ] } {
24 puts "Faulty $BugNumber"