5 ###################################################################################
6 # TNaming, CurrentShape: order of shapes in Modification compound is unpredictable.
7 ###################################################################################
17 for {set i 1} {$i <= 50} {incr i} {
24 BuildNamedShape D [set lab]:1 PRIMITIVE b
25 BuildNamedShape D [set lab]:1:1 MODIFY b b_1
26 BuildNamedShape D [set lab]:1:2 MODIFY b b_2
27 CurrentShape D "[set lab]:1" r
29 regexp {X += +([-0-9.+eE]+)} [vprops r_1 $x_tol] full x_1
33 } elseif { [expr abs ($x_1 - $x_ref)] > $x_tol } {
34 puts "Error: order of components of modified shape compound is not permanent."