tests/bugs/modalg_6/bug27179

   1 puts "============"
   2 puts "OCC27179"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## The algorithm of sharing edges in Boolean operation should be improved
   7 ###############################
   8
   9 plane pl 0.195808075898442, -0.229262227170656, 4.05546403129991 0 0 1
  10 psphere s1 pl 0.03101752454
  11 restore [locate_data_file bug27128-Helix_Pipe.brep] s2
  12
  13 settolerance s1 2.0e-6
  14
  15 explode s1 f
  16 explode s2 f
  17
  18 bsection result s1_1 s2_2
  19
  20 smallview
  21 donly s1
  22 fit
  23 donly result
  24
  25 if { [string compare -nocase [checksection result] " nb alone Vertices : 0\n\n"] } {
  26   puts "ERROR: the section is not closed"
  27 } else {
  28   puts "The section is OK"
  29 }
  30
  31 checkview -screenshot -2d -path ${imagedir}/${test_image}.png