0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / bugs / caf / bug26290_newattribute_2
1 # OCAF VISUALIZATION
2 # Presentation attributes
3 #
4 # Testing attribute: TPrsStd_AISPresentation & TDataXtd_Presentation
5 #
6 # Testing command:   standard set of commands
7 #
8 # The test checks joint work of these attributes, opens kept before file 'bug26290_new_1.cbf', modifies it,
9 # checks Undo/Redo work and keeps it in 'bug26290_new_2.cbf'
10
11 pload OCAF VISUALIZATION
12
13 # prepare document
14 box b 100 200 300
15 NewDocument D BinOcaf
16 UndoLimit D 100
17 NewCommand D
18 set Lab1 [Label D 0:1:1]
19 SetShape D $Lab1 b
20 AISInitViewer D
21 vsetdispmode 1
22 AISSet D $Lab1 NS
23 AISDisplay D $Lab1
24 vfit
25 NewCommand D
26 Undo D 1
27 Redo D 1
28 AISColor D $Lab1 AQUAMARINE4
29 NewCommand D
30 SaveAs D $imagedir/bug26290_new_1.cbf
31 Close D
32
33 # test
34 Open $imagedir/bug26290_new_1.cbf D
35 UndoLimit D 100
36 NewCommand D
37
38 ## DFBrowse D
39 AISInitViewer D
40 vsetdispmode 1
41 vfit
42 NewCommand D
43 set Lab2 [Label D 0:1:2]
44 pcylinder cy 50 190
45 ttranslate cy 200 0 0
46 SetShape D $Lab2 cy
47 AISSet D $Lab2 NS
48 AISDisplay D $Lab2
49 NewCommand D
50 vfit
51 AISTransparency D $Lab2 0.7
52 NewCommand D
53 Undo D 1
54 Redo D 1
55
56 SaveAs D $imagedir/bug26290_new_2.cbf
57 AISErase D $Lab2
58 set Lab1 [Label D 0:1:1]
59 AISErase D $Lab1
60 NewCommand D
61 Close D
62
63 Open $imagedir/bug26290_new_2.cbf D
64
65 ## DFBrowse D
66 AISInitViewer D
67 vsetdispmode 1
68 vfit
69 AISColor D $Lab2 CHARTREUSE2
70 AISErase D $Lab2
71 AISErase D $Lab1
72 AISUnset D $Lab2
73 Close D