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