tests/lowalgos/intss/bug604

   1 puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!"
   2
   3 puts "========================"
   4 puts " OCC604"
   5 puts "========================"
   6 puts ""
   7 ############################
   8 ## Wrong intersection between two tores.
   9 ############################
  10
  11 restore [locate_data_file OCC604a.draw] a
  12 restore [locate_data_file OCC604b.draw] b
  13
  14 if { [catch { intersect result a b } catch_result] } {
  15     puts "Faulty OCC604: function INTERSECTION works with exception"
  16 } else {
  17     set nom 0
  18     set j 1
  19     repeat 10 {
  20         set err [lindex [whatis res_$j] 5]
  21         if { $err != "curve"} {
  22             break
  23         } else {
  24             set nom [expr $nom + 1]
  25         }
  26         incr j
  27     }
  28     if { $nom != 1 } {
  29         puts "Faulty OCC604: Result of intersection operation is INcorrect !!!"
  30     } else {
  31         puts "OCC604 OK : Result of intersection operation is CORRECT !!! "
  32     }
  33 }
  34
  35 checkview -display result -3d -path ${imagedir}/${test_image}.png