3bea4c16 |
1 | puts "============" |
2 | puts "OCC17046" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Exception in Extrema_ExtPS on Mandriva2006 32-bits |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC17046 |
10 | |
11 | # Create ellipsoidal surface |
12 | ellipse ell 0 0 300 1 0 0 150 100 |
13 | mkedge ell_e ell |
14 | wire ell_w ell_e |
15 | mkplane ell_f ell_w 1 |
16 | |
17 | box ell_t -10 -110 140 20 110 460 |
18 | cut ell_d ell_f ell_t |
19 | |
20 | revol ell_z ell_d 0 0 0 0 0 1 360 |
21 | explode ell_z F |
22 | mksurface su1 ell_z_1 |
23 | |
24 | # Perform projection |
25 | set BugStatus 0 |
26 | if [catch { proj su1 0 100 300 } ] { |
27 | set BugStatus 1 |
28 | } |
29 | |
30 | # Resume |
31 | puts "" |
32 | if { ${BugStatus} != 0 } { |
33 | puts "Faulty ${BugNumber}" |
34 | } else { |
35 | puts "OK ${BugNumber}" |
36 | } |