tests/bugs/modalg_1/bug14643

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2
   3 puts "============"
   4 puts "OCC14643"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Checkshape command gives wrong result for compound of 66 solids
   9 #######################################################################
  10
  11 set BugNumber OCC14643
  12
  13 restore [locate_data_file OCC14643.brep] result
  14
  15 set square 8.63143e+07
  16 set nb_v_good 108
  17 set nb_e_good 282
  18 set nb_w_good 239
  19 set nb_f_good 259
  20 set nb_sh_good 66
  21 set nb_sol_good 66
  22 set nb_compsol_good 0
  23 set nb_compound_good 1
  24 set nb_shape_good 1021
  25
  26 puts ""
  27 puts "Check each solid"
  28 explode result
  29 for {set k 1} {$k < 67} {incr k} {
  30   puts ""
  31   puts [eval whatis result_$k]
  32   puts [eval checkshape result_$k]
  33   wait .5
  34 }
  35 puts ""
  36 puts "End check each solid"
  37
  38 set 2dviewer 0
  39