2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISPresentation
6 # Testing command: AISColor
7 # Note: Numerical control of setting color
12 # Set NamedShape attribute
15 SetShape D ${aLabel} aBox1
17 # Initialize 3D viewer
20 # Add AISPresentation attribute with parameter NS
23 # Display presentation of NamedShape in the viewer
24 AISDisplay D ${aLabel}
26 # Close/Open transaction
29 # Set a color of the shape as NOC_GREEN
31 AISColor D ${aLabel} ${GreenColor}
33 # Close/Open transaction
49 #set aColor [lindex [AISColor D ${aLabel}] 0]
50 set tmpLine [AISColor D ${aLabel}]
51 set tmpLength [llength ${tmpLine}]
52 set aColor [lindex ${tmpLine} [expr ${tmpLength} - 1]]
55 puts "It is not necessary to have the photo for this case."
57 if { ${aColor} != ${GreenColor} } {
58 puts "GreenColor=${GreenColor}"
59 puts "aColor=${aColor}"
60 puts "The box's color is not NOC_GREEN; AISColor command: Error"
63 puts "The box's color is NOC_GREEN; AISColor command: OK"