puts "========"
puts "OCC29426"
puts "========"
puts ""
########################################
#  Extrema algorithm fails to find minimal distance between Circle and Sphere
########################################


circle c 3.59679185933224e-016 11.6635040382361 -3.23970209548358 -3.67401855705945e-017 -0.943656647634893 0.330926172090505 -2.2723161366922e-016 0.330926172090505 0.943656647634893 1.30000000000039
sphere s 0 2.425 0 0 1 0 1 -0 0 9.876

set log [extrema c s]

if {![regexp "Point" $log]} {
  set ext_dist [lindex [length ext_1] end]
  checkreal "Circle/Sphere min distance" $ext_dist 0. 1.e-10 1.e-10
}