775530d4 |
1 | puts "================" |
2 | puts "OCC23166" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Intersection of plane and cone produces wrong result |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug23166_surface1_draw.draw] s1 |
10 | restore [locate_data_file bug23166_surface2_draw.draw] s2 |
11 | |
12 | intersect result s1 s2 |
13 | |
14 | set log [dump result_1] |
15 | if { [regexp {Parameters} ${log}] } { |
16 | puts "Error: untrimmed first hyperbola" |
17 | } else { |
18 | puts "OK: untrimmed first hyperbola" |
19 | } |
20 | |
21 | set log [dump result_2] |
22 | if { [regexp {Parameters} ${log}] } { |
23 | puts "Error: untrimmed second hyperbola" |
24 | } else { |
25 | puts "OK: untrimmed second hyperbola" |
26 | } |
27 | |
28 | smallview |
29 | donly result* |
30 | fit |
31 | display s1 s2 |
32 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |