5 ###########################################################################
6 # Progress indicator in ShapeHealing
7 ###########################################################################
11 catch { pload XSDRAW }
12 restore [locate_data_file OCC22746-om.brep] a
15 set List1 [fixshape result a]
16 puts "----------------------"
18 set List2 [fixshape result a]
22 if { ${List1} != ${List2}} {
28 if { [ regexp {Progress:} $List2 ] } {
29 puts "${BugNumber} OK"
32 puts "${BugNumber} Faulty"
37 puts "Faulty $BugNumber"
42 checkview -display result -3d -path ${imagedir}/${test_image}.png
43 checkprops result -s 16473.3