[occt.git] / tests / caf / named_shape / E6

# =================== OCAF ======================
# Naming
#
# Testing purpose: Naming selection mechanism 
#
# Test case: E6 (ShapeOrientation is not  used)
# 1. Create box B1
# 2. Create box B2
# 3. Translate B1 along XYZ
# 4. FS = B2 (B2, B1)
# 5. Create cylinder Cyl
# 6. CS = Cut (B1, Cyl)
# 7. Make fillet
# 8. Make  selections for all sub-shapes
# 9. Modify B2
# 10. Recompute modeling functions
# 11. Recompute selections
# ===============================================

#pload FULL

erase 
Close D 

NewDocument D MDTV-Standard

#1 - create Box using short-cut
NewCommand D
AddDriver D Box;			## add box driver to driver table
set B1 [AddBox D 130 140 150];		## add box 
ComputeFun D $B1:1;			## compute box1 function
GetShape D $B1:1:2 Box1;		## check result
whatis Box1
# referes to result NS
GetReference D $B1;			## check is reference set 

#2 - create box using more flexible set of commands
NewCommand D
set B2 [AddObject D];			## add object
set F2 [AddFunction D $B2 Box];		## add function
BoxDX D $B2 190;			## set argumets of this function
BoxDY D $B2 290
BoxDZ D $B2 390
InitLogBook D;				## initialize (clean) internal maps of labels
AddDriver D Box Attach Cyl	
ComputeFun D $F2;			## compute the function
GetShape D $F2:2 Box2;			## check result
whatis Box2
GetReference D $B2;			## referes to result NS

#3
NewCommand D
AddDriver D PTxyz PTALine PRLine
set FTr1 [PTranslateDXYZ D $B1 110 130 270]
ComputeFun D $FTr1;                     ## translation function recomputation
GetShape D $FTr1:2 Box1;	        ## get modified result

#4 => fuse
AddDriver D Fuse
set FS [AddFuse D $B2 $B1]
ComputeFun D $FS
GetShape D $FS:2 Box2

#5 
NewCommand D
explode Box2 F
explode Box2_1 E
set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 0]; ## set attachment
AddDriver D Attach Cyl
set Cyl [AddCyl D 30 315 ${Sel1}]
ComputeFun D $Cyl:1
GetShape D $Cyl:1:2 S

#6 => cut
NewCommand D
AddDriver D Cut
set CS [AddCut D $B2 $Cyl]
ComputeFun D $CS
GetShape D $CS:2 S

#7 => Fillet
NewCommand D
explode S F
explode S_3 E
set Sel2 [AttachShape D S_3_6 ${B2} ${B2} 0]; ## set attachment for using in Fillet
AddDriver D Fillet
set Fill [AddFillet D $B2 25 $Sel2 0]
ComputeFun D $Fill
GetShape D $Fill:2 S


#8 test selection
NewCommand D
set SL [TestSingleSelection D $B2 0]
set SL2 [TestMultipleSelection D $B2 0]

#9 modification
NewCommand D
BoxDX D $B2 210

#10 recomputation
NewCommand D
InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
ComputeFun D $F2;
ComputeFun D $B1:1
ComputeFun D $FTr1
ComputeFun D $FS	
ComputeFun D $Sel1:1
ComputeFun D $Cyl:1
ComputeFun D $CS
ComputeFun D $Sel2:1
ComputeFun D $Fill
GetShape D $Fill:2 S
don S

#11 recomputation of entities of the TestSelection commands
SolveFlatFrom D $SL
NewCommand D
Commit	Line	Data
efd4b232	1	# =================== OCAF ======================
	2	# Naming
	3	#
	4	# Testing purpose: Naming selection mechanism
	5	#
	6	# Test case: E6 (ShapeOrientation is not used)
	7	# 1. Create box B1
	8	# 2. Create box B2
	9	# 3. Translate B1 along XYZ
	10	# 4. FS = B2 (B2, B1)
	11	# 5. Create cylinder Cyl
	12	# 6. CS = Cut (B1, Cyl)
	13	# 7. Make fillet
	14	# 8. Make selections for all sub-shapes
	15	# 9. Modify B2
	16	# 10. Recompute modeling functions
	17	# 11. Recompute selections
	18	# ===============================================
	19
40093367	20	#pload FULL
efd4b232	21
40093367	22	erase
40093367	23	Close D
24de79c3	24
40093367	25	NewDocument D MDTV-Standard
	26
	27	#1 - create Box using short-cut
	28	NewCommand D
	29	AddDriver D Box; ## add box driver to driver table
	30	set B1 [AddBox D 130 140 150]; ## add box
	31	ComputeFun D $B1:1; ## compute box1 function
	32	GetShape D $B1:1:2 Box1; ## check result
	33	whatis Box1
	34	# referes to result NS
	35	GetReference D $B1; ## check is reference set
	36
	37	#2 - create box using more flexible set of commands
	38	NewCommand D
	39	set B2 [AddObject D]; ## add object
	40	set F2 [AddFunction D $B2 Box]; ## add function
	41	BoxDX D $B2 190; ## set argumets of this function
	42	BoxDY D $B2 290
	43	BoxDZ D $B2 390
	44	InitLogBook D; ## initialize (clean) internal maps of labels
	45	AddDriver D Box Attach Cyl
	46	ComputeFun D $F2; ## compute the function
	47	GetShape D $F2:2 Box2; ## check result
	48	whatis Box2
	49	GetReference D $B2; ## referes to result NS
	50
	51	#3
	52	NewCommand D
	53	AddDriver D PTxyz PTALine PRLine
	54	set FTr1 [PTranslateDXYZ D $B1 110 130 270]
	55	ComputeFun D $FTr1; ## translation function recomputation
	56	GetShape D $FTr1:2 Box1; ## get modified result
	57
	58	#4 => fuse
	59	AddDriver D Fuse
	60	set FS [AddFuse D $B2 $B1]
	61	ComputeFun D $FS
	62	GetShape D $FS:2 Box2
	63
	64	#5
	65	NewCommand D
	66	explode Box2 F
	67	explode Box2_1 E
	68	set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 0]; ## set attachment
	69	AddDriver D Attach Cyl
	70	set Cyl [AddCyl D 30 315 ${Sel1}]
	71	ComputeFun D $Cyl:1
	72	GetShape D $Cyl:1:2 S
	73
	74	#6 => cut
	75	NewCommand D
	76	AddDriver D Cut
	77	set CS [AddCut D $B2 $Cyl]
	78	ComputeFun D $CS
	79	GetShape D $CS:2 S
	80
	81	#7 => Fillet
	82	NewCommand D
	83	explode S F
	84	explode S_3 E
	85	set Sel2 [AttachShape D S_3_6 ${B2} ${B2} 0]; ## set attachment for using in Fillet
	86	AddDriver D Fillet
	87	set Fill [AddFillet D $B2 25 $Sel2 0]
	88	ComputeFun D $Fill
89	GetShape D $Fill:2 S
90
91
92	#8 test selection
93	NewCommand D
94	set SL [TestSingleSelection D $B2 0]
95	set SL2 [TestMultipleSelection D $B2 0]
96
97	#9 modification
98	NewCommand D
99	BoxDX D $B2 210
100
101	#10 recomputation
102	NewCommand D
103	InitLogBook D; ## to be initialized before any recomputation of impacted functions set (if attachments are presented)
104	ComputeFun D $F2;
105	ComputeFun D $B1:1
106	ComputeFun D $FTr1
107	ComputeFun D $FS
108	ComputeFun D $Sel1:1
109	ComputeFun D $Cyl:1
110	ComputeFun D $CS
111	ComputeFun D $Sel2:1
112	ComputeFun D $Fill
113	GetShape D $Fill:2 S
114	don S
115
efd4b232	116	#11 recomputation of entities of the TestSelection commands
40093367	117	SolveFlatFrom D $SL
	118	NewCommand D
	119