
puts "================"
puts "OCC637"
puts "(case 1)"
puts "================"
puts ""
##########################################
## BRepOffsetAPI_MakePipeShell crashes with fatal exception
##########################################

restore [locate_data_file OCC637a.brep] s 
checkshape s

restore [locate_data_file OCC636c.brep] s1 
checkshape s1

restore [locate_data_file OCC637c.brep] s2 
checkshape s2

mksweep s
addsweep s1
addsweep s2

if [catch { buildsweep result } catch_result] {
    puts "Faulty OCC637 (case 1): function buildsweep works wrongly"
} 

checkprops result -s 1674.46 -eps 0.1
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
