puts "============" puts "OCC22572" puts "============" puts "" ########################################################################### # Support of progress indicator in RWStl and optimization of reading Ascii. ########################################################################### set BugNumber OCC22572 catch { pload XSDRAW } vinit XProgress -t set List1 [meshfromstl result [locate_data_file bearing.stl]] puts "----------------------" XProgress +t set List2 [meshfromstl result [locate_data_file bearing.stl]] set status 0 if { ${List1} != ${List2}} { set status 0 } else { set status 1 } if { [ regexp {Progress:} $List2 ] } { puts "${BugNumber} OK" set status 0 } else { puts "${BugNumber} Faulty" set status 1 } if { $status != 0 } { puts "Faulty $BugNumber" } else { puts "OK $BugNumber" } set 3dviewer 0