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