tests/bugs/modalg_2/bug251_1

   1 puts "================"
   2 puts "OCC251: Section of two faces f1 and f2 depends on order of arguments:  section r1 f1 f2 and section r2 f2 f1 give different results, one of result is invalid - overlapped edges."
   3 puts "================"
   4 puts ""
   5
   6 restore [locate_data_file OCC251.brep] f
   7 explode f
   8 checkshape f_1
   9 checkshape f_2
  10
  11 bsection result f_1 f_2
  12 explode result
  13
  14 foreach a [explode result e] {
  15   foreach b [explode result e] {
  16     if { ![regexp {not} [compare b_1 n_1]] } {
  17       continue;
  18     }
  19
  20     set coe [checkoverlapedges e1 e2 5.0e-5]
  21
  22     puts "$a <-> $b: $coe"
  23     if { [regexp "Edges is not overlaped" $coe] != 1 } {
  24       puts "Error: $a and $b are overlaped"
  25     }
  26   }
  27 }
  28
  29 checkprops result -l 1.
  30 checkshape result
  31 checksection result -r 2
  32
  33 smallview
  34 don result*
  35 fit
  36
  37 checkview -screenshot -2d -path ${imagedir}/${test_image}.png