tests/bugs/moddata_1/bug17046

   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 }