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 checklength c_1 -l 1.614
  20
  21 smallview
  22 donly c_1 b1
  23 fit
  24 display b2
  25
  26 checkview -screenshot -2d -path ${imagedir}/${test_image}.png