dfc3f102 |
1 | puts "TODO OCC21494 ALL: Error: Intersection between cone and sphere fails" |
2 | |
3 | puts "========" |
4 | puts "OCC21494" |
5 | puts "========" |
6 | puts "" |
7 | ############################################ |
8 | # Intersection between cone and sphere fails |
9 | ############################################ |
10 | |
11 | pcone c 15 0 10 |
12 | psphere s 10 |
13 | explode c f |
14 | explode s f |
15 | mksurface sc c_1 |
16 | mksurface ss s_1 |
17 | |
18 | intersect i sc ss |
19 | |
20 | if { [info exist i_1] == 0 } { |
21 | puts "Error: Intersection between cone and sphere fails" |
22 | } |