tests/bugs/modalg/bug238_1

   1 puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
   2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
   3 puts "========================"
   4 puts " OCC238 "
   5 puts "========================"
   6
   7 #################################################
   8 ## puts "  BOPCOMMON   case_2_solid.brep and case_2_edge1.brep"
   9 #################################################
  10 puts " "
  11 puts [restore [locate_data_file OCC238a.brep] a]
  12 puts [restore [locate_data_file case_2_edge1.brep] b]
  13 puts [bop a b]
  14 puts [bopcommon result b a]
  15
  16 explode result v
  17 explode a e
  18 distmini di result_1 a_3
  19 regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
  20 if { [expr $dis > 1.e-5] } {
  21     puts "Faulty : Result shape is WRONG !!!"
  22 } else {
  23     puts " Result shape is COMPLITE"
  24 }
  25
  26 set nb_v_good 14
  27 set nb_e_good 7
  28 set length 0
  29 set 2dviewer 0