puts "============" puts "CR28175" puts "===========" puts "" ############################################################################### # Bad result of curve-curve extrema ############################################################################### # Set signals on. pload MODELING dsetsignal 1 # Prepare input data. restore [locate_data_file bug28175_2.brep] c explode c # Compute minimal distance distmini d c_1 c_2 set dist [dval d_val] # Check extrema distance if { $dist > 1e-7 } { puts "ERROR: Extrema distance is too big" } else { puts "OK: Correct extrema distance" }