puts "============" puts "OCC25509" puts "============" puts "" ###################################################### # Wrong shape considered as valid by checkshape ###################################################### # 03. A solid with 2 growths box b1 10 10 10 box b2 4 4 4 4 4 4 explode b1 explode b2 shape result so add b1_1 result add b2_1 result decho off set info [checkshape result] decho on if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } { puts "Error : There are no mistakes by checkshape-command" } else { puts "OK : There are mistakes by checkshape-command" } set 2dviewer 1