a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!" |
2 | puts "TODO OCC12345 ALL: Error : The length of result shape is" |
3 | puts "========================" |
4 | puts " OCC238 " |
5 | puts "========================" |
6 | |
7 | ################################################# |
8 | ## puts " BOPCOMMON case_2_solid.brep and case_2_edge1.brep" |
9 | ################################################# |
10 | puts " " |
11 | puts [restore [locate_data_file OCC238a.brep] a] |
12 | puts [restore [locate_data_file case_2_edge1.brep] b] |
13 | puts [bop a b] |
14 | puts [bopcommon result b a] |
15 | |
a87752f3 |
16 | explode result v |
17 | explode a e |
18 | distmini di result_1 a_3 |
f1aa2b62 |
19 | regexp {([-0-9.+eE]+)$} [dump $di_val] full dis |
a87752f3 |
20 | if { [expr $dis > 1.e-5] } { |
21 | puts "Faulty : Result shape is WRONG !!!" |
22 | } else { |
23 | puts " Result shape is COMPLITE" |
24 | } |
25 | |
355c1551 |
26 | set nb_v_good 14 |
27 | set nb_e_good 7 |
a87752f3 |
28 | set length 0 |
29 | set 2dviewer 0 |