191478a5 |
1 | puts "=========" |
2 | puts "CR24427" |
3 | puts "=========" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong section curves |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug24427_b1.brep] b1 |
10 | restore [locate_data_file bug24427_b2.brep] b2 |
11 | |
12 | mksurface s1 b1 |
13 | mksurface s2 b2 |
14 | |
15 | trim s1t s1 0 3.1415926535897931 3.3684854563490672 3.9269908169872507 |
16 | trim s2t s2 0 3.1415926535897931 -1.0598124096115453e-015 0.013271150216666670 |
17 | |
18 | intersect i s1t s2t |
19 | don s1t s2t i |
20 | |
21 | puts "First test" |
6d368502 |
22 | xdistcs i s1 0 1 10 1e-7 |
191478a5 |
23 | |
24 | puts "Second test" |
6d368502 |
25 | xdistcs i s2 0 1 10 1e-7 |
191478a5 |
26 | |
27 | donly i s1t s2t |
28 | |
29 | smallview |
30 | fit |
5747059b |
31 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |