5 #######################################################################
6 # TNaming_Selector crash in select method.
7 #######################################################################
13 ## 1. Build Primitive face <f>
15 mkface f0 pl -10 10 -10 10
16 set Lab900 [Label D 0:1:900]
17 BuildNamedShape D $Lab900 P f0
20 tmirror f0 0 0 10 0 0 1
23 set Lab901 [Label D 0:1:901]
24 BuildNamedShape D $Lab901 G f0 fmir
26 ## 3. Translate primitive face
29 set Lab902 [Label D 0:1:902]
31 BuildNamedShape D $Lab902 M f0 ftr5
33 ## 4. Translate mirrored face
34 GetShape D $Lab901 fmir
36 ttranslate fmirtr 0 0 -5
37 GetShape D $Lab901 fmir
38 set Lab903 [Label D 0:1:903]
39 BuildNamedShape D $Lab903 M fmir fmirtr
41 ## 5. Select the face from step 4 (mirrored & translasted)
42 set Lab904 [Label D 0:1:904]
43 GetShape D $Lab903 fSel
44 SelectShape D $Lab904 fSel
46 GetShape D $Lab904 fRes