2 puts "================"
5 puts "================"
8 restore [locate_data_file OCC107-1.brep] ee
10 restore [locate_data_file OCC107-2.brep] ff
21 set d1 [dset t dd1_val]
22 set d2 [dset t dd2_val]
24 if { [expr abs([expr $d1 - $d2])] > 0.1} then {
25 puts "Faulty :WRONG computation of distances."