puts "============"
puts "CR23471"
puts "============"
puts ""
#######################################################################
# Intersection algorithm produces overlapping intersection curves
#######################################################################

restore [locate_data_file OCC22790-cx.brep] b

explode b
mksurface s1 b_1
mksurface s2 b_3
intersect res s1 s2

if ![info exists res] {
 puts "Error : there are more then 1 curve"
}