411cf45ad877e6b23d8ba00e3f017cfdcf4d62c4
[occt.git] / tests / caf / named_shape / A1
1 #INTERFACE CAF
2 # NamedShape
3 #
4 # Testing attribute: TNaming_NamedShape
5 #
6 # Testing command:   SetShape
7 #
8
9 puts "caf002-A1"
10
11 # Create a box
12 set aSetX1 10
13 set aSetY1 20
14 set aSetZ1 30
15 set aSetDX1 100
16 set aSetDY1 200
17 set aSetDZ1 300
18
19 box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
20
21 bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
22
23 # Create a label
24 set aLabel 0:2
25 Label D ${aLabel}
26
27 # Close/Open transaction
28 NewCommand D
29
30 # Set a shape to the label
31 SetShape D ${aLabel} aBox1
32
33 # Close/Open transaction
34 NewCommand D
35
36 # Undo
37 Undo D
38
39 # Get a shape from the label
40 catch {GetShape D ${aLabel} aBox2}
41
42 # Redo
43 Redo D
44
45 # Get a shape from the label
46 GetShape D ${aLabel} aBox3
47
48 bounding -s aBox3 -save X1_Box3 Y1_Box3 Z1_Box3 X2_Box3 Y2_Box3 Z2_Box3
49
50 if { [dval X1_Box1] != [dval X1_Box3] || 
51      [dval Y1_Box1] != [dval Y1_Box3] || 
52      [dval Z1_Box1] != [dval Z1_Box3] || 
53      [dval X2_Box1] != [dval X2_Box3] || 
54      [dval Y2_Box1] != [dval Y2_Box3] || 
55      [dval Z2_Box1] != [dval Z2_Box3] } {
56         puts "X1_Box1=[dval X1_Box1] X1_Box3=[dval X1_Box3]"
57         puts "Y1_Box1=[dval Y1_Box1] Y1_Box3=[dval Y1_Box3]"
58         puts "Z1_Box1=[dval Z1_Box1] Z1_Box3=[dval Z1_Box3]"
59         puts "X2_Box1=[dval X2_Box1] X2_Box3=[dval X2_Box3]"
60         puts "Y2_Box1=[dval Y2_Box1] Y2_Box3=[dval Y2_Box3]"
61         puts "Z2_Box1=[dval Z2_Box1] Z2_Box3=[dval Z2_Box3]"
62         puts "SetShape command: Error"
63         return
64 }
65
66 puts "SetShape command: OK"