tests/bugs/modalg_7/bug28944

   1 puts "========"
   2 puts "OCC28944"
   3 puts "========"
   4 puts ""
   5 #######################################################
   6 # Cannot find section between two faces
   7 #######################################################
   8
   9 restore [locate_data_file bug28944_shell.brep] sh0
  10 plane pl0 28.0 0.0 0.0 1.0 0.0 0.0
  11 mkface f0 pl0 -50 50 -50 50
  12
  13 # Incomplete section
  14 bsection result sh0 f0
  15
  16 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
  17 if { $nbv != 0 } { puts "Error : Section is incorrect" }
  18
  19 checknbshapes result -vertex 2 -edge 2
  20
  21 checkprops result -l 6.91796
  22
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png