tests/bugs/modalg_6/bug26684_1

   1 puts "============"
   2 puts "OCC26684"
   3 puts "============"
   4 puts ""
   5 ###################################################
   6 ## Big tolerance values of the intersection curves
   7 ###################################################
   8
   9 brestore [locate_data_file CTO909_IR2_TuyoPipe20.brep] b1
  10 brestore [locate_data_file CTO909_IR2_sphere1_20.brep] b2
  11
  12 explode b1 f; copy b1_1 f1
  13 explode b2 f; copy b2_1 f2
  14
  15 smallview
  16 donly f1 f2
  17 fit
  18
  19 # 1 case
  20 set bop_info [bopcurves f1 f2]
  21 regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance
  22
  23 checkreal "Reached tolerance" ${Tolerance} 5.8654166482879483e-009 1.e-7 0
  24
  25 # 2 case
  26 set bop_info_2d [bopcurves f1 f2 -2d]
  27 regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d
  28
  29 checkreal "Reached tolerance" ${Tolerance_2d} 1.4569392656749484e-008 1.e-7 0
  30
  31 checkview -screenshot -2d -path ${imagedir}/${test_image}.png