tests/bugs/modalg_7/bug28984

   1 puts "======="
   2 puts "0028984"
   3 puts "======="
   4 puts ""
   5 ##################################################
   6 # Huge intersection tolerance obtained by Face/Face intersection algorithm
   7 ##################################################
   8
   9 binrestore [locate_data_file bug28984_faces.bin] f
  10
  11 explode f
  12
  13 set log [bopcurves f_1 f_2 -2d]
  14 regexp {Tolerance Reached=([-0-9.+eE]+)} $log full tol_reached
  15 regexp {([1-9]) curve} $log full nb_curves
  16
  17 if {$nb_curves != 2} {
  18   puts "Error: Invalid number of curves"
  19 }
  20
  21 if {$tol_reached > 0.01} {
  22   puts "Error: Too big intersection tolerance"
  23 }