6 #############################################################
7 ## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
8 ## with help command "nbs" is increased.
9 #############################################################
13 restore [locate_data_file OCC535.brep] a
15 set nb_info_a [nbshapes a]
16 regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1
20 set nb_info_res [nbshapes result]
21 regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2
24 puts [format "before Shapes = %s after Shapes = %s" $r1 $r2]