tests/bugs/moddata_3/bug28175_1

   1 puts "============"
   2 puts "CR28175"
   3 puts "==========="
   4 puts ""
   5 ###############################################################################
   6 # Bad result of curve-curve extrema
   7 ###############################################################################
   8
   9 # Set signals on.
  10 pload MODELING
  11 dsetsignal 1
  12
  13 # Prepare input data.
  14 restore [locate_data_file bug28175_2.brep] c
  15 explode c
  16
  17 # Compute minimal distance
  18 distmini d c_1 c_2
  19 set dist [dval d_val]
  20
  21 # Check extrema distance
  22 if { $dist > 1e-7 } {
  23   puts "ERROR: Extrema distance is too big"
  24 } else {
  25   puts "OK: Correct extrema distance"
  26 }