0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / caf / presentation / C1
1 #INTERFACE CAF
2 # Presentation attributes
3 #
4 # Testing attribute: TPrsStd_AISPresentation
5 #
6 # Testing command:   AISDefaultColor
7 # Testing command:   AISHasOwnColor
8 # Note:   After call of  AISDefaultColor-command : AISHasOwnColor = false ( int 0 )
9 #
10
11 puts "caf003-C1"
12
13 # Set NamedShape attribute
14 box aBox1 100 200 300
15 set aLabel 0:2
16 SetShape D ${aLabel} aBox1
17
18 # Initialize 3D viewer
19 AISInitViewer D
20
21 # Add AISPresentation attribute with parameter NS
22 AISSet D ${aLabel} NS
23
24 # Display presentation of NamedShape in the viewer
25 AISDisplay D ${aLabel}
26
27 # Set a color of the shape
28 AISColor D ${aLabel} GREEN
29
30 # Close/Open transaction
31 NewCommand D
32
33 # Check own color of the shape 
34 set HasOwnColor1 [AISHasOwnColor D ${aLabel}]
35
36 # Get current color of the shape 
37 set aColor [lindex [AISColor D ${aLabel}] 0]
38
39 # Set default color of the shape
40 AISDefaultColor D ${aLabel}
41
42 # Close/Open transaction
43 NewCommand D
44
45 # Undo
46 Undo D
47
48 # Update the viewer
49 AISRepaint D
50
51 # Redo
52 Redo D
53
54 # Update the viewer
55 AISRepaint D
56
57 # Check own color of the shape 
58 set HasOwnColor2 [AISHasOwnColor D ${aLabel}]
59
60 puts "It is not necessary to have the photo for this case."
61
62 if { ${HasOwnColor1} == 0 || 
63      ${HasOwnColor2} > 0 } {
64         puts "HasOwnColor1=${HasOwnColor1} HasOwnColor2=${HasOwnColor2}"
65         puts "AISDefaultColor command: Error"
66         return
67 }
68 puts "AISDefaultColor command: OK"