0e94a94e |
1 | |
2 | puts "============" |
3 | puts "PRO19626" |
4 | puts "============" |
5 | |
6 | restore [locate_data_file pro19626a.brep] a |
352ffd73 |
7 | checkshape a |
0e94a94e |
8 | restore [locate_data_file pro19626b.brep] b |
352ffd73 |
9 | checkshape b |
0e94a94e |
10 | |
11 | bsection result a b |
12 | regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num |
13 | if { $num != 2 } { |
14 | puts " Faulty PRO19626: Result shape is INcorrect !!! " |
15 | } else { |
16 | puts "PRO19626 OK : Result shape is CORRECT !!! " |
17 | } |
18 | |
19 | set length 174.597 |
82cbc512 |
20 | set 2dviewer 0 |
21 | |
0e94a94e |
22 | |