tests/bugs/modalg_7/bug23163_3

   1 puts "TODO OCC23163 ALL: Error: No resulting circle at the intersection of tori, only b-splines"
   2
   3 puts "================"
   4 puts "OCC23163"
   5 puts "================"
   6 puts ""
   7 #######################################################################
   8 #  Intersection of tori fails to produce results
   9 #######################################################################
  10
  11 restore [locate_data_file bug23163_surface1_draw_b.draw] ss1
  12 restore [locate_data_file bug23163_surface2_draw_b.draw] ss2
  13
  14 intersect result ss1 ss2
  15
  16 set NbCurv [llength [directory result*]]
  17
  18 if { $NbCurv > 6 } {
  19   puts "OK: Number of curves is good"
  20 } else {
  21   puts "Error: No resulting circle at the intersection of tori, only b-splines"
  22 }
  23
  24 smallview
  25 donly result*
  26 fit
  27 display ss1 ss2
  28 checkview -screenshot -2d -path ${imagedir}/${test_image}.png