tests/bugs/modalg_5/bug24327

   1 puts "============"
   2 puts "OCC24327"
   3 puts "============"
   4 puts ""
   5 #################################################
   6 # Wrong result obtained by Exterma Curve/Curve
   7 #################################################
   8
   9 restore [locate_data_file bug24200_c1] c1
  10 restore [locate_data_file bug24200_c2] c2
  11
  12 trim c1t c1 0. 1260.
  13 trim c2t c2 0. 6142.
  14
  15 set info_1 [extrema c1t c2t]
  16 set extrema_N [llength ${info_1}]
  17 if { ${extrema_N} < 1 } {
  18    puts "Error : Extrema is wrong"
  19 } else {
  20    for { set i 1 } { ${i} <= ${extrema_N} } { incr i } {
  21       set info_2 [length ext_${i}]
  22       regexp { is +([-0-9.+eE]+)} ${info_2} full edge_length
  23       if { ${i} == 1 } {
  24          set min_length ${edge_length}
  25       }
  26       if { ${min_length} > ${edge_length} } {
  27          set min_length ${edge_length}
  28       }
  29    }
  30    set expected_length 2.8421709430404007e-13
  31    set tol_abs_length 1.0e-07
  32    set tol_rel_length 0.01
  33    checkreal "Minimal length" ${min_length} ${expected_length} ${tol_abs_length} ${tol_rel_length}
  34 }