if {[string compare $command "SplitAngle"] == 0 } {
    set os "ALL"
    if {[array get env os_type] != ""} {
       set os $env(os_type)
    }
	puts "TODO OCC23127 $os: Faulty shapes in variables faulty_1 to faulty_"
}

restore [locate_data_file BPLSEITLI.brep] a