a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty : the distanse is" |
2 | puts "TODO OCC12345 ALL: Error : The length of result shape is" |
3 | |
4 | puts "=====================================" |
5 | puts "BUC60663" |
6 | puts "=====================================" |
7 | puts "" |
8 | puts "It takes visual check for this BUG." |
9 | puts "=====================================" |
10 | puts "" |
11 | |
12 | restore [locate_data_file buc60663a.brep] a |
352ffd73 |
13 | checkshape a |
a87752f3 |
14 | restore [locate_data_file buc60663b.brep] b |
352ffd73 |
15 | checkshape b |
a87752f3 |
16 | |
17 | bsection result a b |
18 | |
19 | set expl [explode result v] |
20 | set len [llength $expl] |
21 | set ver [lindex $expl [expr $len - 1]] |
22 | explode b e |
23 | explode b_4 v |
24 | distmini d $ver b_5 |
25 | |
f1aa2b62 |
26 | regexp {([-0-9.+eE]+)$} [dump d_val] full dist |
a87752f3 |
27 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance $ver] full toler |
28 | |
29 | if {$dist > $toler} { |
30 | puts "Faulty : the distanse is $dist. It is more $toler." |
31 | } |
32 | set length 0 |
33 | set 2dviewer 0 |