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 checknbshapes result -vertex 108 -edge 282 -wire 239 -face 259 -shell 66 -solid 66 -compsolid 0 -compound 1 -shape 1021
  17 puts ""
  18 puts "Check each solid"
  19 explode result
  20 for {set k 1} {$k < 67} {incr k} {
  21   puts ""
  22   puts [eval whatis result_$k]
  23   puts [eval checkshape result_$k]
  24   wait .5
  25 }
  26 puts ""
  27 puts "End check each solid"
  28
  29 set 2dviewer 0
  30