tests/bugs/modalg/bug238_2

   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 "  BOPTUC   case_2_solid.brep from 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 [boptuc result b a]
  15
  16 set nb_info [nbshapes result]
  17 set nb_v_good 14
  18 set nb_e_good 7
  19
  20 explode result v
  21 explode a e
  22 distmini di result_2 a_3
  23 regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
  24 if { [expr $dis > 1.e-5] } {
  25     puts "Faulty : Result shape is WRONG !!!"
  26 } else {
  27     puts " Result shape is COMPLITE"
  28 }
  29
  30 set length 0
  31 set 2dviewer 0