6 ###########################################
7 ## ABug of a symmetry on this specific attached BREP shape.
8 ###########################################
10 restore [locate_data_file OCC175.brep] result
13 regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col1
15 tmirror result 0 0 0 0 1 0
17 regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col2
18 if { $col1 != $col2} {
19 puts "Error : Command mirror does NOT work properly. "