puts "================"
puts "OCC29964: Bad arc discretization"
puts "================"
puts ""

set BugNumber OCC29964

restore [locate_data_file bug29964_partition.brep] a

explode a f
compound a_5 a_6 a_9 a_10 result
donly result

isos result 0
triangles result
top
fit

set tolerances    {0.1 0.01 0.001}
set ref_triangles {15 33 318}
set ref_nodes     {23 41 326}

for {set i 0} {$i < 3} {incr i} {
  tclean a
  incmesh result [lindex ${tolerances} ${i}] -a 1
  fit

  checkview -screenshot -2d -path ${imagedir}/${test_image}_${i}.png
  checktrinfo result -tri [lindex ${ref_triangles} ${i}] -nod [lindex ${ref_nodes} ${i}]
}
