+puts "TODO ?CR23788 ALL: Failed units"
+
#Drivers' nick-names:
#Box|Sph|Cyl|Cut|Fuse|Prism|SecRevol|FulRevol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
# order of functions recomputation should be defined out of the tool (by end user)
#set SPnt1 [AttachShape D Box2_1 ${B2} ${B2}]
#set Sph1 [AddSphere D $SPnt1 30]
#ComputeFun D $Sph1:1
-#GetShape D $Sph1:1:2 Sph
\ No newline at end of file
+#GetShape D $Sph1:1:2 Sph