puts "========"
puts "OCC29494"
puts "========"
puts ""
#################################################
# Intersection line between two parametric surfaces is restricted incorrectly if it matches 
# the surface boundary
#################################################

restore [locate_data_file bug29488_shapes.brep] s
explode s

explode s_4 f; copy s_4_13 f1
explode s_6 f; copy s_6_18 f2

smallview
clear
bopcurves f1 f2 -2d

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 f2 -2d] full Toler NbCurv

if {$Toler > 1.0e-7} {
  puts "Error: Big tolerance is returned by intersector"
}

if {$NbCurv != 1} {
  puts "Error: Please check NbCurves for intersector"
} else {
  checklength c_1 -l 19.2
}

fit
disp f1 f2

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