puts "================"
puts "OCC23845"
puts "================"
puts ""
#######################################################################
# New auxilary method concatenating a wire into an edge based on C0-continuous curve.
#######################################################################

restore [locate_data_file bug23845_profil_0a.brep] a
restore [locate_data_file bug23845_profil_1a.brep] b

concatC0wire aa a
concatC0wire bb b

tolerance aa
checkshape aa

tolerance bb
checkshape bb