tests/bugs/moddata/bug107

   1
   2 puts "================"
   3 puts "BUC61035"
   4 puts "OCC107"
   5 puts "================"
   6 puts ""
   7
   8 restore [locate_data_file OCC107-1.brep] ee
   9 puts [checkshape ee]
  10 restore [locate_data_file OCC107-2.brep] ff
  11 puts [checkshape ff]
  12
  13 distmini dd1 ee ff
  14
  15 mkcurve cc ee
  16 cvalue cc 0 x y z
  17 vertex vv x y z
  18
  19 distmini dd2 vv ff
  20
  21 set d1 [dset t dd1_val]
  22 set d2 [dset t dd2_val]
  23
  24 if { [expr abs([expr $d1 - $d2])] > 0.1} then {
  25     puts "Faulty :WRONG computation of distances."
  26 } else {
  27     puts "All is OK"
  28 }
  29
  30
  31