puts "========================"
puts "OCC24036"
puts "========================" 
puts ""
#######################################################################
# Regression: sewing is not correct
# (OCC 6.6.0 regression) BRepBuilderAPI_Sewing returns wrong result
#######################################################################

pload XSDRAW

restore [locate_data_file bug24036_data.brep] v
explode v
sewing result 0.00001 v_1 v_2

checkshape result

set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
set CMP_TOL 1.e-4
if { ${MaxTolerance} > ${CMP_TOL} } {
   puts "Error: invalid tolerance"
}

freebounds $result 0
set s [explode result_c e]

set index [ llength $s ]
puts "Number of free edges is $index"
if { $index != 2 } {
   puts "Error : Number of free edges is $index"
}

set 2dviewer 1
