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