puts "TODO OCC26018 ALL: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file equipement_chambre.asm.1.gdml.tcl]