3bea4c16 |
1 | puts "============" |
2 | puts "OCC16833" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Error in Coons algorithm |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC16833 |
10 | |
11 | restore [locate_data_file OCC16833-c1.draw] c1 |
12 | restore [locate_data_file OCC16833-c2.draw] c2 |
13 | restore [locate_data_file OCC16833-c3.draw] c3 |
14 | restore [locate_data_file OCC16833-c4.draw] c4 |
15 | |
16 | set mistake 0 |
17 | if [catch { fillcurves result c1 c2 c3 c4 } res] { |
18 | set mistake 1 |
19 | puts "Faulty ${BugNumber}: filling problem" |
20 | } else { |
21 | puts "Filling ${BugNumber} OK" |
22 | set What [whatis result] |
23 | if { [regexp "surface" $What] != 1 } { |
24 | set mistake 1 |
25 | } else { |
26 | set mistake 0 |
27 | } |
28 | } |
29 | |
30 | # Resume |
31 | puts "" |
32 | if { ${mistake} != 0 } { |
33 | puts "Faulty ${BugNumber}" |
34 | } else { |
35 | puts "OK ${BugNumber}" |
36 | } |
37 | |