bf0ba813 |
1 | puts "========================" |
2 | puts "OCC23643" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Intersection algorithm produces B-Spline curve in case of coaxial cones |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug23643_qf3.brep] b |
10 | |
11 | explode b |
12 | copy b_1 f1 |
13 | copy b_2 f2 |
14 | |
15 | mksurface s1 f1 |
16 | mksurface s2 f2 |
17 | |
18 | trim s1t s1 0 2*pi -18 10 |
19 | trim s2t s2 0 2*pi -18 10 |
20 | |
21 | intersect result s1t s2t |
22 | |
23 | set log [dump result] |
24 | |
25 | if {[regexp {Trimmed +curve} ${log}]} { |
26 | puts "Intersection algorithm work OK" |
27 | } else { |
28 | puts "Error: Intersection algorithm work bad" |
29 | } |