a87752f3 |
1 | puts "TODO OCC12345 ALL: Error : The length of result shape is" |
2 | puts "TODO OCC12345 ALL: Faulty : Section is incorrect" |
3 | |
4 | puts "=============" |
5 | puts "BUC60463" |
6 | puts "=============" |
7 | puts "Section" |
8 | puts "" |
9 | cpulimit 1400 |
10 | restore [locate_data_file buc60463a.brep] a |
11 | puts [checkshape a] |
12 | restore [locate_data_file buc60463b.brep] b |
13 | puts [checkshape b] |
14 | bsection result a b |
15 | |
16 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs |
17 | if { $cs != 0 } { |
18 | puts "Faulty : Section is incorrect" |
19 | } |
20 | set length 0 |
21 | set 2dviewer 0 |
22 | |