tests/bugs/moddata_2/bug569

   1 puts "TODO OCC12345 ALL: Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces"
   2
   3 puts "========"
   4 puts "OCC569"
   5 puts "========"
   6 puts ""
   7 ##################################
   8 ## Can not intersect trimmed plane and cone surfaces
   9 ##################################
  10
  11 restore [locate_data_file OCC569a.draw] s1
  12 restore [locate_data_file OCC569b.draw] s2
  13
  14 if { [catch {intersect result s1 s2 } catch_result] } {
  15     puts "Faulty OCC569 exception: function intersection works wrongly with trimmed plane and cone surfaces "
  16 } else {
  17     set nom 0
  18     set j 1
  19     repeat 10 {
  20         set err [lindex [whatis result_$j] 5]
  21         if { $err != "curve"} {
  22             break
  23         } else {
  24             set nom [expr $nom + 1]
  25         }
  26         incr j
  27     }
  28     if { $nom == 0} {
  29         puts "Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces"
  30     } else {
  31         puts "OCC569 OK: function intersection works with trimmed plane and cone surfaces"
  32     }
  33 }