0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / caf / presentation / I1
1 #INTERFACE CAF
2 # Presentation attributes
3 #
4 # Testing attribute: TPrsStd_AISPresentation
5 #
6 # Testing command:   AISErase
7 #
8
9 puts "caf003-I1"
10
11 # Create two boxis
12 box aBox1 100 200 300
13 set aLabel1 0:2
14 SetShape D ${aLabel1} aBox1
15
16 box aBox2 50 50 0 100 200 300
17 set aLabel2 0:3
18 SetShape D ${aLabel2} aBox2
19
20 # Initialize 3D viewer
21 AISInitViewer D
22
23 # Add AISPresentation attribute with parameter NS
24 AISSet D ${aLabel1} NS
25 AISSet D ${aLabel2} NS
26
27 # Set shading mode
28 vsetdispmode 1
29
30 # Set a color of the second shape
31 AISColor D ${aLabel2} GREEN
32
33 # Display presentation of NamedShape in the viewer
34 AISDisplay D ${aLabel1}
35 AISDisplay D ${aLabel2}
36
37 # Close/Open transaction
38 NewCommand D
39
40 # Erase the shape of ${aLabel1}
41 AISErase D ${aLabel1}
42
43 # Close/Open transaction
44 NewCommand D
45
46 # Undo
47 Undo D
48
49 # Update the viewer
50 AISRepaint D
51
52 puts "There are two boxis"