0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / caf / named_shape / E1
1 # ============= OCAF ============================
2 # Naming
3 #
4 # Testing purpose: Naming selection mechanism 
5 #
6 # Test case: E1 (ShapeOrientation is not used)
7 #
8 # 1. Create Box B2
9 # 2. Create Cylinder Cyl
10 # 3. Cut (B2, Cyl)
11 # 4. Make Fillet
12 # 5. Make selection for all sub-shapes
13 # 6. Modify B2
14 # 7. Recompute modeling functions
15 # 8. Recompute selections
16 # ===============================================
17
18 #pload FULL
19 erase 
20 Close D 
21
22 NewDocument D BinOcaf
23 isos 12
24 #1 - create box using more flexible set of commands
25 NewCommand D
26 set B2 [AddObject D];                   ## add object
27 set F2 [AddFunction D $B2 Box];         ## add function
28 BoxDX D $B2 190;                        ## set argumets of this function
29 BoxDY D $B2 290
30 BoxDZ D $B2 390
31 InitLogBook D;                          ## initialize (clean) internal maps of labels
32 AddDriver D Box Attach Cyl      
33 ComputeFun D $F2;                       ## compute the function
34 GetShape D $F2:2 Box2;                  ## check result
35 whatis Box2
36 GetReference D $B2;                     ## referes to result NS
37
38 #2 
39 NewCommand D
40 explode Box2 F
41 explode Box2_1 E
42 set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 1]; ## set attachment
43 AddDriver D Attach Cyl
44 set Cyl [AddCyl D 30 315 ${Sel1}]
45 ComputeFun D $Cyl:1
46
47 #3 => cut
48 NewCommand D
49 AddDriver D Cut
50 set CS [AddCut D $B2 $Cyl]
51 ComputeFun D $CS
52 GetShape D $CS:2 S
53
54 #4 => Fillet
55 NewCommand D
56 explode S F
57 explode S_1 E
58 set Sel2 [AttachShape D S_1_1 ${B2} ${B2} 1]; ## set attachment for using in Fillet
59 AddDriver D Fillet
60 set Fill [AddFillet D $B2 25 $Sel2 0]
61 ComputeFun D $Fill
62 GetShape D $Fill:2 S
63
64
65 #5 test selection
66 NewCommand D
67 set SL [TestSingleSelection D $B2 0]
68 set SL2 [TestMultipleSelection D $B2 0]
69
70 #6 modification
71 NewCommand D
72 BoxDX D $B2 290
73
74 #7 recomputation modeling functions
75 NewCommand D
76 InitLogBook D;          ## to be initialized before any recomputation of impacted functions set (if attachments are presented)
77 ComputeFun D $F2;       
78 ComputeFun D $Sel1:1
79 ComputeFun D $Cyl:1
80 ComputeFun D $CS
81 ComputeFun D $Sel2:1
82 ComputeFun D $Fill
83 GetShape D $Fill:2 S
84 don S
85
86 #8 Recompute selections
87 SolveFlatFrom D $SL
88 NewCommand D