puts "============================================================="
puts "OCC25883: BRepOffsetAPI_MakePipeShell produces invalid result"
puts "============================================================="
puts ""

restore [locate_data_file OCC25883_shape.brep] a

smallview

explode a

mksweep a_1
addsweep a_2
buildsweep res

set bug_info [checkshape res]
if {[string compare $bug_info "This shape seems to be valid"] != 0} {
  puts "ERROR: OCC25883 is reproduced."
}

set tolres [checkmaxtol res]

if { ${tolres} > 1.e-4} {
   puts "Error: bad tolerance of result"
}

explode res
mksurface surf2 res_2
donly surf2
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
