puts "TODO OCC12345 ALL: Faulty : the distance is"
puts "TODO OCC12345 ALL: Error : The length of result shape is"

puts "====================================="
puts "BUC60663"
puts "====================================="
puts ""
puts "It takes visual check for this BUG."
puts "====================================="
puts ""

restore [locate_data_file buc60663a.brep] a 
checkshape a
restore [locate_data_file buc60663b.brep] b
checkshape b

bsection result a b

set expl [explode result v]
set len [llength $expl]
set ver [lindex $expl [expr $len - 1]]
explode b e
explode b_4 v
distmini d $ver b_5

regexp {([-0-9.+eE]+)$} [dump d_val] full dist
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance $ver] full toler

if {$dist > $toler} {
    puts "Faulty : the distance is $dist. It is more $toler."
}
checkprops result -l 0 
checkshape result
checksection result
checkview -display result -2d -path ${imagedir}/${test_image}.png