3edc7eea |
1 | puts "==========" |
2 | puts "OCC24519" |
3 | puts "==========" |
4 | puts "" |
5 | #################################################################### |
6 | # 0024519: Intersection of a cylinder and a plane does not return |
7 | #################################################################### |
8 | |
9 | restore [locate_data_file bug24519_cylinder.brep] cy |
10 | restore [locate_data_file bug24519_plane.brep] pl |
11 | |
12 | bsection r1 cy pl |
13 | section r2 cy pl |
14 | set exp1 [explode r1] |
15 | set exp2 [explode r2] |
16 | |
17 | if { $exp1 != "r1_1" } { |
18 | puts "Error: First intersection is not returned" |
19 | } |
20 | if { $exp2 != "r2_1" } { |
21 | puts "Error: Second intersection is not returned" |
22 | } |
23 | |
3edc7eea |
24 | checksection r1 |
25 | checksection r2 |
58cf74e0 |
26 | checkprops r1 -l 3.83537 |
27 | checkprops r2 -l 3.83537 |