0e94a94e |
1 | |
2 | puts "=====================================" |
3 | puts "BUC60663" |
4 | puts "=====================================" |
5 | puts "" |
6 | puts "It takes visual check for this BUG. See V2 point" |
7 | puts "=====================================" |
8 | puts "" |
9 | |
10 | restore [locate_data_file buc60663a.brep] a |
352ffd73 |
11 | checkshape a |
0e94a94e |
12 | restore [locate_data_file buc60663b.brep] b |
352ffd73 |
13 | checkshape b |
0e94a94e |
14 | |
15 | bsection result a b |
16 | |
17 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num |
18 | if { $num != 2 } { |
19 | puts " Faulty : Result shape is INcorrect !!! " |
20 | } |
21 | |
22 | |
23 | #fsameparameter res |
24 | |
25 | set length 26.2001 |
82cbc512 |
26 | set 2dviewer 0 |