puts "============"
puts "OCC6283"
puts "============"
puts ""
######################################################
# Unstable work fixshape on attached shape (different number of warnings)
######################################################

set BugNumber OCC6283

set list [stepread [locate_data_file wgehaeuse_surface.stp] a *]

if {[lsearch ${list} Error] > -1} {
    puts "${BugNumber} : Error during reading attached IGES file"
} else {
    tpcompound comp
    if [catch { set fixlist [fixshape result comp 1e-7] } res] {
	puts "${BugNumber}: Error during fixshape"
    } else {
	set index [string first "Segments were disordered; fixed\n" ${fixlist}]
        if {$index != -1} {
    	    puts "Faulty ${BugNumber}"
        } else {
    	    puts "OK ${BugNumber}"
        }
	checkprops result -s 2.22665e+06 
checkshape result
	checkview -display result -2d -path ${imagedir}/${test_image}.png
    }
}

