[occt.git] / tests / caf / driver / A8

#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)

#Commands of transformation:
#PTranslateDXYZ Doc ShapeEntry dx dy dz
#PTranslateAlongLine Doc ShapeEntry  Line off
#PRotateRoundLine Doc ShapeEntry Line Angle
#PMirror Doc ShapeEntry PlaneObj

## Test of transformation functions
AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
#1 - create box using more flexible set of commands
NewCommand D
isos 12
set B2 [AddObject D];			## add object
set F2 [AddFunction D $B2 Box];		## add function
BoxDX D $B2 190;			## set arguments of this function
BoxDY D $B2 290
BoxDZ D $B2 390
InitLogBook D;				## initialize (clean) internal maps of labels
ComputeFun D $F2;			## compute the function
GetShape D $F2:2 Box2;			## check result
fit
whatis Box2
GetReference D $B2;			## refers to result NS

#2 Revol Sectioned
explode Box2 F
explode Box2_3 E
set SBas1 [AttachShape D Box2_3   ${B2} ${B2} 0]
set SAx1 [AttachShape  D Box2_3_2 ${B2} ${B2} 0]
set SRev1 [AddRevol D $SBas1  $SAx1 120 0]
ComputeFun D $SRev1:1
GetShape D $SRev1:1:2 R1
don R1


#3
explode R1 F
explode R1_5 E
set SBas2 [AttachShape D R1_5   ${SRev1} ${SRev1} 0]
set SAx2 [AttachShape  D R1_5_2 ${SRev1} ${SRev1} 0]
set SRev2 [AddRevol D $SBas2  $SAx2 120 0]
ComputeFun D $SRev2:1
GetShape D $SRev2:1:2 R2

#4
explode R2 F
explode R2_5 E
set SBas3 [AttachShape D R2_5   ${SRev2} ${SRev2} 0]
set SAx3  [AttachShape D R2_5_2 ${SRev2} ${SRev2} 0]
set SRev3 [AddRevol D $SBas3  $SAx3 120 0]
ComputeFun D $SRev3:1
GetShape D $SRev3:1:2 R2

#8
AddDriver D Fuse
set FS1 [AddFuse D $SRev1 $SRev2]
ComputeFun D $FS1
GetShape D $FS1:2 R1

#9
set FS2 [AddFuse D $SRev1 $SRev3]
ComputeFun D $FS2
GetShape D $FS2:2 R1

#10
NewCommand D 
set SL [TestSingleSelection D $B2 0]
set SL2 [TestMultipleSelection D $B2 0]


NewCommand D
BoxDZ D $B2 420

#8 order of recomputation
NewCommand D
InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
ComputeFun D $F2;	
ComputeFun D $SBas1:1
ComputeFun D $SAx1:1
ComputeFun D $SRev1:1
ComputeFun D $SBas2:1
ComputeFun D $SAx2:1
ComputeFun D $SRev2:1
ComputeFun D $SBas3:1
ComputeFun D $SAx3:1
ComputeFun D $SRev3:1
ComputeFun D $FS1
ComputeFun D $FS2
GetShape D $FS2:2 R1

SolveFlatFrom D $SL
NewCommand D
Commit	Line	Data
40093367	1	#Drivers' nick-names:
	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)
	4
	5	#Commands of transformation:
	6	#PTranslateDXYZ Doc ShapeEntry dx dy dz
	7	#PTranslateAlongLine Doc ShapeEntry Line off
	8	#PRotateRoundLine Doc ShapeEntry Line Angle
	9	#PMirror Doc ShapeEntry PlaneObj
	10
	11	## Test of transformation functions
	12	AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
	13	#1 - create box using more flexible set of commands
	14	NewCommand D
	15	isos 12
	16	set B2 [AddObject D]; ## add object
	17	set F2 [AddFunction D $B2 Box]; ## add function
7b5e532f	18	BoxDX D $B2 190; ## set arguments of this function
40093367	19	BoxDY D $B2 290
	20	BoxDZ D $B2 390
	21	InitLogBook D; ## initialize (clean) internal maps of labels
	22	ComputeFun D $F2; ## compute the function
	23	GetShape D $F2:2 Box2; ## check result
	24	fit
	25	whatis Box2
7b5e532f	26	GetReference D $B2; ## refers to result NS
40093367	27
	28	#2 Revol Sectioned
	29	explode Box2 F
	30	explode Box2_3 E
	31	set SBas1 [AttachShape D Box2_3 ${B2} ${B2} 0]
	32	set SAx1 [AttachShape D Box2_3_2 ${B2} ${B2} 0]
	33	set SRev1 [AddRevol D $SBas1 $SAx1 120 0]
	34	ComputeFun D $SRev1:1
	35	GetShape D $SRev1:1:2 R1
	36	don R1
	37
	38
	39	#3
	40	explode R1 F
	41	explode R1_5 E
	42	set SBas2 [AttachShape D R1_5 ${SRev1} ${SRev1} 0]
	43	set SAx2 [AttachShape D R1_5_2 ${SRev1} ${SRev1} 0]
	44	set SRev2 [AddRevol D $SBas2 $SAx2 120 0]
	45	ComputeFun D $SRev2:1
	46	GetShape D $SRev2:1:2 R2
	47
	48	#4
	49	explode R2 F
	50	explode R2_5 E
	51	set SBas3 [AttachShape D R2_5 ${SRev2} ${SRev2} 0]
	52	set SAx3 [AttachShape D R2_5_2 ${SRev2} ${SRev2} 0]
	53	set SRev3 [AddRevol D $SBas3 $SAx3 120 0]
	54	ComputeFun D $SRev3:1
	55	GetShape D $SRev3:1:2 R2
	56
	57	#8
	58	AddDriver D Fuse
	59	set FS1 [AddFuse D $SRev1 $SRev2]
	60	ComputeFun D $FS1
	61	GetShape D $FS1:2 R1
	62
	63	#9
	64	set FS2 [AddFuse D $SRev1 $SRev3]
	65	ComputeFun D $FS2
	66	GetShape D $FS2:2 R1
	67
	68	#10
	69	NewCommand D
	70	set SL [TestSingleSelection D $B2 0]
	71	set SL2 [TestMultipleSelection D $B2 0]
	72
	73
	74	NewCommand D
	75	BoxDZ D $B2 420
	76
	77	#8 order of recomputation
	78	NewCommand D
	79	InitLogBook D; ## to be initialized before any recomputation of impacted functions set (if attachments are presented)
	80	ComputeFun D $F2;
	81	ComputeFun D $SBas1:1
	82	ComputeFun D $SAx1:1
	83	ComputeFun D $SRev1:1
	84	ComputeFun D $SBas2:1
	85	ComputeFun D $SAx2:1
	86	ComputeFun D $SRev2:1
	87	ComputeFun D $SBas3:1
	88	ComputeFun D $SAx3:1
	89	ComputeFun D $SRev3:1
	90	ComputeFun D $FS1
91	ComputeFun D $FS2
92	GetShape D $FS2:2 R1
93
94	SolveFlatFrom D $SL
95	NewCommand D
96