tests/bugs/modalg_6/bug26841_2

   1 puts "============"
   2 puts "OCC26841"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Wrong result obtained by intersection algorithm.
   7 ###############################
   8
   9 restore [locate_data_file bug26841c3-prism.brep] p3
  10 restore [locate_data_file bug26841c1-deck.brep] a3
  11
  12 bsection result a3 p3 -n2d2
  13
  14 smallview
  15 donly result
  16 fit
  17 display a3 p3
  18
  19
  20 set nbshapes_expected "
  21 Number of shapes in shape
  22  VERTEX    : 10
  23  EDGE      : 10
  24  WIRE      : 0
  25  FACE      : 0
  26  SHELL     : 0
  27  SOLID     : 0
  28  COMPSOLID : 0
  29  COMPOUND  : 1
  30  SHAPE     : 21
  31 "
  32
  33 checknbshapes result -ref ${nbshapes_expected} -t -m "SECTION"
  34
  35 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTolerance
  36 puts "MaxTolerance=$MaxTolerance"
  37
  38 set expected_MaxTolerance 0.00010145423883977269
  39 set tol_abs_MaxTolerance 0.0
  40 set tol_rel_MaxTolerance 0.001
  41 checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
  42
  43 set log [checksection result]
  44
  45 if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
  46   puts "ERROR: the section is not closed"
  47 } else {
  48   puts "The section is OK"
  49 }
  50
  51 checkview -screenshot -2d -path ${imagedir}/${test_image}.png