1 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
5 set B2 [AddObject D]; ## add object
6 set F2 [AddFunction D $B2 Box]; ## add function
7 BoxDX D $B2 190; ## set argumets of this function
10 InitLogBook D; ## initialize (clean) internal maps of labels
11 ComputeFun D $F2; ## compute the function
12 GetShape D $F2:2 Box2; ## check result
20 set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 1]; ## set attachment
21 ## AddDriver D Attach Cyl
22 set Cyl [AddCyl D 70 275 ${Sel1}]
24 GetShape D $Cyl:1:2 CylS
28 set FTr1 [PTranslateDXYZ D $Cyl 100 0 0]
30 GetShape D $Cyl:2:2 CylS
34 set CS [AddCut D $B2 $Cyl]
42 set SL [TestSingleSelection D $B2 0]
43 # 28 selections fail (total 124 selections)
44 # it seems gives FilterByNeighbours gives Compound (edges: 2*2, vertexes: 4, but duplicated -4*2 + 2*2 + 4*2 + 2*2 => 24)
45 # Naming should be corrected to process the case : to be returned Compound without failure!)