18d25b93 |
1 | puts "===========" |
2 | puts "OCC24505" |
3 | puts "===========" |
4 | puts "" |
5 | ############################################################## |
6 | # Wrong section curves between Cone and Cylinder with collinear axes |
7 | ############################################################## |
8 | |
9 | restore [locate_data_file bug24505_f1.brep] f1 |
10 | restore [locate_data_file bug24505_f2.brep] f2 |
11 | |
12 | bopcurves f1 f2 |
13 | |
14 | set info [dump c_1] |
15 | |
16 | if { [regexp "Circle" $info] != 1 } { |
17 | puts "Error : Wrong section curves" |
18 | } else { |
19 | puts "OK : Good section curves" |
20 | } |