tests/bugs/moddata/bug567

   1 puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
   2
   3 puts "========"
   4 puts "OCC567"
   5 puts "========"
   6 puts ""
   7 #######################################
   8 ## Can not intersect two Rectangular Trimmed Surfaces .
   9 #######################################
  10
  11 restore [locate_data_file OCC567a.draw] s1
  12 restore [locate_data_file OCC567b.draw] s2
  13
  14 if { [catch {intersect i s1 s2 } catch_result] } {
  15     puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
  16 } else {
  17    set j 1
  18    repeat 11 {
  19    set err [lindex [whatis i_$j] 5]
  20      if { $err != "curve"} {
  21        puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"
  22        break
  23       } else {
  24        puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j]
  25               }
  26     incr j}
  27 }
  28
  29 trim s1x s1 0 2*pi 0 2*pi/13
  30 trim s2x s2 0 2*pi 0 2*pi/13
  31
  32 if { [catch {intersect result s1x s2x } catch_result] } {
  33     puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces"
  34 } else {
  35     set nom 0
  36     set j 1
  37     repeat 11 {
  38         set err [lindex [whatis result_$j] 5]
  39         if { $err != "curve"} {
  40             break
  41         } else {
  42             set nom [expr $nom + 1]
  43         }
  44         incr j
  45     }
  46     if { $nom == 0} {
  47         puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
  48     } else {
  49         puts " OCC565 OK: function intersection works with trimmed Surfaces"
  50     }
  51 }
  52