dfdfa61f |
1 | puts "========" |
2 | puts "OCC24772" |
3 | puts "========" |
4 | puts "" |
5 | ################################################################ |
6 | # Intersection of cylinder and cone produces incorrect results |
7 | ################################################################ |
8 | |
9 | restore [locate_data_file bug24772_s1.draw] s1 |
10 | restore [locate_data_file bug24772_s2.draw] s2 |
11 | |
12 | smallview +X+Y |
13 | fit |
14 | zoom 6 |
15 | |
16 | set bug_info [intersect r s1 s2] |
17 | |
18 | if {[llength $bug_info] != 4} { |
19 | # puts "ERROR: OCC24722 is reproduced." |
20 | } else { |
21 | # snapshot r_1 |
22 | clear |
23 | display s1 |
24 | display s2 |
25 | display r_1 |
26 | xwd $imagedir/${casename}_r_1.png |
27 | # snapshot r_2 |
28 | clear |
29 | display s1 |
30 | display s2 |
31 | display r_2 |
32 | xwd $imagedir/${casename}_r_2.png |
33 | # snapshot r_3 |
34 | clear |
35 | display s1 |
36 | display s2 |
37 | display r_3 |
38 | xwd $imagedir/${casename}_r_3.png |
39 | # snapshot r_4 |
40 | clear |
41 | display s1 |
42 | display s2 |
43 | display r_4 |
44 | xwd $imagedir/${casename}_r_4.png |
45 | } |