1 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
4 set B2 [AddObject D]; ## add object
5 set F2 [AddFunction D $B2 Box]; ## add function
6 BoxDX D $B2 190; ## set arguments of this function
9 InitLogBook D; ## initialize (clean) internal maps of labels
10 ComputeFun D $F2; ## compute the function
11 GetShape D $F2:2 Box2; ## check result
17 set B1 [AddBox D 120 140 150];
19 GetShape D $B1:1:2 Box;
24 set FTr1 [PTranslateDXYZ D $B1 150 -40 270]
26 GetShape D $B1:2:2 Box
30 set CS [AddCut D $B2 $B1]
37 set SL [TestSingleSelection D $B2 1]
38 set SL2 [TestMultipleSelection D $B2 0]