if { [string compare $command "ShapeConvertRev"] == 0 } {
   puts "TODO OCC23127 All: Error : The resulting shape is not correct"
   set test_identity 1
}
restore [locate_data_file pro12903b.rle] a

