5 ###############################
6 ## Wrong distance found by xdistef command for attached shapes
7 ###############################
10 set dist_good 8.5127062130336385e-006
12 restore [locate_data_file bug698_f.brep] f
19 regexp {Max Distance = +([-0-9.+eE]+); Parameter on curve = +([-0-9.+eE]+)} ${log} full dist param
21 if { [ expr ($dist - $dist_good) ] < -$Tol } {
22 puts "Error in xdistef command (cannot find maximal distance)"
25 if { $dist > $dist_good } {
26 #Check if distance found is correct
32 cvalue c3d $param xx yy zz
35 2dcvalue c2d $param uu vv
36 svalue ss uu vv xx yy zz
41 if { [ expr abs([dval dm_val] - $dist) ] > $Tol } {
42 if { [dval dm_val] != $dist } {
43 puts "Error. xdistef has failed when computing (dist_V1V2 =[dval dm_val], FoundDist=$dist)"
45 puts "Error. xdistef command works better than on MASTER. Please set \"dist_good\" value to $dist."
48 puts "OK: xdistef algorithm works properly"