#if { [string compare $command "ShapeConvertRev"] == 0 } {
   #puts "TODO OCC23127 ALL: Error : The area of the resulting shape is"
#}
restore [locate_data_file CTO901_cts20172_base.rle] a