1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
7 #######################################################################
8 # Checkshape command gives wrong result for compound of 66 solids
9 #######################################################################
11 set BugNumber OCC14643
13 restore [locate_data_file OCC14643.brep] result
15 set square 8.63143e+07
23 set nb_compound_good 1
24 set nb_shape_good 1021
27 puts "Check each solid"
29 for {set k 1} {$k < 67} {incr k} {
31 puts [eval whatis result_$k]
32 puts [eval checkshape result_$k]
36 puts "End check each solid"