tests/bugs/modalg_6/bug26717

   1 puts "============"
   2 puts "OCC26717"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Error in IntPatch_PrmPrmIntersection: change of local resolution leads to break of walking line
   7 ######################################################
   8
   9 smallview
  10
  11 set expected_MaxTolerance 2.14e-05
  12 set tol_abs_MaxTolerance 1.e-06
  13 set tol_rel_MaxTolerance 1.e-06
  14
  15 set FileName1 bug26717_xrf1_eval_fuselage.brep
  16 restore [locate_data_file ${FileName1}] a
  17
  18 set FileName2 bug26717_xrf1_eval5_wing.brep
  19 restore [locate_data_file ${FileName2}] b
  20
  21 bfuse r a b
  22
  23 set aList [explode r]
  24
  25 # check 1
  26 if { [llength ${aList}] == 1} {
  27   puts "OK: Good explode of result"
  28 } else {
  29   puts "Error: Bad explode of result"
  30 }
  31
  32 # check2
  33 checknbshapes r -solid 1
  34
  35 # check3
  36 checkshape r
  37
  38 # check4
  39 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance r] full MaxTolerance
  40 checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
  41
  42 clear
  43 donly r
  44 fit
  45
  46 xwd ${imagedir}/${test_image}.png