3f4689a1 |
1 | puts "TODO OCC23892 ALL: Error : number of surfaces is incorrect. Should be two intersection curves" |
2 | puts "============" |
3 | puts "OCC23892" |
4 | puts "============" |
5 | puts "" |
6 | ###################################################### |
7 | # Missing intersection curve between two surfaces |
8 | ###################################################### |
9 | |
10 | restore [locate_data_file bug23892_fz33] b1 |
11 | restore [locate_data_file bug23892_fz46] b2 |
12 | |
13 | mksurface s1 b1 |
14 | mksurface s2 b2 |
15 | |
16 | intersect res s1 s2 |
17 | decho off |
18 | set info [directory] |
19 | decho on |
20 | set nb [regexp -all {res_} $info] |
21 | if {$nb != 2 } { |
22 | puts "Error : number of surfaces is incorrect. Should be two intersection curves" |
23 | } else { |
24 | puts "OK : number of surfaces is correct." |
25 | } |