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