2 puts "================"
4 puts "================"
7 restore [locate_data_file OCC12.brep] f
13 vertex v 0 -170.63226587036002 82.2373635024
16 if [expr [dval d1_val] > 0.01] {
18 puts "Error : Result is incorrect"
22 puts "Info: test $res, distance=[dval d1_val]"