puts "==========="
puts "OCC24650"
puts "==========="
puts ""
##############################################################
# Wrong intersection curves obtained for a surface of revolution and a plane.
##############################################################

set GoodNbCurv 1

restore [locate_data_file bug24650_fz1365.brep] b1
restore [locate_data_file bug24650_fz2495.brep] b2

mksurface sb1 b1
mksurface sb2 b2
trimu sb1tu sb1 0.242 0.291

clear

set N [intersect res sb1tu sb2]

set che [whatis res]
set ind [string first "3d curve" $che]
if {${ind} >= 0} {
  #Only variable "res" exists
  renamevar res res_1
}


set ic 1
set AllowRepeate 1
while { $AllowRepeate != 0 } {
  set che [whatis res_$ic]
  set ind [string first "3d curve" $che]
  if {${ind} < 0} {
    set AllowRepeate 0
  } else {
    display res_$ic
    
    bounds res_$ic U1 U2
    
    dval U1
    dval U2
    
    if {[dval U2-U1] < 1.0e-20} {
      puts "Error: Wrong curve's range!"
    }
    
    xdistcs res_$ic sb1tu U1 U2 10 1e-7    
    xdistcs res_$ic sb2 U1 U2 10 1e-7
    
    incr ic
  }
}

if {[expr {$ic - 1}] == $GoodNbCurv} {
  puts "OK: Curve Number is good!"
} else {
  puts "Error: Curve Number is bad!"
}

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