Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug81
1 puts "============"
2 puts "BUC60907"
3 puts "OCC81"
4 puts "============"
5 puts ""
6 ###############################
7 ## Section shell by plane gives overlapped edges
8 ###############################
9
10 restore [locate_data_file BUC60907_px1.rle] sh 
11 puts [checkshape sh]
12
13 plane f 60 0 0 1 0 0
14 mkface f f
15 bsection result sh f
16 puts "Info: it should be 12 edges"
17
18 set nb_info [nbshapes result]
19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ne
20
21 if { $ne != 12 } {                                         
22     puts "Faulty :Number of edges is wrong"                                                                               
23 } else {
24     puts "Number of edges is OK"                                                                                                   
25 }
26
27 set length 33.6353
28 set 2dviewer 0