0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / caf / presentation / H1
1 #INTERFACE CAF
2 # Presentation attributes
3 #
4 # Testing attribute: TPrsStd_AISPresentation
5 #
6 # Testing command:   AISUpdate
7 #
8
9 puts "caf003-H1"
10
11 # Create two boxis, a sphere and a cone
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 psphere aSphere 100
21 pcone aCone 50 20 500
22
23 # Initialize 3D viewer
24 AISInitViewer D
25
26 # Add AISPresentation attribute with parameter NS
27 AISSet D ${aLabel1} NS
28 AISSet D ${aLabel2} NS
29
30 # Set shading mode
31 vsetdispmode 1
32
33 # Set a color of the second shape
34 AISColor D ${aLabel2} GREEN
35
36 # Display presentation of NamedShape in the viewer
37 AISDisplay D ${aLabel1}
38 AISDisplay D ${aLabel2}
39
40 # Close/Open transaction
41 NewCommand D
42
43 # Change a shapes in ${aLabel1} and in ${aLabel2}
44 SetShape D ${aLabel1} aSphere
45 SetShape D ${aLabel2} aCone
46
47 # Update ${aLabel1}
48 AISUpdate D ${aLabel1}
49
50 # Close/Open transaction
51 NewCommand D
52
53 # Undo
54 Undo D
55
56 # Update the viewer
57 AISRepaint D
58
59 puts "There are two boxes"