puts "============"
puts "OCC26910"
puts "============"
puts ""
######################################################
# General fuse does not find intersection between line and circle
######################################################

restore [locate_data_file bug26910.brep] a

explode a
bclearobjects
bcleartools
baddobjects a_1
baddtools a_2
bfillds
bbuild r
set a 0
foreach r [explode r v] {
      set a [expr $a + 1]
  }
if { ${a} != 5 } {
  puts "Error: ${a} intersections were not found between line and circle"
} else {
  puts "Found ${a} intersection between line and circle"
}

smallview
fit

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