tests/bugs/modalg_5/bug25380

   1 puts "================"
   2 puts "OCC25380"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Intersection curve cannot reach boundary of surface
   7 #######################################################################
   8
   9 restore [locate_data_file bug25380_b1.brep] b1
  10 restore [locate_data_file bug25380_b2.brep] b2
  11
  12 set log [bopcurves b1 b2]
  13
  14 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  15 set MaxTol 1.e-11
  16 if {${Toler} > ${MaxTol}} {
  17   puts "Error: Tolerance is too big!"
  18 }
  19
  20 regexp {The length c_1 is ([-0-9.+eE]+)} [length c_1] full Curve_Length
  21
  22 set expected_length 1.614
  23 set tol_abs_length 1.e-3
  24 set tol_rel_length 0.01
  25 checkreal "Curve length" ${Curve_Length} ${expected_length} ${tol_abs_length} ${tol_rel_length}
  26
  27 smallview
  28 donly c_1 b1
  29 fit
  30 display b2
  31
  32 set only_screen_axo 1