2 #Box|Sph|Cyl|Cut|Fuse|Prism|SecRevol|FulRevol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
3 # order of functions recomputation should be defined out of the tool (by end user)
5 AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
6 #1 - create box using more flexible set of commands
9 set B2 [AddObject D]; ## add object
10 set F2 [AddFunction D $B2 Box]; ## add function
11 BoxDX D $B2 190; ## set argumets of this function
14 InitLogBook D; ## initialize (clean) internal maps of labels
15 ComputeFun D $F2; ## compute the function
16 GetShape D $F2:2 Box2; ## check result
19 GetReference D $B2; ## referes to result NS
25 set Bas1 [AttachShape D Box2_1 ${B2} ${B2} 0]
26 set Prism1 [AddPrism D $Bas1 300 0]
27 ComputeFun D $Prism1:1
28 GetShape D $Prism1:1:2 Pr1
30 PrismHeight D $Prism1 500
31 ComputeFun D $Prism1:1
32 GetShape D $Prism1:1:2 Pr1
39 set Bas2 [AttachShape D Pr1_1 ${Prism1} ${Prism1} 0]
40 set Prism2 [AddPrism D $Bas2 500 0]
41 ComputeFun D $Prism2:1
42 GetShape D $Prism2:1:2 Pr2
47 set FS1 [AddFuse D $Prism1 $Prism2]
55 set SL [TestSingleSelection D $Prism1 0]
56 set SL2 [TestMultipleSelection D $Prism1 0]
57 # both have failed units!!!
62 #6 order of recomputation
64 InitLogBook D; ## to be initialized before any recomputation of impacted functions set (if attachments are presented)
67 ComputeFun D $Prism1:1
69 ComputeFun D $Prism2:1