Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / buc60623_3
1 puts "========================"
2 puts "BUC60623"
3 puts "========================"
4
5 restore [locate_data_file buc60623a.brep] a
6 puts [checkshape a]
7 restore [locate_data_file buc60623b.brep] b
8 puts [checkshape b]
9
10 mksurface S1 a
11 mksurface S2 b
12
13 intersect I1 S1 S2
14 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I1] full cs2
15 if { $cs2 != 0 } {
16     puts " Faulty : Intersection is not correct"
17 } else {
18     puts "Intersection of S1 and S2 is correct"
19 }
20
21 intersect I2 S2 S1
22 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I2] full cs2
23 if { $cs2 != 0 } {
24     puts " Faulty : Intersection is not correct"
25 } else {
26     puts "Intersection of S2 and S1 is correct"
27 }
28
29 set 2dviewer 0
30