a87752f3 |
1 | puts "========================" |
2 | puts "BUC60623" |
3 | puts "========================" |
4 | |
5 | restore [locate_data_file buc60623a.brep] a |
352ffd73 |
6 | checkshape a |
a87752f3 |
7 | restore [locate_data_file buc60623b.brep] b |
352ffd73 |
8 | checkshape b |
a87752f3 |
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 | |