Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60663_1
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 
11 puts [checkshape a]
12 restore [locate_data_file buc60663b.brep] b
13 puts [checkshape b]
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
26 set 3dviewer 2