Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug82
1 puts "============"
2 puts "BUC60908"
3 puts "OCC82"
4 puts "============"
5 puts ""
6 ###############################
7 ## Incomplete section of shell by plane
8 ###############################
9
10 restore [locate_data_file BUC60907_px1.rle] sh 
11 puts [checkshape sh]
12
13 plane f 0 14.8053 0 0 1 0
14 mkface f f
15 bsection result sh f
16
17 set nb_info [nbshapes result]
18 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_verices
19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
20
21 set nnv [expr $nb_verices-1]
22
23 puts "VERTEX : $nb_verices, EDGE : $nb_edges"  
24
25 if { $nnv > $nb_edges } {                                         
26     puts "Surplus of vertices, Faulty section"
27 } else {
28     puts "Number of vertices correspond edges: OK"
29 }
30 set length 113.703
31 set 2dviewer 0
32