tests/bugs/moddata_1/bug12

   1
   2 puts "================"
   3 puts "OCC12"
   4 puts "================"
   5 puts ""
   6
   7 restore [locate_data_file OCC12.brep] f
   8 checkshape f
   9
  10 mksurface su f
  11 clpoles su
  12 emptycopy f1 f
  13 vertex v 0 -170.63226587036002 82.2373635024
  14 don su v
  15 distmini d1 v f1
  16 if [expr [dval d1_val] > 0.01] {
  17     set res "failed"
  18     puts "Error : Result is incorrect"
  19 } else {
  20   set res "OK"
  21 }
  22 puts "Info: test $res, distance=[dval d1_val]"
  23