1 puts "TODO OCC12345 ALL: Faulty : the distanse is"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
4 puts "====================================="
6 puts "====================================="
8 puts "It takes visual check for this BUG."
9 puts "====================================="
12 restore [locate_data_file buc60663a.brep] a
14 restore [locate_data_file buc60663b.brep] b
19 set expl [explode result v]
20 set len [llength $expl]
21 set ver [lindex $expl [expr $len - 1]]
26 regexp {([-0-9.+eE]+)} [dump d_val] full dist
27 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance $ver] full toler
30 puts "Faulty : the distanse is $dist. It is more $toler."