tests/bugs/moddata_1/buc60815

   1 puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
   2 puts "=========="
   3 puts "BUC60815"
   4 puts "=========="
   5
   6 plane p1 1 0 0
   7 plane p2 0 0 0 1 0 0
   8 trim p1 p1 -50 50 -50 50
   9 trim p2 p2 -75 75 -75 75
  10 intersect r2 p1 p2
  11 extsurf e1 r2 10 10 10
  12 extsurf e3 r2 10 10 10
  13
  14 if [catch { intersect result e1 e3 } catch_result] {
  15     puts "Faulty BUC60815: NO EXCEPTION."
  16     puts "INTERSECTION BETWEEN TWO SURFACES LYING ON THE SAME PLANE UNDEFINED"
  17 } else {
  18     puts "BUC60815 OK: suitable except"
  19 }
  20
  21 set 2dviewer 0
  22