tests/bugs/modalg_5/bug23881

   1 puts "============"
   2 puts "OCC23881"
   3 puts "============"
   4 puts ""
   5 ############################################################################
   6 # BRepAlgoAPI_Section HasAnsectorFaceOn1 returned False on the boundary
   7 ############################################################################
   8
   9 polyline w1 0 0 0 1 0 0 1 1 0 0 1 0 0 0 0
  10 polyline w2 0 1 0 1 1 0 1 2 0 0 2 0 0 1 0
  11 mkplane f1 w1
  12 mkplane f2 w2
  13 sewing s1 0.0001 f1 f2
  14
  15 plane pl 0 1 0 0 1 0
  16 mkface f3 pl
  17
  18 bsection r s1 f3
  19
  20 # check that section edge (r) is the edge from original shape (s1)
  21 compound r s1 c
  22 if { ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes s1] str nbedges_s1] ||
  23      ! [regexp {EDGE\s*:\s*([0-9]+)} [nbshapes c ] str nbedges_c] } {
  24     error "Could not get number of edges from resulting shapes"
  25 }
  26
  27 if { $nbedges_s1 != $nbedges_c } {
  28     puts "Error: section does not share common edge with original shape"
  29 }
  30
  31 renamevar r result
  32 set 2dviewer 0