0025957: nurbsconvert modifies original shape

[occt.git] / tests / bugs / modalg_6 / bug25613_2

puts "========="
puts "CR25613"
puts "========="
puts ""
###############################
## Wrong distance found by xdistef command for attached shapes
###############################

set Tol 1.0e-14
set dist_good 0.002371098605239398

restore [locate_data_file bug22790_f.brep] f
nexplode f e
copy f_2 e
don f e

set log [xdistef e f]

regexp {Max Distance = +([-0-9.+eE]+); Parameter on curve = +([-0-9.+eE]+)} ${log} full dist param

if { [ expr ($dist - $dist_good) ] < -$Tol } {
  puts "Error in xdistef command (cannot find maximal distance)"
}

if { $dist > $dist_good } {
#Check if distance found is correct

  mkcurve c3d e
  mk2dcurve c2d e f
  mksurface ss f
  
  cvalue c3d $param xx yy zz
  vertex v1 xx yy zz
  
  2dcvalue c2d $param uu vv 
  svalue ss uu vv xx yy zz
  vertex v2 xx yy zz
  
  distmini dm v1 v2
  
  if { [ expr abs([dval dm_val] - $dist) ] > $Tol } {
    if { [dval dm_val] != $dist } {
      puts "Error. xdistef has failed when computing (dist_V1V2 =[dval dm_val], FoundDist=$dist)"
    } else {
      puts "Error. xdistef command works better than on MASTER. Please set \"dist_good\" value to $dist."
    }
  } else {
    puts "OK: xdistef algorithm works properly"
  }
}