2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISPresentation
6 # Testing command: AISDefaultColor
7 # Testing command: AISHasOwnColor
8 # Note: After call of AISDefaultColor-command : AISHasOwnColor = false ( int 0 )
13 # Set NamedShape attribute
16 SetShape D ${aLabel} aBox1
18 # Initialize 3D viewer
21 # Add AISPresentation attribute with parameter NS
24 # Display presentation of NamedShape in the viewer
25 AISDisplay D ${aLabel}
27 # Set a color of the shape as NOC_GREEN
29 AISColor D ${aLabel} ${GreenColor}
31 # Close/Open transaction
34 # Check own color of the shape
35 set HasOwnColor1 [AISHasOwnColor D ${aLabel}]
37 # Get current color of the shape
38 set aColor [lindex [AISColor D ${aLabel}] 0]
40 # Set default color of the shape
41 AISDefaultColor D ${aLabel}
43 # Close/Open transaction
58 # Check own color of the shape
59 set HasOwnColor2 [AISHasOwnColor D ${aLabel}]
61 puts "It is not necessary to have the photo for this case."
63 if { ${HasOwnColor1} == 0 ||
64 ${HasOwnColor2} > 0 } {
65 puts "HasOwnColor1=${HasOwnColor1} HasOwnColor2=${HasOwnColor2}"
66 puts "AISDefaultColor command: Error"
69 puts "AISDefaultColor command: OK"