3bea4c16 |
1 | puts "============" |
2 | puts "OCC22851" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # No intersection curve between two surfaces |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC22851 |
10 | |
11 | restore [locate_data_file bug22851_fz1.brep] b1 |
12 | restore [locate_data_file bug22851_fz8.brep] b2 |
13 | mksurface s1 b1 |
14 | mksurface s2 b2 |
15 | intersect i s1 s2 |
16 | |
17 | set dump_info [dump i] |
18 | |
19 | set lst [split ${dump_info}] |
20 | set dump_length [llength $lst] |
21 | |
22 | set find_BSCurve [regexp {BSplineCurve} $dump_info] |
23 | set find_Degree_Poles_Knots [regexp {Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +[-0-9.+eE]+ +Knots} $dump_info] |
24 | |
25 | if { $dump_length == 0 && !$find_BSCurve && !$find_Degree_Poles_Knots } { |
26 | puts "Faulty ${BugNumber}" |
27 | } else { |
28 | puts "OK ${BugNumber}" |
29 | } |